vahminator
Новичок
- Сообщения
- 1
- Репутация
- 0
Доброго времени суток!
Помогите найти ошибку в коде. Читал мануалы и примеры - но не выходит сделать следующее... Нужно открыть файл, найти в нем введенный текст и вывести на экран.
Все работает если в второй строке сделать так:
Но в этом случае файл один и он не меняеться. Нужно выбор файла.
P.S. Сам код подсмотрел у dwerf - пусть не сердчает - как только разберусь сам в FileOpenDialog() напишу свой код
Помогите найти ошибку в коде. Читал мануалы и примеры - но не выходит сделать следующее... Нужно открыть файл, найти в нем введенный текст и вывести на экран.
Все работает если в второй строке сделать так:
Код:
$sText = FileRead('text.txt')
Код:
$sSearched = inputbox("Поиск текста в файле", "Искомый текст: ")
$sText = FileOpenDialog("Выберете файл...", @WorkingDir & "\", "Документы (*.txt)", 1 + 4 )
$aLines = StringSplit($sText, @CRLF, 1)
For $i = 1 To $aLines[0] Step +1
If StringInStr($aLines[$i], $sSearched) Then
MsgBox(0, 'Found', 'Line ' & $i & @CRLF & $aLines[$i])
Next