Radio

Gui, Color, 99CCFF

ReadMyTextPickerFile()

Gui, Add, Radio, x12 y20 w90 h20 vRadio1, CASH

Gui, Add, Radio, x12 y50 w90 h20 vRadio2, WIRE

Gui, Add, Radio, x12 y80 w90 h20 vRadio3, CHECK

Gui, Add, GroupBox, x2 y0 w110 h110 , GroupBox

Gui, Add, GroupBox, x122 y0 w300 h110 , GroupBox

Gui, Add, Edit, x132 y20 w130 h20 vTicketNumber, %TicketNumberTemp%

Gui, Add, Text, x272 y20 w140 h20 , Ticket Number

Gui, Add, Edit, x132 y50 w130 h20 vText1,

Gui, Add, Text, x272 y50 w140 h20 , Text 1

Gui, Add, Edit, x132 y80 w130 h20 ,

Gui, Add, Text, x272 y80 w140 h20 vText2, Text 2

Gui, Add, Button, x162 y120 w100 h30 , Submit

Gui, Show, x127 y87 h160 w431, Text_Picker

Return

;*****************************************************************************************************************************************

;Submit

ButtonSubmit:

Gui , Submit , NoHide

FileCreateDir , %A_MyDocuments%\AHK\MyTextPicker

FileDelete %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt

FileAppend , %Radio1%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 1

FileAppend , %Radio2%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 2

FileAppend , %Radio3%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 3

FileAppend , %TicketNumber%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 4

FileAppend , %Text1%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 5

FileAppend , %Text2%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 6

ReadMyTextPickerFile()

If (Radio1Temp = 1) {

FileDelete %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt

FileAppend , CASH`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 1

FileAppend , CASH`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 2

FileAppend , CASH`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 3

FileAppend , %TicketNumber%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 4

FileAppend , %Text1%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 5

FileAppend , %Text2%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 6

}

If (Radio2Temp = 1) {

FileDelete %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt

FileAppend , WIRE`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 1

FileAppend , WIRE`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 2

FileAppend , WIRE`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 3

FileAppend , %TicketNumber%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 4

FileAppend , %Text1%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 5

FileAppend , %Text2%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 6

}

If (Radio3Temp = 1) {

FileDelete %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt

FileAppend , CHECK`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 1

FileAppend , CHECK`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 2

FileAppend , CHECK`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 3

FileAppend , %TicketNumber%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 4

FileAppend , %Text1%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 5

FileAppend , %Text2%`n , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt ; 6

}

return

GuiClose:

ExitApp

ReadMyTextPickerFile() {

Global

Loop , Read , %A_MyDocuments%\AHK\MyTextPicker\MyTextPickerFile.txt

{

If A_Index = 1

Radio1Temp := A_LoopReadLine

If A_Index = 2

Radio2Temp := A_LoopReadLine

If A_Index = 3

Radio3Temp := A_LoopReadLine

If A_Index = 4

TicketNumberTemp := A_LoopReadLine

If A_Index = 5

Text1Temp := A_LoopReadLine

If A_Index = 6

Text2Temp := A_LoopReadLine

}

Return

}

Return