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

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

2016-02-05T18:11:16Z

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

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

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

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

2016-02-05T18:06:00Z

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

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

2016-02-05T18:04:22Z

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

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

2016-02-05T18:02:14Z

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

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

2016-02-05T18:00:49Z

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

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

2016-02-05T17:58:34Z

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

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

2016-02-05T17:49:18Z

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: Помощь по множественной замене строчек в файле

2016-02-05T17:10:22Z

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

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

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, "Спасибо за установку :*"