Серый форум — VBS: Помощь по множественной замене строчек в файле

Re: VBS: Помощь по множественной замене строчек в файле

null@example.com (Flasher) — Fri, 05 Feb 2016 18:11:16 +0000

zuwiepro
Так и надо было писать, что речь не про исправленный вариант, а про исходный. Когда файл открывается на запись, все данные из него удаляются:

Set objFile = objFSO.OpenTextFile("csgo_english.txt", ForWriting, true, -1)

В моём же случае производится запись данных.

Re: VBS: Помощь по множественной замене строчек в файле

null@example.com (zuwiepro) — Fri, 05 Feb 2016 18:06:00 +0000

Flasher
К сожалению не имею доступа к ПК в данный момент. Завтра могу отправить. Вас это устроит?

Re: VBS: Помощь по множественной замене строчек в файле

null@example.com (Flasher) — Fri, 05 Feb 2016 18:04:22 +0000

zuwiepro
Приложите конкретный файл, с которым так происходит.

Re: VBS: Помощь по множественной замене строчек в файле

null@example.com (zuwiepro) — Fri, 05 Feb 2016 18:02:14 +0000

Flasher
Иногда бывает, что просто удаляются все строки в файле

Re: VBS: Помощь по множественной замене строчек в файле

null@example.com (Flasher) — Fri, 05 Feb 2016 18:00:49 +0000

zuwiepro
Не понял вопроса. Что значит "к чему"?

Re: VBS: Помощь по множественной замене строчек в файле

null@example.com (zuwiepro) — Fri, 05 Feb 2016 17:58:34 +0000

Flasher
Спасибо большое) ещё такой вопрос - к чему может производится удаление всех строчек в файле После запуска данного скрипта?

Re: VBS: Помощь по множественной замене строчек в файле

null@example.com (Flasher) — Fri, 05 Feb 2016 17:49:18 +0000

Set FSO = CreateObject("Scripting.FileSystemObject")
strText = FSO.OpenTextFile("csgo_english.txt",,,-1).ReadAll
'SFUI_MainMenu_PlayButton'csgo_english
strText = Replace(strText,"PLAY", "PLAY")
'SFUI_MainMenu_Inventory'csgo_english
strText = Replace(strText,"INVENTORY", "INVENTORY")
'SFUI_MainMenu_Watch'csgo_english
strText = Replace(strText,"WATCH", "WATCH")
'SFUI_MainMenu_My_Awards'csgo_english
strText = Replace(strText,"AWARDS", "AWARDS")
'SFUI_MainMenu_HelpButton'csgo_english
strText = Replace(strText,"OPTIONS", "OPTIONS")
'SFUI_MainMenu_StatsButton'csgo_english
strText = Replace(strText,"STATS", "STATS")
'SFUI_MainMenu_DownloadButton'csgo_english
strText = Replace(strText,"DOWNLOAD CONTENT", "DOWNLOAD CONTENT")
'SFUI_MainMenu_SplitscreenWithBots'csgo_english
strText = Replace(strText,"SPLITSCREEN WITH BOTS", "SPLITSCREEN WITH BOTS")
'SFUI_MainMenu_QuitGameButton'csgo_english
strText = Replace(strText,"EXIT GAME", "EXIT GAME")
FSO.OpenTextFile("csgo_english.txt", 2, True, -1).Write strText
MsgBox "Готово! Цветные шрифты установлены!", 0, "Спасибо за установку :*"

VBS: Помощь по множественной замене строчек в файле

null@example.com (zuwiepro) — Fri, 05 Feb 2016 17:10:22 +0000

Приветствую! Появился такой вопрос: как запустить весь скрипт? он находится в папке с файлом если что
( Исправьте ошибки )

+ открыть спойлер

Set objFile = objFSO.OpenTextFile("csgo_english.txt", ForReading, false, -1)

'SFUI_MainMenu_PlayButton'csgo_english
strText = Replace(strText,"PLAY", "PLAY")
'SFUI_MainMenu_Inventory'csgo_english
strText = Replace(strText,"INVENTORY", "INVENTORY")
'SFUI_MainMenu_Watch'csgo_english
strText = Replace(strText,"WATCH", "WATCH")
'SFUI_MainMenu_My_Awards'csgo_english
strText = Replace(strText,"AWARDS", "AWARDS")
'SFUI_MainMenu_HelpButton'csgo_english
strText = Replace(strText,"OPTIONS", "OPTIONS")
'SFUI_MainMenu_StatsButton'csgo_english
strText = Replace(strText,"STATS", "STATS")
'SFUI_MainMenu_DownloadButton'csgo_english
strText = Replace(strText,"DOWNLOAD CONTENT", "DOWNLOAD CONTENT")
'SFUI_MainMenu_SplitscreenWithBots'csgo_english
strText = Replace(strText,"SPLITSCREEN WITH BOTS", "SPLITSCREEN WITH BOTS")
'SFUI_MainMenu_QuitGameButton'csgo_english
strText = Replace(strText,"EXIT GAME", "EXIT GAME")
Set objFile = objFSO.OpenTextFile("csgo_english.txt", ForWriting, true, -1)

MsgBox "Готово! Цветные шрифты установлены!", 0, "Спасибо за установку :*"