1 (изменено: zuwiepro, 2016-02-05 21:15:55)

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

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

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

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

'SFUI_MainMenu_PlayButton'csgo_english
strText = Replace(strText,"PLAY", "<font color='#800080'>PLAY</font>")
'SFUI_MainMenu_Inventory'csgo_english
strText = Replace(strText,"INVENTORY", "<font color='#9acd32'>INVENTORY</font>")
'SFUI_MainMenu_Watch'csgo_english
strText = Replace(strText,"WATCH", "<font color='#9acd32'>WATCH</font>")
'SFUI_MainMenu_My_Awards'csgo_english
strText = Replace(strText,"AWARDS", "<font color='#9acd32'>AWARDS</font>")
'SFUI_MainMenu_HelpButton'csgo_english
strText = Replace(strText,"OPTIONS", "<font color='#9acd32'>OPTIONS</font>")
'SFUI_MainMenu_StatsButton'csgo_english
strText = Replace(strText,"STATS", "<font color='#9ACD32'>STATS</font>")
'SFUI_MainMenu_DownloadButton'csgo_english
strText = Replace(strText,"DOWNLOAD CONTENT", "<font color='#B22222'>DOWNLOAD CONTENT</font>")
'SFUI_MainMenu_SplitscreenWithBots'csgo_english
strText = Replace(strText,"SPLITSCREEN WITH BOTS", "<font color='#B22222'>SPLITSCREEN WITH BOTS</font>")
'SFUI_MainMenu_QuitGameButton'csgo_english
strText = Replace(strText,"EXIT GAME", "<font color='#B22222'>EXIT GAME</font>")
Set objFile = objFSO.OpenTextFile("csgo_english.txt", ForWriting, true, -1)

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

2

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

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

3

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

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

4

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

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

5

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

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

6

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

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

7

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

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

8

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

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

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

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