[Iska]

TheLeon, файл желательно упаковывать в архив и прикладывать к сообщению. Вообще же здесь понадобится два файла — файл до добавления и файл после добавления, чтобы можно было понять, что именно требуется.

[TheLeon]

Iska, assets_old assets_new.zip

[Iska]

TheLeon, у Вас действительно файлы в Юникоде UTF-16LE без BOM?

[TheLeon]

Iska, вроде да.

[Iska]

TheLeon, тогда я спрошу Вас так — как Вы относитесь к PowerShell?

Код:

$sSourceFile   = 'C:\Мои проекты\0160\assets_old assets_new\assets_old.txt'
$sStrings4Find = "/G-65`r`nMercedes-Benz G65 AMG`r`n"

if(Test-Path -Path $sSourceFile -PathType Leaf) {
    $oUnicodeEncodingWithoutBOM = New-Object -TypeName 'System.Text.UnicodeEncoding' -ArgumentList $false, $false

    $sContent = [System.IO.File]::ReadAllText($sSourceFile, $oUnicodeEncodingWithoutBOM)

    if($sContent –notmatch $sStrings4Find) {
        $sContent += "`r`n$sStrings4Find"
        [System.IO.File]::WriteAllText($sSourceFile, $sContent, $oUnicodeEncodingWithoutBOM)
        Write-Host "Strings ["                                         -ForegroundColor Green  -NoNewline
        Write-Host $sStrings4Find                                      -ForegroundColor Yellow -NoNewline
        Write-Host "] append to source file ["                         -ForegroundColor Green  -NoNewline
        Write-Host $sSourceFile                                        -ForegroundColor Yellow -NoNewline
        Write-Host "]."                                                -ForegroundColor Green
    } else {
        Write-Host "Strings ["                                         -ForegroundColor Green  -NoNewline
        Write-Host $sStrings4Find                                      -ForegroundColor Yellow -NoNewline
        Write-Host "] already presents in source file ["               -ForegroundColor Green  -NoNewline
        Write-Host $sSourceFile                                        -ForegroundColor Yellow -NoNewline
        Write-Host "]."                                                -ForegroundColor Green
    }
} else {
    Write-Host "Can't find source file [$sSourceFile]." -ForegroundColor Red
}

«`r`n» — это конец строки 0x0D, 0x0A, он же CrLf.

[TheLeon]

Iska, у меня проблема с PowerShell'ом, т.к. по-умолчанию в Shindows выполнение скриптов на PowerShell выключено.. А также не знаю, включена ли возможность выполнение скриптов у других пользователей, которые будут использовать установщик. Опять же, хотель, чтобы скрипт был на VBS, но не понимаю, как это реализовать.

[Iska]

TheLeon, с WSH есть проблема: там в принципе отсутствует прямая поддержка записи файлов в кодировке UTF-16LE без BOM — в том смысле, что BOM пишется всегда.

Ну, давайте попробуем обходным путём:

Скрытый текст

Код:

Option Explicit

Const ForReading   =  1
Const TristateTrue = -1

Const adTypeBinary = 1
Const adTypeText   = 2

Const adModeReadWrite = 3

Const adSaveCreateOverWrite = 2


Dim strSourceFile
Dim objRegExp

Dim strContent

Dim objStreamBinary


strSourceFile = "C:\Мои проекты\0160\assets_old assets_new\assets_old.txt"

Set objRegExp = WScript.CreateObject("VBScript.RegExp")

With objRegExp
	.Pattern    = "/G-65\r\nMercedes-Benz G65 AMG\r\n"
	.Multiline  = True
	.IgnoreCase = True
End With

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .OpenTextFile(strSourceFile, ForReading, False, TristateTrue)
			strContent = .ReadAll()
			.Close
		End With
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

If Not objRegExp.Test(strContent) Then
	strContent = strContent & vbCrLf & Replace(objRegExp.Pattern, "\r\n", vbCrLf)
	
	Set objStreamBinary = WScript.CreateObject("ADODB.Stream")
	
	With objStreamBinary
		.Type     = adTypeBinary
		.Mode     = adModeReadWrite
		.Open
	End With
	
	With WScript.CreateObject("ADODB.Stream")
		.Type     = adTypeText
		.Mode     = adModeReadWrite
		.Charset  = "unicode"
		.Open
		.WriteText strContent
		.Position = 2           ' Skip BOM
		.CopyTo objStreamBinary ' Strips BOM (first 2 bytes)
		.Close
	End With
	
	With objStreamBinary
		.SaveToFile strSourceFile, adSaveCreateOverWrite
		.Close
	End With
	
	Set objStreamBinary = Nothing
	
	WScript.Echo "Strings [" & objRegExp.Pattern & "] append to source file [" & strSourceFile & "]."
Else
	WScript.Echo "Strings [" & objRegExp.Pattern & "] already presents in source file [" & strSourceFile & "]."
End If

Set objRegExp = Nothing

WScript.Quit 0

Теперь символы конца строки — «\r\n». Не забывайте экранировать в шаблоне спецсимволы, иначе ни искаться, ни добавляться толком не будет. И путь к исходному файлу, и шаблон заданы тупо в коде.

[TheLeon]

Iska, после завершения установки выходит такое окно(скриншот №1 ниже), можно ли это окно скрыть? Строчки добавляются, но между ними такая ерунда (скриншот №2 ниже), т.е. всё, что было на русском - превратилось в непонятные символы.

Скриншот №1

Скриншот №2

[Iska]

Iska, после завершения установки выходит такое окно(скриншот №1 ниже), можно ли это окно скрыть? »

Закомментируйте строку:

Код:

WScript.Echo "Strings [" & objRegExp.Pattern & "] append to source file [" & strSourceFile & "]."

Строчки добавляются, но между ними такая ерунда (скриншот №2 ниже), т.е. всё, что было на русском - превратилось в непонятные символы. »

Это не между ними, это то, что Вы добавляете. Если происходит, как Вы пишете, такая ерунда — делайте следующее: упаковываете в архив Ваш исходный файл — именно тот, с которым Вы работаете, упаковываете Ваш файл скрипта .vbs, и прикладываете архив к сообщению.

Вы случайно скрипт не в UTF-8 сохраняете, а?