Запись в столбик:
<#Module=fileCol>
Sub Load(command)
buf="Некоторая запись"
fName=Sys.File.GetFPath(Sys.Path()) & "mylog1.log"
'---------------------------------------------------
'Удалите эту строку после создания файла mylog1.log,
'чтобы запись производилась в старый экземпляр
'этого файла
Sys.File.FileNew fName
'---------------------------------------------------
Sys.File.FileOpen fName,1,"append"
j=1
While j<=10
Sys.File.FilePrint 1,buf
j=j+1
Wend
Sys.File.FileClose 1
EndMF
End Sub
<#Module>
Запись в строку:
<#Module=fileRow>
Sub Load(command)
buf="Некоторые данные"
fName=Sys.File.GetFPath(Sys.Path()) & "mylog2.log"
'---------------------------------------------------
'Удалите эту строку после создания файла mylog2.log,
'чтобы запись производилась в старый экземпляр
'этого файла
Sys.File.FileNew fName
'---------------------------------------------------
Sys.File.FileOpen fName,1,"random"
j=1
While j<=10
Sys.File.FilePut 1,0,buf
j=j+1
Wend
Sys.File.FileClose 1
EndMF
End Sub
<#Module>
hiho пишет:да и сам текст появляеться только тогда, когда скрипт уже отработал.
Чтобы иметь возможность просмотреть текст протокола в процессе трассировки попробуйте открытие и закрытие файла вставить в цикл
например так(запись в столбик):
<#Module=fileTrass>
Sub Load(command)
buf="Некоторая запись"
fName=Sys.File.GetFPath(Sys.Path()) & "mylog1.log"
'---------------------------------------------------
'Удалите эту строку после создания файла mylog1.log,
'чтобы запись производилась в старый экземпляр
'этого файла
Sys.File.FileNew fName
'---------------------------------------------------
Sys.File.FileOpen fName,1,"append"
j=1
While j<=100
Sys.File.FileOpen fName,1,"append"
Sys.File.FilePrint 1,buf
Sys.File.FileClose 1
j=j+1
Wend
EndMF
End Sub
<#Module>
Или так(запись в строку подряд)
<#Module=fileRow>
Sub Load(command)
buf="Некоторые данные"
fName=Sys.File.GetFPath(Sys.Path()) & "mylog2.log"
'---------------------------------------------------
'Удалите эту строку после создания файла mylog2.log,
'чтобы запись производилась в старый экземпляр
'этого файла
Sys.File.FileNew fName
'---------------------------------------------------
j=1
While j<=10000
Sys.File.FileOpen fName,1,"random"
Sys.File.FilePut 1,CursorPos,buf
CursorPos=Sys.File.FileLOC(1)
Sys.File.FileClose 1
j=j+1
Wend
EndMF
End Sub
<#Module>