Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

63 lines (55 sloc) 1.693 kb
#SingleInstance,Force
#NoEnv
SetWorkingDir, "%A_ScriptDir%"
FileRead, EnterKeys, %A_WorkingDir%\bank\enter.csv
FileRead, TabKeys, %A_WorkingDir%\bank\tab.csv
FileRead, SpaceKeys, %A_WorkingDir%\bank\space.csv
Gosub,Export
return
EXPORT:
Loop,bundles\*,2
{
Bundles = %Bundles%|%A_LoopFileName%
thisBundle = %A_LoopFileName%
Loop,bundles\%A_LoopFileName%\replacements\*.txt
{
thisBundle = %thisBundle%%A_LoopFileName%|
}
StringReplace, thisBundle, thisBundle, .txt,,All
StringReplace, thisBundle, thisBundle, %A_LoopFileName%,,
%A_LoopFileName% = %thisBundle%
}
StringReplace, FileList, FileList, .txt,,All
Gui,5: Destroy
Gui,5: font, s12, Arial
Gui,5: Add, Text,x15 y20, Hotstring:
Gui,5: Add, ListBox, 0x8 x13 y40 r15 W100 vExportChoice gShowString Sort,%FileList%
Gui,5: Add, Button,w80 default GExportOK x420 yp+80,&Export
Gui,5: Show, W600 H400, Texter Management
return
ExportOK:
Gui, 5: Submit
Gui, 5: Destroy
IfNotExist %A_WorkingDir%\Texter Export
FileCreateDir,%A_WorkingDir%\Texter Export
Loop,Parse,ExportChoice,|
{
FileCopy,%A_WorkingDir%\replacements\%A_LoopField%.txt,%A_WorkingDir%\Texter Export\%A_LoopField%.txt
if A_LoopField in %EnterKeys%
FileAppend,%A_LoopField%`,,%A_WorkingDir%\Texter Export\enter.csv
if A_LoopField in %TabKeys%
FileAppend,%A_LoopField%`,,%A_WorkingDir%\Texter Export\tab.csv
if A_LoopField in %SpaceKeys%
FileAppend,%A_LoopField%`,,%A_WorkingDir%\Texter Export\space.csv
}
return
GetFileList:
FileList =
Loop, %A_WorkingDir%\replacements\*.txt
{
FileList = %FileList%%A_LoopFileName%|
}
StringReplace, FileList, FileList, .txt,,All
return
ShowString:
return
Jump to Line
Something went wrong with that request. Please try again.