比如下面的代码从早上8点开始,没10分钟执行一次,10点钟暂停,下午2点钟再执行,4点终止或退出:#include <Array.au3>
Local $array[10][8]
For $i = 0 To 9
For $j = 0 To 7
$array[$i][$j] = "Item " & StringFormat("%02i", $i) & StringFormat("%02i", $j)
Next
Next
_ArrayDisplay($array)
_SaveToCsv ($array,@ScriptDir&"td.csv")
MsgBox(0,"保存成功","文件位于:"& @ScriptDir &"td.csv")
Func _SaveToCsv($aArray, $sCsvSavePath)
Local $csv = FileOpen($sCsvSavePath, 2 + 8)
If UBound($aArray, 0) = 1 Then
For $i = 0 To UBound($aArray) - 1
Local $sStr = '"' & StringReplace($aArray[$i][$j], '"', '""') & '"'
FileWriteLine($csv, $sStr)
Next
ElseIf UBound($aArray, 0) = 2 Then
For $i = 0 To UBound($aArray, 1) - 1
Local $sStr = ''
For $j = 0 To UBound($aArray, 2) - 1
$sStr &= '"' & StringReplace($aArray[$i][$j], '"', '""') & '",'
Next
$sStr = StringTrimRight($sStr, 1)
FileWriteLine($csv, $sStr)
Next
EndIf
FileClose($csv)
EndFunc ;==>_SaveToCsv
下面这个函数好像可以设置程序的运行间隔时间,但是还没搞清楚怎么用。
AdlibRegister ( "函数" [, 时间 = 250] ) |