Как правильно решить проблему с ...@MIN:@SEC

[webmonster]

Привет
Сделал переменную с датой и временем до секунды.

$date = (@MDAY& "," & @MON & "," & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC)

сделал маленький цикл

while 1 ; просто пример
InetGet($file, $path)
FileWriteLine($log,$date & " " & $message)
Sleep(10000)
FileWriteLine($log,$date & " " & $message)
wEnd

В итоге получается, что данные в переменную $date поступают каждый раз перед начолом цикла, но внутри цикла, значение переменной одинаковое..
Как сделать так, чтобы при каждом обращении к переменной, значение ее было уникальным с точностью до секунды?

 

[ynbIpb]

читай эти данные в цикле

 

[Belfigor]

while 1 ; просто пример
_FileWriteLine()
Sleep(10000)
_FileWriteLine()
wEnd

Func _FileWriteLine()
	$date = (@MDAY& "," & @MON & "," & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC)
	FileWriteLine($log,$date & " " & $message)
EndFunc	;==> _FileWriteLine

 

[webmonster]

Спасибо!


Добавлено:

Сообщение автоматически объединено: 24 Авг 2010

тогда еще вопросик по синтаксису функций..
можно ли как-нить в функцию запихать несколько значений для лога, т.е. объединить в одну функцию вот это

Func _FileWriteLine_1()
    $date = (@MDAY& "," & @MON & "," & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC)
    FileWriteLine($log,$date & " " & $message1)
EndFunc
Func _FileWriteLine_2()
    $date = (@MDAY& "," & @MON & "," & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC)
    FileWriteLine($log,$date & " " & $message2)
EndFunc

 

[gregaz]

webmonster [?]

можно ли как-нить в функцию запихать несколько значений для лога, т.е. объединить в одну функцию вот это

Ты это имел ввиду?

$message1=" message1"
$message2=" message2"
$log="1.log"

Write($log,$message1)
Sleep (10000)
Write($log,$message2)

Func Write($sFile,$sMsg)
    $date = (@MDAY& "," & @MON & "," & @YEAR & ", " & @HOUR & ":" & @MIN & ":" & @SEC)
	$sData=$date & " " & $sMsg
	FileWriteLine($sFile,$sData)
EndFunc