лог Журнала в файл

[xarek]

Code: Select all

var fl=file("C:\1.txt")

sub abs()

fl.open() 
fl.WriteLn(UO.Journal())
fl.close()

end sub

как сделать что бы он не последнее слово записывал а весь Журнал??

[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

[xarek]

Гдето видил что бы он не перезаписывал файл а добовлял в конце файла новые записи, но уже не могу найти, там суть в одной строчке но найти не могу. и За одно не подскажите по другому скрипту. как мне присвоить perm2 слово "ДА" prem2=(да) много чего перепробывал не получается(

[Destruction]

f.create() - эту строку сотрите

PS: perm2 = "ДА"

[xarek]

PS: perm2 = "ДА"

Большое спасибо, но не работает:(

[Destruction]

viewtopic.php?t=3491&start=0

[xarek]

Code: Select all

line=UO.injournal(name)
per1=Trim(Right(UO.Journal(line-1),1))



     if val(per1) == per2 then

все равно не катит per2="да" но он почему не приравнивает их.


и по поводу лог файла, он почему то не добовляет новые записи. а заменяет.