[решено] Сравнение файлов и замена значения из одного файла в другой.

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Сравнение файлов и замена значения из одного файла в другой.

Добрый день, обращаюсь к знающим людям в области программирования, вручную конечно можно но там около 10000 значений надо будет копипастить.

Нужно в файле 1.txt заменить значение 76868238 значением из 2.txt 76561198037133966,
следовательно значение 9818504 заменить на 76561197970084232 и т.д.

1.txt

2.txt

Первое значение в 1.txt первым со 2.txt и т.д.
76868238 на 76561198037133966
9818504 на 76561197970084232

В первом файле значение которое надо заменить находится через каждые 47 строк , во втором через две.

Aleks911tat
Лучше один раз увидеть... небольшой пример того, что должно получиться и уж тогда может быть...

оригинал 1.txt

оригинал 2.txt

конечный файл .txt

Попробуйте вот это на VBS:

Код:

Option Explicit



Dim fso, vStreamSrc1, vStreamSrc2, vStreamDest

Dim strLine1, strLine2, strSrc1, strSrc2



Const FILE_SRC1 = "R:\1.txt"  'что менять

Const FILE_SRC2 = "R:\2.txt"  'откуда брать замену

Const FILE_DEST = "R:\3.txt"  'куда сохранить



Function Between(strWhereSearch, strLeftString, strRightString)

        Dim pos1, pos2

        pos1 = InStr(1, strWhereSearch, strLeftString, vbTextCompare)

        If pos1 Then

                pos2 = InStr(pos1 + 1, strWhereSearch, strRightString, vbTextCompare)

                If pos2 Then

                        Between = Mid(strWhereSearch, pos1 + 1, pos2 - pos1 - 1)

                        Exit Function

                End If

        End If

        Between = ""

End Function



Set fso = CreateObject("Scripting.FileSystemObject")



Set vStreamSrc1 = fso.OpenTextFile(FILE_SRC1, 1, False, 0)

Set vStreamSrc2 = fso.OpenTextFile(FILE_SRC2, 1, False, 0)

Set vStreamDest = fso.OpenTextFile(FILE_DEST, 2, True, 0)



While Not vStreamSrc1.AtEndOfStream

        strLine1 = vStreamSrc1.ReadLine

        strSrc1 = Between(strLine1, "[", " StatsObject]")

        If strSrc1 <> "" Then

                strSrc2 = ""

                While (Not vStreamSrc2.AtEndOfStream) And (strSrc2 = "")

                        strLine2 = vStreamSrc2.ReadLine

                        strSrc2 = Between(strLine2, "[", "]")

                Wend

                If strSrc2 <> "" Then

                        vStreamDest.WriteLine Replace(strLine1, strSrc1, strSrc2, 1, 1, vbTextCompare)

                Else

                        vStreamDest.WriteLine strLine1

                End If

        Else

                vStreamDest.WriteLine strLine1

        End If

Wend



vStreamSrc1.Close

vStreamSrc2.Close

vStreamDest.Close



MsgBox "OK"

Значения не перенеслись

Результат отработки скрипта

Хм... А в какой кодировке файлы?
Ну или попробуйте здесь менять последний параметр на 0, -1, -2

Код:

Set vStreamSrc1 = fso.OpenTextFile(FILE_SRC1, 1, False, 0)

Set vStreamSrc2 = fso.OpenTextFile(FILE_SRC2, 1, False, 0)

Set vStreamDest = fso.OpenTextFile(FILE_DEST, 2, True, 0)

Совсем забыл про не стандартную кодировку, поменял.
Появилась проблема, если во 2.txt в следующей строке после значения которое надо перенести в 1.txt есть квадратные скобки []

[76561198016708202]
GALL[M.P.A.D.]=SRVetDemolitions

то значение не переносится

[n StatsObject]
PlayerName=GALL[M.P.A.D.]

дальше он копирует неправильно.

Aleks911tat, Вот вариант решения

Код:

File1 = "D:\_Удали это\1.txt"

File2 = "D:\_Удали это\2.txt"

File3 = "D:\_Удали это\1new.txt"

WordKey = " StatsObject]"



Set FSO = CreateObject("Scripting.FileSystemObject")



Set F = FSO.OpenTextFile(File2, 1, False)       ' Открываем исходный текст файл для чтения

AllTxt = F.ReadAll()                            ' Cчитываем весь файл в строковую переменную

F.Close                                         ' Закрываем файл



Mas = Split(AllTxt, vbCrLf)                     ' Разбиваем полученную строку в массив. Резделитель - конец строки и перевод строки vbCrLf



i0 = 0

ii = UBound(Mas)



Set F = FSO.OpenTextFile(File1, 1, False)       ' Открываем исходный текст файл для чтения

Set FF = FSO.OpenTextFile(File3, 2, True)        ' Создаём файл для записи результата



A = ""

wk = LCase(WordKey)

j = 0

Do While Not F.AtEndOfStream

    InString = Trim(F.ReadLine)

    If i0 <= ii Then

      If Mid(InString, 1, 1) = "[" Then

        If InStr(LCase(InString), wk) <> 0 Then

            For i = i0 To ii

                MM = Trim(Mas(i))

                j = i

                If Mid(MM, 1, 1) = "[" Then

                   InString = Replace(MM, "]", WordKey)

                   Exit For

                End If

            Next

            i0 = j + 1

        End If

      End If

    End If

    FF.Write A + InString

    A = vbCrLf

Loop



F.Close

FF.Close

Скрипт из файла 2.txt берет значение и заменяет по три значения в 1.txt, первое значение перенес правильно , а остальное нет.

http://rghost.ru/39998814 пароль на архив oszone

Aleks911tat, Виноват! Торопливость и не очень хороший объект для тестирования. Исправил! Спасибо за исходные файлы.
Вместо j = i0
надо написать j = i

Все работает.

Возможно надо было создать отдельную тему.
Возникла необходимость удаления дубликатов записей.

Если встречаются одинаковые значения в [ StatsObject] то удаляются строки где "TotalPlayTime=" меньше

оригинал

строки которые нужно удалить так как значение "TotalPlayTime=" низкое