Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Повторяющийся текст в файле.

Ответить
Настройки темы
[решено] Повторяющийся текст в файле.

Пользователь


Сообщения: 143
Благодарности: 24

Профиль | Отправить PM | Цитировать

Поползав по форуму нашел идентичную тему Creat0R'а, вот она:
читать дальше »

Хотелось бы решить такую задачу...
Имеется файл, а в нём много разного текста, и нужно перечитать весь текст, и проверить, не содержатся ли в нём дубликаты определённой переменной.
Т.е, допустим файл содержит такой текст:

[code]
Первая строчка
Вторая строчка
Просто текст
Ещё текст...
Просто текст
[\code]

И заранее известно, что именно нужно искать, и это помещенно в переменную - $Var = "Просто текст"...

Нужно в этом файле вычеслить, повторяется ли этот самый текст (тот который в переменной), если есть совпадения, то желательно вернуть номер строчки где есть совпадение, и строку содержащюю найденый дубликат (в Array[1].. [2] и т.п).

Решение предложенное amel27

PHP код: Выделить весь код

#include <File.au3>



$File = "c:\test.txt"

$Array = _TextInFile ($File, "Просто текст")

If $Array[0][0]>1 Then

        For $i = $Array[0][0] to 2 Step -1

                _FileWriteToLine($File, $Array[$i][0], "", 1)

        Next

EndIf



Func _TextInFile ($file, $text)

        Local $i, $txtLines, $res [1][2] = [[0,0]]

        _FileReadToArray ($file, $txtLines)

        If IsArray ($txtLines) Then

                For $i=1 To $txtLines [0]

                        If StringInStr ($txtLines [$i], $text) Then

                                ReDim $res [$res [0][0]+2][2]

                                $res [0][0] = $res [0][0] +1

                                $res [$res [0][0]][0] = $i

                                $res [$res [0][0]][1] = $txtLines [$i]

                        EndIf

                Next

        EndIf

        Return $res

EndFunc 




У меня вот идентичная проблема, есть файл в котором:
Код: Выделить весь код
1
1
233759
38782524?95793
16910026
1785220?83255
233759
38782524?95793
16910026
233759
38782524?95793
16910026
1785220?83255
Как я хотел, прочитать файл в массив и подставлять каждый элемент массива вместо (Просто текст). Сделал такое, в файл записывает только первый совпавший элемент =(
В итоге надо получить воттакое вот:
Код: Выделить весь код
1
233759
38782524?95793
16910026
1785220?83255
Спасибо.

Отправлено: 01:43, 08-08-2009

 

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать

Цитата HORRIBLE:
В итоге надо получить воттакое вот »
Код: Выделить весь код
ConsoleWrite(_StringDistinct(FileRead("c:\TEST\1.txt")) &@CRLF)

Func _StringDistinct($sTXT)
    Local $aLN1, $sOUT = ""

    While $sTXT <> ""
        $aLN1 = StringRegExp($sTXT, "^[^\n\r]*", 1)
        $sTXT = StringRegExpReplace($sTXT, "(?m)^\Q"& $aLN1[0] &"\E(?:\r\n|\n|$)", "")
        $sOUT&= $aLN1[0] &@CRLF
    WEnd
    Return $sOUT
EndFunc
Это сообщение посчитали полезным следующие участники:

Отправлено: 08:22, 08-08-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать

HORRIBLE, решено?

FYI: Как сообщить о том, что моя проблема решена?

Отправлено: 05:42, 11-08-2009 | #3


Пользователь


Сообщения: 143
Благодарности: 24

Профиль | Отправить PM | Цитировать

Прошу прощения забыл совсем поставить, что решено!

Отправлено: 00:31, 14-08-2009 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Повторяющийся текст в файле.

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] замена строчки в файле Bint Скриптовые языки администрирования Windows 4 15-10-2009 10:24
CMD/BAT - [решено] Изменение текста в файле tarasov.evgeny Скриптовые языки администрирования Windows 5 12-08-2009 16:21
Что означает повторяющийся длинный сигнал? (компьютер не стартует) KOTOVASIYA Хочу все знать 7 20-11-2008 15:27
Офис и Текст - ПО, заменяющее текст в файле Punsher Программное обеспечение Windows 4 09-03-2008 15:00
программа, с помошью кот. можно сверить текст на картинке с текстом в текстовом файле scissors Программное обеспечение Windows 1 03-10-2007 22:43


« Предыдущая тема | Следующая тема »


 
Переход