import.ahk

; Mostly complete - just need to do a bit of testing,
; then set up for actual import/append to .csv files


#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,Import

return


IMPORT:
FileSelectFolder,ImportFrom,,,Select the Texter import folder
Gosub,GetFileList
Loop,%ImportFrom%\*.txt
{
	;StringReplace,A_LoopField,A_LoopField,.txt,,
	;rp_import = %rp_import%%A_LoopField%
	MsgBox,%A_LoopFileFullPath%
	FileCreateDir,%A_WorkingDir%\Import
	FileCopy,%A_LoopFileFullPath%,%A_WorkingDir%\Import
	
}
FileRead, ImportEnter, %ImportFrom%\enter.csv
FileRead, ImportTab, %ImportFrom%\tab.csv
FileRead, ImportSpace, %ImportFrom%\space.csv
Loop,Parse,ImportEnter,|
{
	if A_LoopField not in %EnterKeys%
		FileAppend,%A_LoopField%`,,%A_WorkingDir%\Import\enter.csv
}
Loop,Parse,ImportTab,|
{
	if A_LoopField not in %TabKeys%
		FileAppend,%A_LoopField%`,,%A_WorkingDir%\Import\tab.csv

}
Loop,Parse,ImportSpace,|
{
	if A_LoopField not in %SpaceKeys%
		FileAppend,%A_LoopField%`,,%A_WorkingDir%\Import\space.csv
}
return


GetFileList:
FileList =
Loop, %A_WorkingDir%\replacements\*.txt
{
	FileList = %FileList%%A_LoopFileName%|
}
StringReplace, FileList, FileList, .txt,,All
return