;**********************
;* RoboTask Task file *
;* Do not edit!       *
;**********************
 
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|-1
CatID=INTEGER|418185034
ContinueOnError=INTEGER|0
ExternalName=STRING|"Task265"
Hide=INTEGER|0
ID=INTEGER|2135619545
Name=STRING|"Convert julian dates"
Priority=INTEGER|3
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
ToLog=INTEGER|3

[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|"BASIC_SCRIPT"
Enabled=INTEGER|-1
Name=STRING|"Basic Script"
Params=FOLDER

[Actions\Action2\Params]
line00000=STRING|"'This script extracts Julian date from file name (variable C_File),"
line00001=STRING|"'converts it into date and assign value as string to ConvertedDate"
line00002=STRING|"'variable in mm/dd format"
line00004=STRING|"Sub Main"
line00005=STRING|"	Dim s As String"
line00006=STRING|"	Dim Julian As Integer"
line00007=STRING|"	Dim d As Date"
line00009=STRING|"	' extract Julian date from file name"
line00010=STRING|"	s = RoboTaskApp.ExpandText(""{ExtractFileExt({ExtractFileNameNoExt({C_file})})}"")"
line00011=STRING|"	'MsgBox(s)"
line00013=STRING|"	On Error Resume Next"
line00015=STRING|"	' convert string date to integer"
line00016=STRING|"	Julian = CInt(s)"
line00017=STRING|"	If Err Then"
line00018=STRING|"		Err.Clear"
line00019=STRING|"		Julian = 0"
line00020=STRING|"	End If"
line00022=STRING|"	If Julian >0 Then"
line00023=STRING|"		d = DateSerial(Year(Date),1,1)"
line00024=STRING|"		d = DateAdd(""d"",Julian-1,d)"
line00025=STRING|"		RoboTaskApp.SetUserVariable(""ConvertedDate"", CStr(Month(d))+""/""+CStr(Day(d)))"
line00026=STRING|"		'MsgBox(CStr(Month(d))+""/""+CStr(Day(d)))"
line00027=STRING|"	Else"
line00028=STRING|"		RoboTaskApp.SetUserVariable(""ConvertedDate"", ""Invalid"")"
line00029=STRING|"		'MsgBox(""Invalid date"")"
line00030=STRING|"	End If"
line00031=STRING|"End Sub"
linecount=STRING|"32"
source=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"