;*****************************
;* RoboTask Task file
;* Do not edit in text editor!
;*****************************
 
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|-1
CatID=INTEGER|235983816
Comment=STRINGLIST
ContinueOnError=INTEGER|0
DisableOnError=INTEGER|0
DoNotStopWhenShutdown=INTEGER|0
ExternalName=STRING|"Task1490"
Hide=INTEGER|0
ID=INTEGER|2135619545
LogOnAsUser=INTEGER|1
Name=STRING|"Convert julian dates"
OnErrorTaskID=INTEGER|-1
Priority=INTEGER|3
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
ToLog=INTEGER|3
UnicodeFormat=INTEGER|1
WriteGeneralLog=INTEGER|0

[Actions]
Action1=FOLDER
Action2=FOLDER
Action3=FOLDER
Action4=FOLDER
Action5=FOLDER
Action6=FOLDER

[Actions\Action1]
ActionID=STRING|"A_LOOP_TEXT"
Enabled=INTEGER|-1
Name=STRING|"Text Loop"
Params=FOLDER

[Actions\Action1\Params]
destvar=STRING|"C_FILE"
line0=STRING|"loan.144.3437"
line1=STRING|"loan.29.1128"
line2=STRING|"loan.35.6852"
line3=STRING|"loan.302.2759"
line4=STRING|"loan.30abc2.2759"
linecount=STRING|"5"
sourcetext=STRING|"1"

[Actions\Action2]
ActionID=STRING|"A_SCRIPT_VBSCRIPT"
Enabled=INTEGER|-1
Name=STRING|"VB Script"
Params=FOLDER

[Actions\Action2\Params]
expandvars=STRING|"0"
line00000000=STRING|"'This script extracts Julian date from file name (variable C_File),"
line00000001=STRING|"'converts it into date and assign value as string to ConvertedDate"
line00000002=STRING|"'variable in mm/dd format"""
line00000003=STRING|"Sub Main"
line00000004=STRING|"  Dim s"
line00000005=STRING|"  Dim Julian"
line00000006=STRING|"  Dim d"
line00000007=STRING|"  ' extract Julian date from file name"
line00000008=STRING|"  s = RoboTaskApp.ExpandText(""{ExtractFileExt({ExtractFileNameNoExt({C_file})})}"")"
line00000009=STRING|"  'MessageBox(s)"
line0000000A=STRING|"  On Error Resume Next"
line0000000B=STRING|"  ' convert string date to integer"
line0000000C=STRING|"  Julian = CInt(s)"
line0000000D=STRING|"  If Err Then"
line0000000E=STRING|"    Err.Clear"
line0000000F=STRING|"    Julian = 0"
line00000010=STRING|"  End If"
line00000011=STRING|"  If Julian >0 Then"
line00000012=STRING|"    d = DateSerial(Year(Date),1,1)"
line00000013=STRING|"    d = DateAdd(""d"",Julian-1,d)"
line00000014=STRING|"    RoboTaskApp.SetUserVariable ""ConvertedDate"", CStr(Month(d))+""/""+CStr(Day(d))"
line00000015=STRING|"    'MessageBox(CStr(Month(d))+""/""+CStr(Day(d)))"
line00000016=STRING|"  Else"
line00000017=STRING|"    RoboTaskApp.SetUserVariable ""ConvertedDate"", ""Invalid"""
line00000018=STRING|"    'MessageBox(""Invalid date"")"
line00000019=STRING|"  End If"
line0000001A=STRING|"End Sub"
line0000001C=STRING|"Main"
linecount=STRING|"30"
savescript=STRING|"0"

[Actions\Action3]
ActionID=STRING|"A_DIALOG_MESSAGE"
Enabled=INTEGER|-1
Name=STRING|"Show ""file {c_file}"""
Params=FOLDER

[Actions\Action3\Params]
icon=STRING|"1"
msg0=STRING|"file {c_file}"
msg1=STRING|"date is {ConvertedDate}"
msgcount=STRING|"2"
playsound=STRING|"0"
showmessage=STRING|"1"

[Actions\Action4]
ActionID=STRING|"A_LOOP_END"
Enabled=INTEGER|-1
Name=STRING|"End Loop"

[Actions\Action5]
ActionID=STRING|"A_VARIABLES_REMOVE"
Enabled=INTEGER|-1
Name=STRING|"Remove variable ""C_FILE"""
Params=FOLDER

[Actions\Action5\Params]
varname=STRING|"C_FILE"

[Actions\Action6]
ActionID=STRING|"A_VARIABLES_REMOVE"
Enabled=INTEGER|-1
Name=STRING|"Remove variable ""CONVERTEDDATE"""
Params=FOLDER

[Actions\Action6\Params]
varname=STRING|"CONVERTEDDATE"