Необходимо направление (желательно правильное)

Код:


do
if (файл был обновлён) then

(обработка файла)

end if
sleep 1000
loop while inkey <> chr(27)


Код:


newdate = FileDateTime ("test.txt")
if newdate <> olddate then
print "file is modified!"
olddate = newdate
end if


Код:

Declare Function SearchForSth (stroka As string, obj As String) As String
Dim As Double vremya0
Dim As String knopka,stroka,file,Result
file = "test.txt"
vremya0=Timer
Print " -= Searching for the formula. =- "
Print "Expectation..."
Do
   knopka=InKey
   If Timer - vremya0>= 5 Then
      Print "Execution... ("+Time+")"
      Print "   {"
      vremya0=Timer
      Print "   Opening the """;file ;"""..."
      Open file for Input  As #1
      Print "   Treatment lines..."
      Do
         Line Input #1,stroka
         Result=SearchForSth(Stroka, "S = ")
         If Result<>"" Then Print Result: Exit Do 
      Loop While Not Eof(1)
      If result="" Then Print "   Formula not found"
      Close #1
      Print "   }"
      Print "Expectation..."
   EndIf
   Sleep 1
Loop While knopka<>Chr(27)
Function SearchForSth (stroka As string, obj As String) As String
Dim perechisl As Integer
For perechisl = 1 To Len(stroka)
   If Mid(stroka,perechisl,1) = Mid(obj,1,1) Then
      ' ......
      ' ......
   EndIf
Next   
Return ""
End Function

Код:


' открываем для чтения текстовый файл
open "file.log" for input as #1
do while eof(1)

' считываем строку
line input #1, getline
' а потом её анализируем


loop
close #1


Код:


getline = "Game #9871716817: Table 1 - 15:43:38 ET - 2009/01/05"

' смотрим что наша строка начинается с "Game"
if left( getline, 5) = "Game " then
print "начинаеться с Game"
else
print "другая строка"
end if


Код:


getline = "Game #9871716817: Table 1 - 15:43:38 ET - 2009/01/05"
print val( mid( getline, 7, 10))


Код:


print InStr(1, getline, " #")
print InStr(1, getline, ": ")


Код:


' открываем для чтения текстовый файл
open "file.log" for input as #1
do while eof(1) !!!!тут надо добавить =0 ? вроде в теме про обработку файлов так!!!!!!
' считываем строку
line input #1, getline
' а потом её анализируем
loop
close #1


Ron пишет:
' открываем для чтения текстовый файл
open "file.log" for input as #1
do while eof(1) !!!!тут надо добавить =0 ? вроде в теме про обработку файлов так!!!!!!

Ron пишет:
' считываем строку
line input #1, getline
' а потом её анализируем
loop
close #1
Эт код сканирует весь файл с начала до конца - я правильно понимаю.

Ron пишет:
А мне надо самое начальное что бы скан шел с конца файла до первого слова Game к началу, потому как во всем файле этих гейм будет может и штук 500, а мне нужен только последний блок который начинается с гейм. Это как сделать не пойму никак.

Код:


do
numberline += 1
print "читаем строку номер: "; numberline
line input #1, getline
loop


Код:


' Вот создаём массив s
redim s(1 to 9) as integer

' точно также массив p
redim p(1 to 9) as integer

' тут вы заполняете массив s своими значениями
' и вообще ваш код, который пишите сами

' теперь в цикле сканируем массив
dim i as integer ' переменная для массива (номер обрабатываемого элемента)
dim n as integer ' номер элемента с которого надо начинать
for i = n to 9

' если я правильно понял, то переписывать нужно значения отличные от нуля
' проверяем значение элемента s с номером i
if s(i) <> 0 then
' и если не 0, то копируем в p с такимже номером
p(i) = s(i)
end if


next