Yoko
http://forum.yoko.com.ua/

Маленький вопрос
http://forum.yoko.com.ua/viewtopic.php?f=20&t=14079		 Page 1 of 1
Author:  nucler [ 2008-10-19 00:40:48 ]
Post subject:  Маленький вопрос
Какая команда нужна, чтобы записать время в отдельный файл?? Если можно то выложите скрипт, что-то вроде увидел ник и записал время в файл. Использование - чтобы узнать время респауна животного.
Благодарю за помощь!
Author:  Millerbeer [ 2008-10-19 18:53:14 ]
Post subject: 
Цитата из файла из пакета справок выложенных на сайте...

Класс FILE:
пример:
sub main()
var f=file("c:\имя файла")
var s=0
f.open()
while not f.eof() and not fatal error
s=safe call f.readnumber()
if not fatal error then
dbgmsg(s)
endif
wend
f.close()
endsub

Методы класса:
File(имя файла) - конструктор
Open() - открыть на чтение/запись. Возвращает true==открылся удачно
Create() - затереть файл. Возврат так же
Eof() - true == конец
ReadLn() - возвращает строку из файла. Строку полностью!!!
ReadString() - возвр. слово из файла до пробела/TAB
ReadNumber() - число
Write(строка/число) - запись строки/числа в файл.
WriteLn(строка/число) - запись строки/числа в файл+перевод строки.
WriteLn() - просто запись перевода строки
Close() - закрыть файл и освободить память из-под класса. После вызова Close() с файлом больше работать нельзя (даже вызвав Open).



Code:
sub Date_Time()
   uo.print('*************')
   uo.print('* Security Cam    *')
   uo.print('* date: '+date(uo.date(),'.')+' *') 
   uo.print('* time: '+time(uo.time(),':')+' *')
   uo.print('*************')
endsub

Sub date(jor,n) 
   var ser=str(jor), t='' 
   if len(ser)==5 then 
   ser='0'+ser 
   end if 
   t=right(ser,2)+n+mid(ser,2,2)+n+left(ser,2) 
   return t 
endsub

Sub time(jor,n)
   var i, t='' 
   var ser=str(jor)
      if len(ser)==5 then 
         ser='0'+ser 
      end if
      if len(ser)==4 then
         ser='00'+ser
      end if
      for i=0 to len(ser)-2 step 2 
         t=t+mid(ser,i,2)+n 
      next 
   t=left(t,len(ser)+2) 
   return t 
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/