AutoHotkey Community

      Loop, parse, 3daySSP, `n, `r
         {
            If A_LoopField =
               Continue
            Gui,2: Destroy
            ThisRecord = %A_LoopField%
            APO:
            Gui,2:Add,Text, xm Section,`nPut cheque details here`n`nSERIAL - BSB - ACCT -  AMT`n%ThisRecord%`n
            Gui,2:Add,Text, xm Section,Post Office Name from APO stamp on voucher.
            Gui,2:Add,Edit, xm w420 limit50 Uppercase vPostOffice,
            Gui,2:Add,Text, xm Section , Date from APO stamp on voucher.
            Gui,2:Add,Edit, xm w420 vStampDate,
            Gui,2:Add, Button, xm wp gcreateSSPfinal, Update the APO Office and Date of processing
            Gui,2: Show, , Update the APO Office and Date of processing.
            Return
         createSSPfinal:
         Gui,2: Submit, nohide
         3daySSPfinal .= PostOffice . A_Tab . StampDate . A_Tab . ThisRecord  . "`n"
         3daySSPemail .= PostOffice . A_Tab . StampDate . A_Tab . ThisRecord  . "`%0A"
         ThisRecord =
         PostOffice =
         StampDate =
         Continue         
}

3daySSP =
(
test123
test456
test789
)
      
      Loop, parse, 3daySSP, `n, `r
         {
            If A_LoopField =
               Continue
            Gui,2: Destroy
            ThisRecord = %A_LoopField%
            APO:
            Gui,Add,Text, xm Section,`nPut cheque details here`n`nSERIAL - BSB - ACCT -  AMT`n%ThisRecord%`n
            Gui,Add,Text, xm Section,Post Office Name from APO stamp on voucher.
            Gui,Add,Edit, xm w420 limit50 Uppercase vPostOffice,
            Gui,Add,Text, xm Section , Date from APO stamp on voucher.
            Gui,Add,Edit, xm w420 vStampDate,
            Gui,Add, Button, xm wp gcreateSSPfinal, Update the APO Office and Date of processing
            Gui,Show, , Update the APO Office and Date of processing. Items is %A_Index%
            Return
         createSSPfinal:
         Gui,Submit, nohide
         3daySSPfinal .= PostOffice . A_Tab . StampDate . A_Tab . ThisRecord  . "`n"
         3daySSPemail .= PostOffice . A_Tab . StampDate . A_Tab . ThisRecord  . "`%0A"
         Msgbox % 3daySSPfinal
         ThisRecord =
         PostOffice =
         StampDate =
         Continue
         }

3daySSP =
(
test123
test456
test789
)

counter = 0
limiter = 1
Loop, Parse, 3daySSP, `n, `r
{
    Array%A_Index% := A_LoopField
    counter++     
}

Gui, Add,Text, xm Section vlabel1,`nPut cheque details here`n`nSERIAL - BSB - ACCT -  AMT`n%Array1%`n
Gui, Add,Text, xm Section,Post Office Name from APO stamp on voucher.
Gui, Add,Edit, xm w420 limit50 Uppercase vPostOffice,
Gui, Add,Text, xm Section , Date from APO stamp on voucher.
Gui, Add,Edit, xm w420 vStampDate,
Gui, Add, Button, xm wp gcreateSSPfinal, Update the APO Office and Date of processing
Gui, Show, , Update the APO Office and Date of processing. Items is %A_Index%
Return

createSSPfinal:
Gui,Submit, nohide
if limiter > counter ; after all the fields have been set.. show message
{
    Msgbox, 32, All fields set!
    Return
}

3daySSPfinal .= PostOffice . A_Tab . StampDate . A_Tab . ThisRecord  . "`n"
3daySSPemail .= PostOffice . A_Tab . StampDate . A_Tab . ThisRecord  . "`%0A"
Msgbox % 3daySSPfinal
ThisRecord =
PostOffice =
StampDate =

limiter++
Data := Array%limiter%
GuiControl,, label1, `nPut cheque details here`n`nSERIAL - BSB - ACCT -  AMT`n%Data%`n
Return

3daySSP =
(
000001 062197 11960265 1111100
123456789 262197 123456789 09 1234567890
123456789 123456 123456789 9 100
)

counter = 0
limiter = 1
Loop, Parse, 3daySSP, `n, `r
   {
    Array%A_Index% := A_LoopField
    ;msgbox % Array%A_Index%
    itemcount++     
   }
gui, font, s12
Gui, Add,Text, xm w420 Section vlabel1,`nThere are %itemcount% items left to match.`n`nSERIAL - BSB - ACCT - TC - AMT`n
Gui, Add,Text, xm cred w420 vThevalues, %Array1%`n
Gui, Add,Text, xm wp Section,Post Office Name from APO stamp on voucher.
Gui, Add,Edit, xm w420 limit50 Uppercase vPostOffice,
Gui, Add,Text, xm Section , Date from APO stamp on voucher.
Gui, Add,Edit, xm w420 vStampDate,
Gui, Add,Button, xm wp gcreateSSPfinal, Update the APO Office and Date of processing Fields
Gui, Show, , Update the APO Office and Date of processing. SSP Total is %itemcount%
Return

createSSPfinal:
Gui,Submit, nohide
limiter++
itemcount--
; set the A_LoopField values to appear in the GUI
Data4gui := Array%limiter%
; set the A_LoopField values to appear in the data file
4file := limiter-1
Data4file := Array%4file%
; update the GUI
; store the cumulative values for use later
If PostOffice =
   PostOffice = Unable to read stamp
If StampDate =
   StampDate = Unable to read stamp

3daySSPfinal .= PostOffice . A_Tab . StampDate . A_Tab . Data4file  . "`n"
3daySSPemail .= PostOffice . A_Tab . StampDate . A_Tab . Data4file  . "`%0A"
; check to see if there is any more data
; update the controls
If Data4gui !=
   {
   GuiControl,, StampDate,
   GuiControl,, PostOffice,
   GuiControl,, label1, `nThere are %itemcount% items left to match.`n`nSERIAL - BSB - ACCT - TC - AMT`n
   GuiControl,, Thevalues, %Data4gui%`n
   GuiControl, Focus, PostOffice
   }
Else
   {
   GuiControl,, StampDate,
   GuiControl,, PostOffice,
   GuiControl,, label1, `nThere are %itemcount% items left to match.`n`nSERIAL - BSB - ACCT - TC - AMT`n
   GuiControl,, Thevalues, NO MORE DATA`n
   GuiControl,Disable, StampDate,
   GuiControl,Disable, PostOffice,
   Msgbox No data left. Below is the matched input`n%3daySSPfinal%
   Gui Destroy
   }
Return