[Petya V4sechkin]

Мне нужно, чтобы при обнаружении значения "three" цикл остановился и присвоил бы найденное значение какой-нибудь строковой переменной

Присвоил бы найденное значение "three" какой-нибудь строковой переменной?
Поясните.

[Afon]

Присвоил бы найденное значение "three" какой-нибудь строковой переменной? Поясните. »

Цикл получает условие проверки (в данном случае не достигнут ли конец файла).
Далее в теле цикла выполняется оператор, который прочитывает строки файла (содержимое файла включает в себя пять строчек со следующими записями: 1-ая строка - one, 2-ая строка - two, третяя строка -three, четвертая строка - four, пятая строка - five.
Прочитал первую строку, обнаружил запись one, перешел ко второй строке, обнаружил запись two, перешел к третьей строке, обнаружил запись three (опа, то что нам надо). Именно в этом момент надо прекратить выполнение цикла (если явно не завершить выполнение цикла то оно будет продолжаться пока не дойдет конца строки, условие проверки в заголовке цикла говорит об этом.) и присвоить строку "three" строковой переменной.

Надеюсь смог изложить то, что мне нужно. Если что спросите пожалуйста, может я не так излагаюсь.
Одним словом мне нужно проходить по записям файла и найдя нужную мне запись остановится и присвоить это значение строковой переменной.


Заранее спасибо.

[Petya V4sechkin]

Код:

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtStream = fso.OpenTextFile("C:\List.txt") ' Этот файл существует, то есть проверка наличия файла пропускается

V = ""
Do While Not txtStream.atEndOfStream And V <> "three"
  V = txtStream.ReadLine
  Text = Text & V & vbCrLf
Loop

[Afon]

Set fso = CreateObject("Scripting.FileSystemObject") Set txtStream = fso.OpenTextFile("C:\List.txt") ' Этот файл существует, то есть проверка наличия файла пропускается V = "" Do While Not txtStream.atEndOfStream And V <> "three" V = txtStream.ReadLine Text = Text & V & vbCrLf Loop »

Спасибо большое. Это именно то, что я хотел.
Спасибо всем.