Maza Faka
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ViSiToR
Спасибо за пример. Теперь другая проблема, не удаляет дублирующиеся строки оканчивающиеся символом ?
Код: Dim $ResultStrings
$file = "c:\test.txt"
$fRead = FileRead($file)
$aStrings = StringRegExp($fRead, "(.*)(?:\r\n|\z)", 3)
For $i = 0 To UBound($aStrings) - 1
If Not StringRegExp($ResultStrings, "(?i)(" & $aStrings[$i] & ")(?:\r\n|\z)", 0) Then $ResultStrings &= $aStrings[$i] & @CRLF
Next
$hFile = FileOpen($file, 2)
FileWrite($hFile, $ResultStrings)
FileClose($hFile) |
Добавлено:
Решил проблему так:
Код: Dim $ResultStrings
$file = "c:\test.txt"
$fRead = FileRead($file)
$aStrings = StringRegExp($fRead, "(.*)(?:\r\n|\z)", 3)
For $i = 0 To UBound($aStrings) - 1
If Not StringRegExp($ResultStrings, "(?i)(" & $aStrings[$i] & "\??)(?:\r\n)", 0) Then $ResultStrings &= $aStrings[$i] & @CRLF
Next
$hFile = FileOpen($file, 2)
FileWrite($hFile, $ResultStrings)
FileClose($hFile) |
Но это не выход, кто знаёт на каком ещё символе споткнётся RegExp
Добавлено:
Кстати, твой пример отлично работает и с одним циклом:
Код: $sFilePath = @ScriptDir & "\test.txt"
_FileDeleteDupes($sFilePath)
Func _FileDeleteDupes($sFile)
Local $aFSplit = StringSplit(StringStripCR(FileRead($sFile)), @LF)
Local $sFileContent = ""
;Проходим весь массив, и проверяем каждую строку
For $i = 1 To $aFSplit[0]
;Тут начинаем проверку в массиве с текущей позиции, чтобы сравнить с каждой следующей строкой
;For $j = $i To $aFSplit[0]
If Not StringInStr($sFileContent, $aFSplit[$i] & @CRLF) Then
$sFileContent &= $aFSplit[$i] & @CRLF
;ExitLoop
EndIf
;Next
Next
;Пишем в файл уже без дублей
$hFOpen = FileOpen($sFile, 2)
FileWrite($hFOpen, $sFileContent)
FileClose($hFOpen)
EndFunc |
А я-то гадал, для чего нужны два цикла (не обратил внимания на ExitLoop)  |
