Помогите пожалуйста, мне такое пока сложно осилить.
Надо чтобы цыкл открывал файл, читал 1ую строку, проверял совпадает она с текстом в переменной или нет и закрывал файл.
Если совпадает строка то стоп, если нет то читать следующий файл.
Или как-то так:
while not n$=read1
а тут уже надо чтобы файлы открывал по очереди, от 1 до 10
wend
Написал так, ничего не происходит. В одном из файлов есть такая строчка
While Not sd$=read1$
For i=1 To 10
filess=ReadFile("D:\d\"+i+".txt")
read1$=ReadLine(filess)
CloseFile(filess)
Next
Flip
Wend
Вот вроде бы норм все, но он не останавливается.
Graphics 800,600,8,2
SetBuffer BackBuffer()
Global sd$="asd"
Global Read1$
Global I
While Not i=10
For i=1 To 10
filess=ReadFile("D:\d\"+i+".txt")
read1$=ReadLine(filess)
CloseFile(filess)
If sd$=read1$
Print "Eeeeeeee..."
EndIf
Next
Flip
Wend
End
Вот так подправил:
Graphics 800,600,8,2
SetBuffer BackBuffer()
Global sd$="asd"
Global read1$
Global i
Global filess
While Not i=10
For i=1 To 10
filess=OpenFile("D:\d\"+i+".txt")
read1$=ReadLine(filess)
CloseFile(filess)
If sd=read1
filess=OpenFile("D:\d\"+i+".txt")
WriteLine(filess,"строка")
Print "Eeeeeeee..."
EndIf
Next
Flip
Wend
End
Странно что он выводит очень много надписей типа "Eeeeeeee..." и только спустя секунд 10 происходит ошибка "Stream does not exist" и после ошибки перезаписывается файл.