Что нового

Удалить строки по условию

AlexVong

Новичок
Сообщения
112
Репутация
1
Как в текстовом файле удалить все строки которые содержат "х.хх 0.00" (х - любое число)?
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Код:
$sFile = 'file.txt'

$aRead = StringSplit(StringStripCR(FileRead($sFile)), @LF)
$sRead = ''

For $i = 1 To $aRead[0]
	If Not StringRegExp($aRead[$i], '\d.\d\d 0\.00') Then
		$sRead &= $aRead[$i] & @CRLF
	EndIf
Next

$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sRead)
FileClose($hFile)
 

gregaz

AutoIT Гуру
Сообщения
1,166
Репутация
299
Еще вариант :
Код:
$sFile = 'file.txt'
$sRead=FileRead($sFile)
$sText=	StringRegExpReplace( $sRead, '.*\d.\d\d 0\.00.*(?:\n|$)', '' )
$hFile = FileOpen($sFile, 2)
FileWrite($hFile,$sText)
FileClose($hFile)
 
Верх