Что нового

Поиск строчек в тексте и вывод результата в отдельный txt файл

sthx

Новичок
Сообщения
3
Репутация
0
3.3.14.2 3.

Нужно в текстовом файле "pclist.txt" найти все строчки содержащие "text" и вывести результат в отдельном txt файле.

Примечания:
 

ra4o

Скриптер
Сообщения
992
Репутация
183
Попробуйте такой вариант :
Код:
#include <File.au3>

Local $aRecords
Local $File = 'pclist.txt'
Local $FileResult = 'result.txt'
Local $Stroka = 'text'

If Not FileExists(@ScriptDir & '\' & $FileResult) Then _FileCreate(@ScriptDir & '\' & $FileResult)
If Not _FileReadToArray(@ScriptDir & "\" & $File, $aRecords) Then
	MsgBox(4096, "Ошибка", " Ошибка чтения файла в массив     Ошибка = " & @error)
	Exit
EndIf
$hFile = FileOpen(@ScriptDir & '\' & $FileResult, 2);что-бы дописать в файл, сохранив предыдущее содержание - изменить 2 на 1
For $i = 1 To $aRecords[0]
	If StringInStr($aRecords[$i], $Stroka) Then FileWriteLine($hFile, $aRecords[$i] & @CRLF)
Next
FileClose($hFile)
 
Автор
S

sthx

Новичок
Сообщения
3
Репутация
0
Alofa сказал(а):
Предоставьте пример.
в идеале нужно извлечь с файла строки содержащие"+"


Добавлено:
Сообщение автоматически объединено:

ra4o сказал(а):
Попробуйте такой вариант :
Код:
#include <File.au3>

Local $aRecords
Local $File = 'pclist.txt'
Local $FileResult = 'result.txt'
Local $Stroka = 'text'

If Not FileExists(@ScriptDir & '\' & $FileResult) Then _FileCreate(@ScriptDir & '\' & $FileResult)
If Not _FileReadToArray(@ScriptDir & "\" & $File, $aRecords) Then
	MsgBox(4096, "Ошибка", " Ошибка чтения файла в массив     Ошибка = " & @error)
	Exit
EndIf
$hFile = FileOpen(@ScriptDir & '\' & $FileResult, 2);что-бы дописать в файл, сохранив предыдущее содержание - изменить 2 на 1
For $i = 1 To $aRecords[0]
	If StringInStr($aRecords[$i], $Stroka) Then FileWriteLine($hFile, $aRecords[$i] & @CRLF)
Next
FileClose($hFile)
пишет :
-> No changes made..
в соответсвующем файле изменений нет, запускал следующий код из файла "43"
 

Вложения

  • 198,8 КБ Просмотры: 5
  • 667 байт Просмотры: 6
Автор
S

sthx

Новичок
Сообщения
3
Репутация
0
Alofa сказал(а):
sthx сказал(а):
А кто вам это такое пишет?
Скачал и установил AutoIt
Скачал и установил редактор SciTe
Открыл редактор SciTe: Пуск > Все программы > AutoIt v3 > SciTE Script Editor, создал новый файл и сохранил его с расширением AU3
Открыл скрипт в редакторе SciTe и запустил выполнение скрипта: Tools > Go

sthx сказал(а):
... запускал следующий код из файла "43"
а натравливали его на "01.au3" или на "1.txt"?
[/quote]

txt :-[
 

ra4o

Скриптер
Сообщения
992
Репутация
183
Открыл редактор SciTe: Пуск > Все программы > AutoIt v3 > SciTE Script Editor, создал новый файл и сохранил его с расширением AU3
Я обычно делаю проще - правой кнопкой мышки на свободном месте - "создать" - "Autoit V3 script" , далее уже редактирую этот пустой скрипт. Пробовал с Вашим файлом - всё получается.
 
Верх