Программа для этой темы:
http://ifolder.ru/20260564
(размер архива 666 б.)
Graphics 800,600,8,2
SetBuffer BackBuffer()
Global sd$="Кто здесь?"
Global i
Global filess
SeedRnd(MilliSecs()) ; включение неповторения в мозге ЭВМ
For i=1 To 10
filess=OpenFile("D:\d\"+i+".txt")
If filess<>0 ; тут точно не знаю.. сначало думал <>Null . Но <>0 ( не равно нулю - помогла). в папке создал только чётные файлы 2.txt 4.txt 6.txt и т.д.
read1$=ReadLine(filess) ; короче, если файл есть - значит читаем
CloseFile(filess) ; - закроем файл, чтобы потом можно было его переоткрыть
If read1$=sd$ Then ; - найдено что надо
Color Rand(0,255),Rand(0,255),Rand(0,255) ; - это для наглядности смена цвета нужного текста
filess=OpenFile("D:\d\"+i+".txt")
WriteLine(filess,"Кто здесь? Тут был Вася!")
CloseFile(filess) ; - закроем ещё раз файл, так как открывали до этого во второй раз
Text 10,14*i,Str(i)+": "+read1$+" ВАСЯ НАЙДЕН!!!"
Else
Color 255,255,255
Text 10,14*i,Str(i)+": "+read1$
EndIf
EndIf
Next
Flip
Программа, файл одноразовый.. Чтобы ещё раз проверить действенность - редактируй в файле текст который нужно искать