Code: Select all
#NoEnv
; Contents of Template.csv
CSV =
(
Document Number,Revision,Title,Type,Status,Discipline,Blank Column,Print Size,Alternative Reference,Revision Date,Created By,Comments,Required for Handover,Blank Column
DD-D80.01,A,Title for Doc DD-D80.01-A.pdf,Drawing,For Tender,Civil,,A1,,16/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.02,A,Title for Doc DD-D80.02-A.pdf,Drawing,For Tender,Civil,,A2,,17/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.03,A,Title for Doc DD-D80.03-A.pdf,Drawing,For Tender,Civil,,A1,,18/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.04,A,Title for Doc DD-D80.04-A.pdf,Drawing,For Tender,Civil,,A1,,19/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.05,A,Title for Doc DD-D80.05-A.pdf,Drawing,For Tender,Civil,,A3,,20/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.06,A,Title for Doc DD-D80.06-A.pdf,Drawing,For Tender,Civil,,A2,,21/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.07,A,Title for Doc DD-D80.07-A.pdf,Drawing,For Tender,Civil,,A2,,22/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.08,A,Title for Doc DD-D80.08-A.pdf,Drawing,For Tender,Civil,,A2,,23/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.09,A,Title for Doc DD-D80.09-A.pdf,Drawing,For Tender,Civil,,A3,,24/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.10,A,Title for Doc DD-D80.10-A.pdf,Drawing,For Tender,Civil,,A1,,25/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.11,A,Title for Doc DD-D80.11-A.pdf,Drawing,For Tender,Civil,,A0,,26/05/2019,Civil Consulting Group Pty Ltd,,,
DD-D80.12,A,Title for Doc DD-D80.12-A.pdf,Drawing,For Tender,Civil,,A1,,27/05/2019,Civil Consulting Group Pty Ltd,,,
)
!F12:: ;Alt + F12
;SetKeyDelay, 400
#SingleInstance force
SplitPath, A_ScriptFullPath, ofname, ofdir, ofext, ofnamene, odrv ; Ensures a consistent starting directory.
; Replaced Loop, Read, ... by Loop, Parse, ...
; loop, read, %ofdir%\Template.csv
Loop, Parse, CSV, `n
{
If (A_Index > 1) ;To skip the title row
{
; Replaced A_LoopReadLine by A_LoopField
; Loop, Parse, A_LoopReadLine, CSV
Loop, parse, A_LoopField, CSV
{
If (A_LoopField = "") ; if "cell" is empty
Send {tab}
Else
{
Send %A_LoopField%
Send {tab}
}
}
Send {Enter}
}
}
return