CMD/BAT - [решено] Автоматический поиск и замена текста в файле

[Touch_]

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

~14 000 строк.

Где слова могут повторяться.

Необходимо каждое слово или несколько слов заменять на свое число.

Есть второй файл где содержится список: строки вида- число слово -на пример( 14 День Трудящихся)

Необходимо в первом файле находить слова, и заменять их на соответствующие им число.

Прощу вашей помощи.

[Patroklos]

Мне кажется что шансы что тебе помогут сильно возрастут если ты загрузишь на форум эти два файла.

ЗЫ: не забудь заархивировать.

[Touch_]

megaloman, Вот прикрепил файлы с работой скрипта.

Не понравилась ему строчка: Международный женский день (8 Марта)

Вложения

txt.rar

(2.74 КБ) 0 скачиваний

txt.rar

(2.74 КБ) 0 скачиваний

[Touch_]

Цитата megaloman:



Кстати, а как насчёт больших/маленьких букв?

»

А что с ними?

Если нужно могу привести их к нижнему регистру.

[Touch_]

Попытка номер 2

[Patroklos]

Попытка номер 2

Вложения

Вложение txt_file_rar4 (2).rar больше недоступно

[megaloman]

Patroklos, Спасибо. Открыл во второй попытке ...

[megaloman]

Был рад помочь.

[Patroklos]

Опыта с UTF у меня минимум. Не стреляйте в пианиста ...

[spoiler]Код:

[/spoiler]

Код: Выделить всё

FileTxt = "Z:\Box_Arc\txt_file\1.txt"
FileNum = "Z:\Box_Arc\txt_file\2.txt"
FileOut = "Z:\Box_Arc\txt_file\1.rep.txt"
Delim=Chr(9)
With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(FileTxt, 1, False)
        InTxt = .ReadAll
        .Close
    End With
    With .OpenTextFile(FileNum, 1, False)
        MasNum = Split(.ReadAll, vbCrLf)
        .Close
    End With
    For Each Fin In MasNum
        If Len(Fin)  0 Then
            i = InStr(1, Fin, Delim)
            If i  0 Then
                Rep = Mid(Fin, 1, i - 1)
                Fin = Mid(Fin, i + 1)
                InTxt = Replace(InTxt, Fin, Rep)
            End If
        End If
    Next
    With .OpenTextFile(FileOut, 2, True)
        .Write InTxt
        .Close
    End With
End With
MsgBox "Script done"

FileOut может совпадать с FileTxt

Задачу делал для предложенных образцов файлов

[Touch_]

megaloman, благодарю работает.

Попробовал на другом файле замена прошла хорошо, только одну строчку скрипт не заменил.

Но это не принципиально поправил руками.