xy-amplify/nsis/NSIS/Examples/TextFunc.nsi

;_____________________________________________________________________________
;
;                          Text Functions
;_____________________________________________________________________________
;
; 2006 Shengalts Aleksander aka Instructor (Shengalts@mail.ru)

Name "Text Functions"
OutFile "TextFunc.exe"
Caption "$(^Name)"
XPStyle on
RequestExecutionLevel user

!include "WinMessages.nsh"
!include "TextFunc.nsh"

Var HWND
Var INI
Var LOG
Var PROJECT
Var CALLBACK
Var VIEW
Var FUNCTION
Var LINEFIND1
Var LINEFIND2
Var LINEFIND3
Var LINEREAD1
Var LINEREAD2
Var FILEREADFROMEND1
Var LINESUM1
Var FILEJOIN1
Var FILEJOIN2
Var FILEJOIN3
Var TEXTCOMPARE1
Var TEXTCOMPARE2
Var TEXTCOMPARE3
Var CONFIGREAD1
Var CONFIGREAD2
Var CONFIGWRITE1
Var CONFIGWRITE2
Var CONFIGWRITE3
Var FILERECODE1
Var FILERECODE2

Page Custom ShowCustom LeaveCustom

Function ShowCustom
	InstallOptions::initDialog "$INI"
	Pop $hwnd
	GetDlgItem $0 $HWND 1206
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1208
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1209
	ShowWindow $0 0
	StrCpy $FUNCTION LineFind
	StrCpy $LINEREAD2 10
	StrCpy $TEXTCOMPARE3 FastDiff
	StrCpy $CONFIGREAD1 "$WINDIR\system.ini"
	StrCpy $CONFIGREAD2 "shell="
	StrCpy $FILERECODE2 CharToOem
	InstallOptions::show
	Pop $0
FunctionEnd

Function LeaveCustom
	ReadINIStr $0 $INI "Settings" "State"
 	ReadINIStr $R0 $INI "Field 1" "State" 	
	ReadINIStr $R1 $INI "Field 2" "State"
 	ReadINIStr $R2 $INI "Field 3" "State"
 	ReadINIStr $R3 $INI "Field 4" "State"
 	ReadINIStr $R4 $INI "Field 5" "State"
 	ReadINIStr $R5 $INI "Field 6" "State"
	StrCpy $R4 $R4 8
	StrCpy $R5 $R5 8
	StrCpy $6 0
	StrCpy $7 '$${'
	StrCpy $8 'r'
	StrCpy $9 'n'

	StrCmp $0 10 Log
	StrCmp $0 9 ViewOrEdit
	StrCmp $0 0 Enter
	goto MainSend

	Log:
	Exec 'notepad.exe $LOG'
	Abort

	ViewOrEdit:
	StrCmp $FUNCTION FileReadFromEnd 0 Edit
	StrCmp $VIEW '' 0 ViewFileReadFromEndCallback
	GetTempFileName $VIEW $PLUGINSDIR
	StrCpy $7 '$$'
	FileOpen $0 $VIEW w
	FileWrite $0 `Function FileReadFromEndCallback$\r$\n`
	FileWrite $0 `	MessageBox MB_OKCANCEL '$7$$9       "Line"=[$$9]$7\$9$7$$8           "#"=[$$8]$7\$9$7$$7          "-#"=[$$7]' IDOK +2$\r$\n`
	FileWrite $0 `	StrCpy $$R0 StopFileReadFromEnd$\r$\n$\r$\n`
	FileWrite $0 `	Push $$R0$\r$\n`
	FileWrite $0 `FunctionEnd$\r$\n`
	FileClose $0
	StrCpy $7 '$${'
	SetFileAttributes $VIEW READONLY
	ViewFileReadFromEndCallback:
	Exec 'notepad.exe $VIEW'
	Abort

	Edit:
	StrCmp $CALLBACK '' +5
	StrCmp $6$R6 '0$R0$R4$R5' showproject
	StrCmp $R6 '$R0$R4$R5' +3
	Delete $CALLBACK
	StrCpy $CALLBACK ''
	StrCpy $R6 '$R0$R4$R5'

	#Project#
	StrCmp $6$R0 "01. LineFind" 0 +5
	IfFileExists $CALLBACK +2
	GetTempFileName $CALLBACK $PLUGINSDIR
	FileOpen $0 $CALLBACK w
	goto function
	IfFileExists $PROJECT +2
	GetTempFileName $PROJECT $PLUGINSDIR
	FileOpen $0 $PROJECT w

	#Name#
	FileWrite $0 'Name "$FUNCTION"$\r$\n'
	FileWrite $0 'OutFile "$PROJECT.exe"$\r$\n$\r$\n'

	#!include#
	StrCmp $R0$R4 '1. LineFindExample5' 0 TextFuncInclude
	IfFileExists '$EXEDIR\WordFunc.nsh' 0 +3
	FileWrite $0 '!include "$EXEDIR\WordFunc.nsh"$\r$\n'
	goto +2
	FileWrite $0 '!include "WordFunc.nsh"$\r$\n'
	FileWrite $0 '!insertmacro WordFind$\r$\n'
	FileWrite $0 '!insertmacro WordFindS$\r$\n'
	FileWrite $0 '!insertmacro WordFind2X$\r$\n'
	FileWrite $0 '!insertmacro WordFind2XS$\r$\n'
	FileWrite $0 '!insertmacro WordFind3X$\r$\n'
	FileWrite $0 '!insertmacro WordFind3XS$\r$\n'
	FileWrite $0 '!insertmacro WordReplace$\r$\n'
	FileWrite $0 '!insertmacro WordReplaceS$\r$\n'
	FileWrite $0 '!insertmacro WordAdd$\r$\n'
	FileWrite $0 '!insertmacro WordAddS$\r$\n'
	FileWrite $0 '!insertmacro WordInsert$\r$\n'
	FileWrite $0 '!insertmacro WordInsertS$\r$\n'
	FileWrite $0 '!insertmacro StrFilter$\r$\n'
	FileWrite $0 '!insertmacro StrFilterS$\r$\n'
	TextFuncInclude:
	IfFileExists '$EXEDIR\TextFunc.nsh' 0 +3
	FileWrite $0 '!include "$EXEDIR\TextFunc.nsh"$\r$\n'
	goto +2
	FileWrite $0 '!include "TextFunc.nsh"$\r$\n'
	FileWrite $0 '!insertmacro $FUNCTION$\r$\n'
	StrCmp $FUNCTION TextCompare +2
	FileWrite $0 '!insertmacro TrimNewLines$\r$\n'

	#Section#
	FileWrite $0 '$\r$\nSection -empty$\r$\n'
	FileWrite $0 'SectionEnd$\r$\n$\r$\n'

	#Function .onInit#
	FileWrite $0 'Function .onInit$\r$\n'
	StrCmp $R0$R5 "6. TextCompareExample1" 0 TextCompareExample235
	FileWrite $0 '	StrCpy $$R0 ""$\r$\n'
	FileWrite $0 '	$7TextCompare} "$R1" "$R2" "$R3" "$R5"$\r$\n'
	FileWrite $0 '	IfErrors error$\r$\n'
	FileWrite $0 '	StrCmp $$R0 NotEqual 0 +2$\r$\n'
	FileWrite $0 '	MessageBox MB_OK "             Files differ" IDOK +2$\r$\n'
	FileWrite $0 '	MessageBox MB_OK "           Files identical"$\r$\n'
	FileWrite $0 '	goto end$\r$\n$\r$\n'
	goto endoninit
	TextCompareExample235:
	StrCmp $R0$R5 "6. TextCompareExample2" +3
	StrCmp $R0$R5 "6. TextCompareExample3" +2
	StrCmp $R0$R5 "6. TextCompareExample5" 0 TextCompareExample4
	FileWrite $0 '	StrCpy $$R0 "$R1"$\r$\n'
	FileWrite $0 '	StrCpy $$R1 "$R2"$\r$\n$\r$\n'
	FileWrite $0 '	GetTempFileName $$R2$\r$\n'
	FileWrite $0 '	FileOpen $$R3 $$R2 w$\r$\n'
	FileWrite $0 '	FileWrite $$R3 "$$R0 | $$R1$$\$8$$\$9"$\r$\n'
	FileWrite $0 '	$7TextCompare} "$$R0" "$$R1" "$R3" "$R5"$\r$\n'
	FileWrite $0 '	IfErrors error$\r$\n'
	FileWrite $0 '	Exec "notepad.exe $$R2"$\r$\n'
	FileWrite $0 '	goto end$\r$\n$\r$\n'
	goto endoninit
	TextCompareExample4:
	StrCmp $R0$R5 "6. TextCompareExample4" 0 LineFindExample123456
	FileWrite $0 '	StrCpy $$R0 "$R1"$\r$\n'
	FileWrite $0 '	StrCpy $$R1 "$R2"$\r$\n$\r$\n'
	FileWrite $0 '	GetTempFileName $$R2$\r$\n'
	FileWrite $0 '	FileOpen $$R3 $$R2 w$\r$\n'
	FileWrite $0 '	FileWrite $$R3 "$$R0 | $$R1$$\$8$$\$9"$\r$\n'
	FileWrite $0 '	$7TextCompare} "$$R0" "$$R1" "$R3" "$R5"$\r$\n'
	FileWrite $0 '	IfErrors error$\r$\n'
	FileWrite $0 '	FileWrite $$R3 "$$\$8$$\$9$$R1 | $$R0$$\$8$$\$9"$\r$\n'
	FileWrite $0 '	$7TextCompare} "$$R1" "$$R0" "$R3" "$R5"$\r$\n'
	FileWrite $0 '	FileClose $$R3$\r$\n'
	FileWrite $0 '	IfErrors error$\r$\n'
	FileWrite $0 '	Exec "notepad.exe $$R2"$\r$\n$\r$\n'
	FileWrite $0 '	goto end$\r$\n$\r$\n'
	goto endoninit
	LineFindExample123456:
	FileWrite $0 '	$7$FUNCTION} "$R1" "$R2" "$R3" "$R4"$\r$\n'
	FileWrite $0 '	IfErrors error$\r$\n'
	FileWrite $0 '	MessageBox MB_YESNO "          Open output file?" IDNO end$\r$\n'
	FileWrite $0 '	StrCmp "$R2" "" 0 +3$\r$\n'
	FileWrite $0 `	Exec 'notepad.exe "$R1"'$\r$\n`
	FileWrite $0 '	goto end$\r$\n'
	FileWrite $0 '	SearchPath $$R2 "$R2"$\r$\n'
	FileWrite $0 `	Exec 'notepad.exe "$$R2"'$\r$\n`
	FileWrite $0 '	goto end$\r$\n$\r$\n'
	endoninit:
	FileWrite $0 '	error:$\r$\n'
	FileWrite $0 '	MessageBox MB_OK "Error"$\r$\n$\r$\n'
	FileWrite $0 '	end:$\r$\n'
	FileWrite $0 '	Quit$\r$\n'
	FileWrite $0 'FunctionEnd$\r$\n$\r$\n'
	#FunctionEnd#


	#Function CallBack#
	StrCmp $CALLBACK '' 0 close
	function:
	StrCmp $R0 '1. LineFind' 0 +8
	FileWrite $0 'Function $R4$\r$\n'
	StrCmp $R4 "Example1" Example1LF
	StrCmp $R4 "Example2" Example2LF
	StrCmp $R4 "Example3" Example3LF
	StrCmp $R4 "Example4" Example4LF
	StrCmp $R4 "Example5" Example5LF
	StrCmp $R4 "Example6" Example6LF

	FileWrite $0 'Function $R5$\r$\n'
	StrCmp $R5 "Example1" Example1TC
	StrCmp $R5 "Example2" Example2TC
	StrCmp $R5 "Example3" Example3TC
	StrCmp $R5 "Example4" Example4TC
	StrCmp $R5 "Example5" Example3TC

	Example1LF:
	FileWrite $0 "	$7TrimNewLines} '$$R9' $$R9$\r$\n"
	FileWrite $0 "	StrCpy $$R9 $$R9 '' 2       ;delete first two symbols$\r$\n"
	FileWrite $0 "	StrCpy $$R9 '$$R9$$\$8$$\$9'$\r$\n$\r$\n"
	goto endwrite
	Example2LF:
	FileWrite $0 "	$7TrimNewLines} '$$R9' $$R9$\r$\n"
	FileWrite $0 "	StrCpy $$R9 '$$R9   ~Changed line ($$R8)~$$\$8$$\$9'$\r$\n$\r$\n"
	goto endwrite
	Example3LF:
	FileWrite $0 "	StrCpy $$0 SkipWrite$\r$\n$\r$\n"
	goto endwrite
	Example4LF:
	FileWrite $0 "	FileWrite $$R4 '---First Line---$$\$8$$\$9'$\r$\n"
	FileWrite $0 "	FileWrite $$R4 '---Second Line ...---$$\$8$$\$9'$\r$\n$\r$\n"
	goto endwrite
	Example5LF:
	FileWrite $0 "	; You can use:$\r$\n"
	FileWrite $0 "	; $7WordFind}|$7WordFindS}|$7WordFind2X}|$7WordFind2XS}|$\r$\n"
	FileWrite $0 "	; $7WordFind3X}|$7WordFind3XS}|$7WordReplace}|$7WordReplaceS}|$\r$\n"
	FileWrite $0 "	; $7WordAdd}|$7WordAddS}|$7WordInsert}|$7WordInsertS}|$\r$\n"
	FileWrite $0 "	; $7StrFilter}|$7StrFilterS}$\r$\n$\r$\n"
	FileWrite $0 "	$7WordReplace} '$$R9' ' ' '_' '+*' $$R9$\r$\n$\r$\n"
	goto endwrite
	Example6LF:
	FileWrite $0 '	;(Cut lines from a line to another line (also including that line))$\r$\n'
	FileWrite $0 '	StrCmp $$R0 finish stop$\r$\n'
	FileWrite $0 '	StrCmp $$R0 start finish$\r$\n'
	FileWrite $0 '	StrCmp $$R9 "Start Line$$\$8$$\$9" 0 skip$\r$\n'
	FileWrite $0 '	StrCpy $$R0 start$\r$\n'
	FileWrite $0 '	StrCpy $$R1 $$R9$\r$\n'
	FileWrite $0 '	goto code$\r$\n'
	FileWrite $0 '	finish:$\r$\n'
	FileWrite $0 '	StrCmp $$R9 "Finish Line$$\$8$$\$9" 0 code$\r$\n'
	FileWrite $0 '	StrCpy $$R0 finish$\r$\n'
	FileWrite $0 '	StrCpy $$R2 $$R8$\r$\n'
	FileWrite $0 '	goto code$\r$\n'
	FileWrite $0 '	skip:$\r$\n'
	FileWrite $0 '	StrCpy $$0 SkipWrite$\r$\n'
	FileWrite $0 '	goto output$\r$\n'
	FileWrite $0 '	stop:$\r$\n'
	FileWrite $0 '	StrCpy $$0 StopLineFind$\r$\n'
	FileWrite $0 '	goto output$\r$\n$\r$\n'
	FileWrite $0 '	;;(Delete lines from a line to another line (also including that line))$\r$\n'
	FileWrite $0 '	; StrCmp $$R0 finish code$\r$\n'
	FileWrite $0 '	; StrCmp $$R0 start finish$\r$\n'
	FileWrite $0 '	; StrCmp $$R9 "Start Line$$\$8$$\$9" 0 code$\r$\n'
	FileWrite $0 '	; StrCpy $$R0 start$\r$\n'
	FileWrite $0 '	; StrCpy $$R1 $$R8$\r$\n'
	FileWrite $0 '	; goto skip$\r$\n'
	FileWrite $0 '	; finish:$\r$\n'
	FileWrite $0 '	; StrCmp $$R9 "Finish Line$$\$8$$\$9" 0 skip$\r$\n'
	FileWrite $0 '	; StrCpy $$R0 finish$\r$\n'
	FileWrite $0 '	; StrCpy $$R2 $$R8$\r$\n'
	FileWrite $0 '	; skip:$\r$\n'
	FileWrite $0 '	; StrCpy $$0 SkipWrite$\r$\n'
	FileWrite $0 '	; goto output$\r$\n$\r$\n'
	FileWrite $0 '	code:$\r$\n'
	FileWrite $0 '	;...$\r$\n$\r$\n'
	FileWrite $0 '	output:$\r$\n'
	goto endwrite
	Example1TC:
	FileWrite $0 "	StrCpy $$R0 NotEqual$\r$\n"
	FileWrite $0 "	StrCpy $$0 StopTextCompare$\r$\n$\r$\n"
	goto endwrite
	Example2TC:
	FileWrite $0 "	FileWrite $$R3 '$$8=$$9'$\r$\n"
	FileWrite $0 "	FileWrite $$R3 '$$6=$$7$$\$8$$\$9'$\r$\n$\r$\n"
	goto endwrite
	Example3TC:
	FileWrite $0 "	FileWrite $$R3 '$$8|$$6=$$9'$\r$\n$\r$\n"
	goto endwrite
	Example4TC:
	FileWrite $0 "	FileWrite $$R3 '$$8=$$9'$\r$\n$\r$\n"
	goto endwrite
	endwrite:
	FileWrite $0 '	Push $$0$\r$\n'
	FileWrite $0 'FunctionEnd$\r$\n'
	close:
	FileClose $0
	goto $6
	#FunctionEnd#

	showproject:
	StrCmp $R0 '1. LineFind' 0 +3
	ExecWait 'notepad.exe $CALLBACK'
	goto +4
	SetFileAttributes $PROJECT READONLY
	ExecWait 'notepad.exe $PROJECT'
	SetFileAttributes $PROJECT NORMAL
	Abort

	MainSend:
	GetDlgItem $0 $HWND 1210
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $0 $HWND 1203
	ShowWindow $0 1
	EnableWindow $0 1
	GetDlgItem $0 $HWND 1204
	ShowWindow $0 1
	EnableWindow $0 1
	GetDlgItem $0 $HWND 1205
	EnableWindow $0 1
	GetDlgItem $0 $HWND 1206
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1207
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1208
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1209
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1211
	EnableWindow $0 1

	StrCmp $FUNCTION LineFind 0 +5
	StrCpy $LINEFIND1 $R1
	StrCpy $LINEFIND2 $R2
	StrCpy $LINEFIND3 $R3
	goto LineFindSend
	StrCmp $FUNCTION LineRead 0 +4
	StrCpy $LINEREAD1 $R1
	StrCpy $LINEREAD2 $R2
	goto LineFindSend
	StrCmp $FUNCTION FileReadFromEnd 0 +3
	StrCpy $FILEREADFROMEND1 $R1
	goto LineFindSend
	StrCmp $FUNCTION LineSum 0 +3
	StrCpy $LINESUM1 $R1
	goto LineFindSend
	StrCmp $FUNCTION FileJoin 0 +5
	StrCpy $FILEJOIN1 $R1
	StrCpy $FILEJOIN2 $R2
	StrCpy $FILEJOIN3 $R3
	goto LineFindSend
	StrCmp $FUNCTION TextCompare 0 +5
	StrCpy $TEXTCOMPARE1 $R1
	StrCpy $TEXTCOMPARE2 $R2
	StrCpy $TEXTCOMPARE3 $R3
	goto LineFindSend
	StrCmp $FUNCTION ConfigRead 0 +4
	StrCpy $CONFIGREAD1 $R1
	StrCpy $CONFIGREAD2 $R2
	goto LineFindSend
	StrCmp $FUNCTION ConfigWrite 0 +5
	StrCpy $CONFIGWRITE1 $R1
	StrCpy $CONFIGWRITE2 $R2
	StrCpy $CONFIGWRITE3 $R3
	goto LineFindSend
	StrCmp $FUNCTION FileRecode 0 +3
	StrCpy $FILERECODE1 $R1
	StrCpy $FILERECODE2 $R2

	LineFindSend:
	StrCmp $R0 "1. LineFind" 0 LineReadSend
	StrCmp $FUNCTION LineFind 0 LineFindSend2
	StrCmp $R4 "Example1" 0 +3
	StrCpy $LINEFIND3 "3:-1"
	goto LineFindSend2
	StrCmp $R4 "Example2" 0 +3
	StrCpy $LINEFIND3 "{5:12 15 -6:-5 -1}"
	goto LineFindSend2
	StrCmp $R4 "Example3" 0 +3
	StrCpy $LINEFIND3 "2:3 10:-5 -3:-2"
	goto LineFindSend2
	StrCmp $R4 "Example4" 0 +3
	StrCpy $LINEFIND3 "10"
	goto LineFindSend2
	StrCmp $R4 "Example5" 0 +3
	StrCpy $LINEFIND3 "1:-1"
	goto LineFindSend2
	StrCmp $R4 "Example6" 0 +3
	StrCpy $LINEFIND3 ""
	goto LineFindSend2
	StrCmp $R4 "Example7" 0 +2
	StrCpy $LINEFIND3 "1:-1"

	LineFindSend2:
	StrCpy $FUNCTION LineFind
	StrCmp $LINEFIND2 '/NUL' 0 +2
	StrCpy $LINEFIND2 ''
	GetDlgItem $0 $HWND 1201
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$LINEFIND1"
	GetDlgItem $0 $HWND 1203
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$LINEFIND2"
	GetDlgItem $0 $HWND 1205
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$LINEFIND3"
	GetDlgItem $0 $HWND 1207
	ShowWindow $0 1
	GetDlgItem $0 $HWND 1211
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Edit"
	GetDlgItem $0 $HWND 1212
	ShowWindow $0 1
	StrCmp $LOG '' +2
	EnableWindow $0 1
	GetDlgItem $0 $HWND 1213
	SendMessage $0 ${WM_SETTEXT} 1 "STR:InputFile"
	GetDlgItem $0 $HWND 1214
	SendMessage $0 ${WM_SETTEXT} 1 "STR:OutputFile"
	GetDlgItem $0 $HWND 1215
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Range"
	GetDlgItem $0 $HWND 1216
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Function"

	StrCmp $R4 "Example7" 0 +9
	GetDlgItem $0 $HWND 1203
	EnableWindow $0 0
	SendMessage $0 ${WM_ENABLE} 1 0
	SendMessage $0 ${WM_SETTEXT} 1 "STR:/NUL"
	GetDlgItem $0 $HWND 1204
	EnableWindow $0 0
	GetDlgItem $0 $HWND 1211
	EnableWindow $0 0
	abort


	LineReadSend:
	StrCmp $R0 "2. LineRead" 0 FileReadFromEndSend
	StrCpy $FUNCTION LineRead
	GetDlgItem $0 $HWND 1201
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$LINEREAD1"
	GetDlgItem $0 $HWND 1203
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$LINEREAD2"
	GetDlgItem $0 $HWND 1204
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1205
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1211
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1212
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1213
	SendMessage $0 ${WM_SETTEXT} 1 "STR:InputFile"
	GetDlgItem $0 $HWND 1214
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Line #"
	GetDlgItem $0 $HWND 1215
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $0 $HWND 1216
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	Abort

	FileReadFromEndSend:
	StrCmp $R0 "3. FileReadFromEnd" 0 LineSumSend
	StrCpy $FUNCTION FileReadFromEnd
	GetDlgItem $0 $HWND 1201
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$FILEREADFROMEND1"
	GetDlgItem $0 $HWND 1203
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1204
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1205
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1209
	ShowWindow $0 1
	GetDlgItem $0 $HWND 1211
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:View"
	GetDlgItem $0 $HWND 1212
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1213
	SendMessage $0 ${WM_SETTEXT} 1 "STR:InputFile"
	GetDlgItem $0 $HWND 1214
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $0 $HWND 1215
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $0 $HWND 1216
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Function"
	Abort

	LineSumSend:
	StrCmp $R0 "4. LineSum" 0 FileJoinSend
	StrCpy $FUNCTION LineSum
	GetDlgItem $0 $HWND 1201
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$LINESUM1"
	GetDlgItem $0 $HWND 1203
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1204
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1205
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1211
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1212
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1213
	SendMessage $0 ${WM_SETTEXT} 1 "STR:InputFile"
	GetDlgItem $0 $HWND 1214
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $0 $HWND 1215
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $0 $HWND 1216
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	Abort

	FileJoinSend:
	StrCmp $R0 "5. FileJoin" 0 TextCompareSend
	StrCpy $FUNCTION FileJoin
	GetDlgItem $0 $HWND 1201
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$FILEJOIN1"
	GetDlgItem $0 $HWND 1203
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$FILEJOIN2"
	GetDlgItem $0 $HWND 1204
	ShowWindow $0 1
	GetDlgItem $0 $HWND 1205
	ShowWindow $0 1
	EnableWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$FILEJOIN3"
	GetDlgItem $0 $HWND 1206
	ShowWindow $0 1
	GetDlgItem $0 $HWND 1211
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1212
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1213
	SendMessage $0 ${WM_SETTEXT} 1 "STR:InputFile1"
	GetDlgItem $0 $HWND 1214
	SendMessage $0 ${WM_SETTEXT} 1 "STR:InputFile2"
	GetDlgItem $0 $HWND 1215
	SendMessage $0 ${WM_SETTEXT} 1 "STR:OutputFile"
	GetDlgItem $0 $HWND 1216
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	Abort

	TextCompareSend:
	StrCmp $R0 "6. TextCompare" 0 ConfigReadSend
	StrCmp $FUNCTION TextCompare 0 TextCompareSend2
	StrCmp $R5 "Example1" 0 +3
	StrCpy $TEXTCOMPARE3 "FastDiff"
	goto TextCompareSend2
	StrCmp $R5 "Example2" 0 +3
	StrCpy $TEXTCOMPARE3 "FastDiff"
	goto TextCompareSend2
	StrCmp $R5 "Example3" 0 +3
	StrCpy $TEXTCOMPARE3 "FastEqual"
	goto TextCompareSend2
	StrCmp $R5 "Example4" 0 +3
	StrCpy $TEXTCOMPARE3 "SlowDiff"
	goto TextCompareSend2
	StrCmp $R5 "Example5" 0 +2
	StrCpy $TEXTCOMPARE3 "SlowEqual"

	TextCompareSend2:
	StrCpy $FUNCTION TextCompare
	GetDlgItem $0 $HWND 1201
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$TEXTCOMPARE1"
	GetDlgItem $0 $HWND 1203
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$TEXTCOMPARE2"
	GetDlgItem $0 $HWND 1204
	ShowWindow $0 1
	GetDlgItem $0 $HWND 1205
	ShowWindow $0 1
	EnableWindow $0 0
	SendMessage $0 ${WM_ENABLE} 1 0
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$TEXTCOMPARE3"
	GetDlgItem $0 $HWND 1208
	ShowWindow $0 1
	GetDlgItem $0 $HWND 1211
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:View"
	GetDlgItem $0 $HWND 1212
	ShowWindow $0 1
	GetDlgItem $0 $HWND 1213
	SendMessage $0 ${WM_SETTEXT} 1 "STR:TextFile1"
	GetDlgItem $0 $HWND 1214
	SendMessage $0 ${WM_SETTEXT} 1 "STR:TextFile2"
	GetDlgItem $0 $HWND 1215
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Option"
	GetDlgItem $0 $HWND 1216
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Function"
	abort

	ConfigReadSend:
	StrCmp $R0 "7. ConfigRead" 0 ConfigWriteSend
	StrCpy $FUNCTION ConfigRead
	GetDlgItem $0 $HWND 1201
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$CONFIGREAD1"
	GetDlgItem $0 $HWND 1203
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$CONFIGREAD2"
	GetDlgItem $0 $HWND 1204
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1205
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1211
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1212
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1213
	SendMessage $0 ${WM_SETTEXT} 1 "STR:InputFile"
	GetDlgItem $0 $HWND 1214
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Entry"
	GetDlgItem $0 $HWND 1215
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $0 $HWND 1216
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	Abort

	ConfigWriteSend:
	StrCmp $R0 "8. ConfigWrite" 0 FileRecodeSend
	StrCpy $FUNCTION ConfigWrite
	GetDlgItem $0 $HWND 1201
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$CONFIGWRITE1"
	GetDlgItem $0 $HWND 1203
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$CONFIGWRITE2"
	GetDlgItem $0 $HWND 1204
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1205
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$CONFIGWRITE3"
	GetDlgItem $0 $HWND 1211
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1212
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1213
	SendMessage $0 ${WM_SETTEXT} 1 "STR:InputFile"
	GetDlgItem $0 $HWND 1214
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Entry"
	GetDlgItem $0 $HWND 1215
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Value"
	GetDlgItem $0 $HWND 1216
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	Abort

	FileRecodeSend:
	StrCmp $R0 "9. FileRecode" 0 Abort
	StrCpy $FUNCTION FileRecode
	GetDlgItem $0 $HWND 1201
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$FILERECODE1"
	GetDlgItem $0 $HWND 1203
	ShowWindow $0 1
	SendMessage $0 ${WM_SETTEXT} 1 "STR:$FILERECODE2"
	GetDlgItem $0 $HWND 1204
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1205
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1211
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1212
	ShowWindow $0 0
	GetDlgItem $0 $HWND 1213
	SendMessage $0 ${WM_SETTEXT} 1 "STR:InputFile"
	GetDlgItem $0 $HWND 1214
	SendMessage $0 ${WM_SETTEXT} 1 "STR:Format"
	GetDlgItem $0 $HWND 1215
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	GetDlgItem $0 $HWND 1216
	SendMessage $0 ${WM_SETTEXT} 1 "STR:"
	Abort

;=Enter=
	Enter:
	StrCmp $R1 '' 0 +3
	StrCpy $0 'Choose InputFile'
	goto send
	IfFileExists $R1 +3
	StrCpy $0 'InputFile is not exist'
	goto send

	StrCmp $R0 "1. LineFind" LineFindRead
	StrCmp $R0 "2. LineRead" LineRead
	StrCmp $R0 "3. FileReadFromEnd" FileReadFromEnd
	StrCmp $R0 "4. LineSum" LineSum
	StrCmp $R0 "5. FileJoin" FileJoin
	StrCmp $R0 "6. TextCompare" LineFind-TextCompare
	StrCmp $R0 "7. ConfigRead" ConfigRead
	StrCmp $R0 "8. ConfigWrite" ConfigWrite
	StrCmp $R0 "9. FileRecode" FileRecode
	Abort

	LineFindRead:
	StrCmp $R4 "Example7" 0 LineFind-TextCompare
	${LineFind} '$R1' '/NUL' '$R3' LineFindCallback
	IfErrors error
	StrCmp $R0 StopLineFind 0 done
	StrCpy $0 'stopped'
	goto send

	LineFind-TextCompare:
	GetLabelAddress $6 LineFindBack
	goto Edit
	LineFindBack:
	FileClose $0
	StrCmp $R0 "6. TextCompare" Compile
	StrCmp $CALLBACK '' Compile
	${FileJoin} "$PROJECT" "$CALLBACK" ""

	Compile:
	StrCmp $LOG '' 0 +4
	GetTempFileName $LOG $PLUGINSDIR
	GetDlgItem $0 $HWND 1212
	EnableWindow $0 1
	ReadRegStr $0 HKLM "SOFTWARE\NSIS" ""
	IfErrors 0 +2
	StrCpy $0 "${NSISDIR}"
	nsExec::Exec '"$0\makensis.exe" /O$LOG $PROJECT'
	Pop $0
	StrCmp $0 0 0 +6
	ExecWait '$PROJECT.exe' $0
	Delete $PROJECT
	Delete $PROJECT.exe
	StrCpy $PROJECT ''
	goto done
	MessageBox MB_YESNO|MB_ICONEXCLAMATION "Compile error. Open log?" IDNO +2
	Exec 'notepad.exe $LOG'
	StrCpy $0 "Compile Error"
	goto send

	LineRead:
	${LineRead} "$R1" "$R2" $0
	IfErrors error send

	FileReadFromEnd:
	${FileReadFromEnd} "$R1" "FileReadFromEndCallback"
	IfErrors error
	StrCmp $R0 StopFileReadFromEnd 0 done
	StrCpy $0 'stopped'
	goto send

	LineSum:
	${LineSum} "$R1" $0
	IfErrors error send

	FileJoin:
	${FileJoin} "$R1" "$R2" "$R3"
	IfErrors error
	MessageBox MB_YESNO "          Open output file?" IDNO done
	StrCmp $R3 '' 0 +3
	Exec '"notepad.exe" "$R1"'
	goto done
	Exec '"notepad.exe" "$R3"'
	goto done

	ConfigRead:
	${ConfigRead} "$R1" "$R2" $0
	IfErrors error send

	ConfigWrite:
	${ConfigWrite} "$R1" "$R2" "$R3" $0
	IfErrors error
	MessageBox MB_YESNO "          Open output file?" IDNO send
	Exec '"notepad.exe" "$R1"'
	goto send

	FileRecode:
	${FileRecode} "$R1" "$R2"
	IfErrors error
	MessageBox MB_YESNO "          Open output file?" IDNO done
	Exec '"notepad.exe" "$R1"'
	goto done

	error:
	StrCpy $0 'error'
	goto send

	done:
	StrCpy $0 'Done'

	send:
	GetDlgItem $1 $HWND 1210
	SendMessage $1 ${WM_SETTEXT} 1 "STR:$0"

	abort:
	Abort
FunctionEnd

Function LineFindCallback
	MessageBox MB_OKCANCEL '$$R9       "Line"=[$R9]$\n$$R8           "#"=[$R8]$\n$$R7          "-#"=[$R7]$\n$$R6   "Range"=[$R6]$\n$$R5     "Read"=[$R5]$\n$$R4     "Write"=[$R4]' IDOK +2
	StrCpy $R0 StopLineFind

	Push $R0
FunctionEnd

Function FileReadFromEndCallback
	MessageBox MB_OKCANCEL '$$9       "Line"=[$9]$\n$$8           "#"=[$8]$\n$$7          "-#"=[$7]' IDOK +2
	StrCpy $R0 StopFileReadFromEnd

	Push $R0
FunctionEnd

Function .onInit
	InitPluginsDir
	GetTempFileName $INI $PLUGINSDIR
	File /oname=$INI "TextFunc.ini"
FunctionEnd

Page instfiles

Section -Empty
SectionEnd