VBS/WSH/JS - [решено] Замена одного текста на другой включая кавычки путем VBS через запуск команды в коман

Serguei Kouzmine · Отправлено: **01:24, 03-07-2023** | #2

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

vodashk@vk · Отправлено: **01:46, 03-07-2023** | #3

Цитата Serguei Kouzmine:

повершелл »

и в powershell не вышло у меня)

Serguei Kouzmine · Отправлено: **02:20, 03-07-2023** | #4

пробуйте сильнее

Код:

'num="100"' -replace 'num=\"100\"' , 'num = "0"'


num = "0"

Код:

'num="100"' -replace 'num="100"' , 'nu
m = "0"'


num = "0"

- уверяю вас vbscript с кавычками это тупик

vodashk@vk · Отправлено: **02:52, 03-07-2023** | #5

Цитата Serguei Kouzmine:

уверяю вас vbscrip »

пока мучался сам сделал, зашел сюда потом увидел у вас, а я правильно сделал целиком код и текст не нарушится? Думал поделиться с ответом решением через cmd

PowerShell -Command "(gc "default_temp") -replace 'max_time=\"600\"' , 'max_time=\"0\"' | sc "default_temp""

и вопрос он не портит кодировку и текст оставляет в той же кодировке как и был и не портит его содержимое

А так то результат положительный

Serguei Kouzmine · Отправлено: **05:54, 03-07-2023** | #6

Цитата vodashk@vk:

вопрос он не портит кодировку и текст оставляет в той же кодировке как и был »

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

Sham · Отправлено: **08:30, 03-07-2023** | #7

Цитата vodashk@vk:

"max_time="0"" »

в cmd кавычки внутри кавычек экранируют обычно дублированием "max_time=""0"""

Serguei Kouzmine · Отправлено: **15:36, 03-07-2023** | #8

Sham,
попробуйте добавить в скрипт

Код:

WScript.echo strOldText

увидите

Код:

cscript /Nologo replace.vbs "a.txt" "max_time=""600""" "max_time=""0"""

Код:

max_time=600

кавычки исчезли

Sham · Отправлено: **17:03, 03-07-2023** | #9

Цитата Serguei Kouzmine:

кавычки исчезли »

да, реальная проблема. Я бы заменил на двойные одинарные '' ("max_time=''600''") и в скрипте менял бы replace'ом: replace(Wscript.Arguments(1), "''", """"). На SO вообще предлагают лезть в Win32_Process за исходной строкой - это на любителя.

vodashk@vk · Отправлено: **00:04, 18-07-2023** | #10

Sham, туда же и меня направило)
помог искусственный интеллект с ответом как ни странно

взялся за такую строку и решил сменить, все получилось
max_time="60" с этим получилось

при этом другие значения не затрагиваются
типа таких
mode="0"
mode='60'
mode=60
mode='600'
mode="600"
"60"
'60'

батник
Код

Код:

@echo off
cscript //NoLogo replace.vbs "config.xml" "max_time='60'" "max_time='0'"
pause

vbs

HTML код:

Код
Dim filePath, searchString, replaceString

filePath = WScript.Arguments.Item(0)
searchString = Replace(WScript.Arguments.Item(1), "'", Chr(34))
replaceString = Replace(WScript.Arguments.Item(2), "'", Chr(34))

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(filePath)

strContent = objFile.ReadAll
objFile.Close

strContent = Replace(strContent, searchString, replaceString)

Set objFile = objFSO.OpenTextFile(filePath, 2)
objFile.Write strContent
objFile.Close