AutoHotkey Community

loop
{
  FileRead, currslip, c:\Uniwell\currslip.txt
  FileAppend
    , % RegExReplace(currslip,".*SUBTOTAL.*?(\d+\.\d+).*","$1")
    , c:\Uniwell\input.txt
  Sleep, 100
  Filedelete c:\Uniwell\currslip.txt
}
return

If (instr(currslip,"- ")) AND (instr(currslip,"C a r d"))

{
  needle := "SUBTOTAL"
  halfslip := SubStr(currslip, InStr(currslip, needle) + StrLen(needle))
  refund := SubStr(halfslip, 1, InStr(halfslip, "`n") - 1 )
  stringReplace, amount, refund, `-, ,

  StringSplit, T, L14, %A_Space%
  output = 2=20`n1=%T1%`n3=%amount%`n99=0
  FileAppend, % output, c:\Uniwell\input.txt
  Sleep, 100
  Filedelete c:\Uniwell\currslip.txt
}

}
return

setworkingdir, %a_scriptdir%
transform,S,chr,32   ;SPACE

F1=%A_scriptdir%\input12.txt
F2=%A_scriptdir%\output12.txt
;filedelete,%F1%

;------- for test --------------
AA=
(
002= SMALL CAPPUCCINO -1.50`r
002= SUBTOTAL   -1054.35   `r
002= C a r d - 4 . 3 5`r
002= CHRIS`r
)

ifnotexist,%F1%
  fileappend,%AA%,%F1%
ifexist,%F2%
  filedelete,%F2%
;-----------------------------------

FileRead, FileContent, %F1%
Loop, Parse, FileContent, `n, `
  {
  LR=%A_Loopfield%
  if A_LoopField contains SUBTOTAL
     stringreplace,LR,LR,-,%S%,all
  if A_LoopField contains C a r d
     stringreplace,LR,LR,-,%S%,all
  fileappend,%LR%,%F2%
  }
run,%F2%
return

setworkingdir, %a_scriptdir%
transform,S,chr,32   ;SPACE
SetFormat, float, 0.2
F1=%A_scriptdir%\input12.txt

;------- for test --------------
AA=
(
002= SMALL CAPPUCCINO -1.50`r
002= SUBTOTAL   -1054.35   `r
002= C a r d - 4 . 3 5`r
002= CHRIS`r
)

ifnotexist,%F1%
  fileappend,%AA%,%F1%

SEARCHFOR=SUBTOTAL
   Loop,Read,%F1%
      {
      if A_LoopReadLine contains %SEARCHFOR%
         {
         Loop, Parse,A_LoopReadLine ,%S%,`
             {
             C=%A_LoopField%
             if (A_LoopField="")
                continue
             A=%C%
             }
          B:=(ABS(A))
          msgbox,%B%
         }
      }
return

  stringReplace, amount, refund, `-, ,