Page 1 of 1
лог Журнала в файл
Posted: 2009-04-08 22:58:53
by xarek
Code: Select all
var fl=file("C:\1.txt")
sub abs()
fl.open()
fl.WriteLn(UO.Journal())
fl.close()
end sub
как сделать что бы он не последнее слово записывал а весь Журнал??
Posted: 2009-04-08 23:35:28
by Destruction
Code: Select all
sub main()
var i, f = file( '1.txt' )
f.create()
f.open()
for i = 0 to 99
f.writeLn( uo.journal( i ) )
next
f.close()
endsub
Posted: 2009-04-09 00:46:15
by xarek
Гдето видил что бы он не перезаписывал файл а добовлял в конце файла новые записи, но уже не могу найти, там суть в одной строчке но найти не могу. и За одно не подскажите по другому скрипту. как мне присвоить perm2 слово "ДА" prem2=(да) много чего перепробывал не получается(
Posted: 2009-04-09 01:13:03
by Destruction
f.create() - эту строку сотрите
PS: perm2 = "ДА"
Posted: 2009-04-09 01:18:43
by xarek
Destruction wrote:
PS: perm2 = "ДА"
Большое спасибо, но не работает:(
Posted: 2009-04-09 03:16:21
by Destruction
Posted: 2009-04-09 22:16:40
by xarek
Code: Select all
line=UO.injournal(name)
per1=Trim(Right(UO.Journal(line-1),1))
if val(per1) == per2 then
все равно не катит per2="да" но он почему не приравнивает их.
и по поводу лог файла, он почему то не добовляет новые записи. а заменяет.