AutoHotkey Community

var=
(
Audio J Information
Date Sent: 01/22/10
Date Printed: 01/21/10
INVOICE CUSTOMER NAME # OF START # OF
# SPOTS DATE COPIES
KABC
855645 BIKE SHOP 1 02/12/10 1
856434 ELECTRIC WORK TESTING 3 02/08/10 1
Total Invoices for KABC 2 Total Spots 4 MP3 SPOTS EMAILED TO: pop thatguy@pop.com & pop3@pop.com
KAY
897940 ROOFING INCORPORATED 1 02/12/10 1
898816 JAMES GALVANIZING 3 02/08/10 1
INCORPORATED
899258 SANFORD BARBERS 2 02/11/10 1
899819 RHINESTONE RESTAURANT 3 02/08/10 1
Total Invoices for KAY 4 Total Spots 9 MP3 SPOTS EMAILED TO: frank@sho3.com
KABEA
899194 PERIWINKLE P U D 8 02/08/10 1
Total Invoices for KABEA 1 Total Spots 8 MP3 SPOTS EMAILED TO: pop
)
i=1


InputBox, cOut, Custom Output, Please enter a custom amount., , 200, 125
if !cOut {
   MsgBox, 48, Warning, No value was entered, please try again.
   return
}
Loop, Parse, var, `n, `r
{
   if RegExMatch(A_LoopField,"^[A-Z]+$",match) {
      if (StrLen(A_LoopField) <= 5)
         m%i%:=match, i++
   }
}
i=1
MsgBox % m1 "-" cOut A_Space
 . m2 "-" cOut A_Space
 . m3 "-" cOut
return

var=
(
Audio J Information
Date Sent: 01/22/10
Date Printed: 01/21/10
INVOICE CUSTOMER NAME # OF START # OF
# SPOTS DATE COPIES
KABC
855645 BIKE SHOP 1 02/12/10 1
856434 ELECTRIC WORK TESTING 3 02/08/10 1
Total Invoices for KABC 2 Total Spots 4 MP3 SPOTS EMAILED TO: pop thatguy@pop.com & pop3@pop.com
KAY
897940 ROOFING INCORPORATED 1 02/12/10 1
898816 JAMES GALVANIZING 3 02/08/10 1
INCORPORATED
899258 SANFORD BARBERS 2 02/11/10 1
899819 RHINESTONE RESTAURANT 3 02/08/10 1
Total Invoices for KAY 4 Total Spots 9 MP3 SPOTS EMAILED TO: frank@sho3.com
KABEA
899194 PERIWINKLE P U D 8 02/08/10 1
Total Invoices for KABEA 1 Total Spots 8 MP3 SPOTS EMAILED TO: pop
)
Pos=1
InputBox, cOut, Custom Output, Please enter a custom amount., , 200, 125
if !cOut {
   MsgBox, 48, Warning, No value was entered, please try again.
   return
}
While Pos:=RegExMatch(var,"Total Invoices for ([A-Z]+)",m,Pos+StrLen(m))
   res.=((A_Index=1) ? "" : A_Space) m1 "-" cOut
MsgBox % res
VarSetCapacity(res,0)
return

SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

var=
(
Audio J Information
Date Sent: 01/22/10
Date Printed: 01/21/10
INVOICE CUSTOMER NAME # OF START # OF
# SPOTS DATE COPIES
KABC
855645 BIKE SHOP 1 02/12/10 1
856434 ELECTRIC WORK TESTING 3 02/08/10 1
Total Invoices for KABC 2 Total Spots 4 MP3 SPOTS EMAILED TO: pop thatguy@pop.com & pop3@pop.com
KAY
897940 ROOFING INCORPORATED 1 02/12/10 1
898816 JAMES GALVANIZING 3 02/08/10 1
INCORPORATED
899258 SANFORD BARBERS 2 02/11/10 1
899819 RHINESTONE RESTAURANT 3 02/08/10 1
Total Invoices for KAY 4 Total Spots 9 MP3 SPOTS EMAILED TO: frank@sho3.com
KABEA
899194 PERIWINKLE P U D 8 02/08/10 1
Total Invoices for KABEA 1 Total Spots 8 MP3 SPOTS EMAILED TO: pop
)

FolderList =

InputBox, cOut, Custom Output, Please enter a custom amount., , 200, 125
if !cOut {
   MsgBox, 48, Warning, No value was entered, please try again.
   return
}
Loop, Parse, var, `n, `r
{
   if RegExMatch(A_LoopField, "^[A-Z]{3,5}$" , match )
   {
      FolderList = %FolderList%%match%-%cOut%`r`n
      FileCreateDir, %match%-%cOut%  ; creates folders like KABEA-0208
   }   
}

MsgBox The following folders were created: `n%FolderList%

return

InputBox, cOut, Custom Output, Please enter a custom amount., , 200, 125
if !cOut {
   MsgBox, 48, Warning, No value was entered, please try again.
   return
}
Loop, Read, << some file path >>
 if RegExMatch(A_LoopReadLine,"Total Invoices for ([A-Z]+)",m)
   res.=m1 "-" cOut A_Space
MsgBox % SubStr(res,1,StrLen(res)-1) ; trims off the last space
VarSetCapacity(res,0)
return