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