[過去ﾛｸﾞ] トロピコ・Tropicoであなたもカリブの独裁者！[45] (1001ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

522(1): 2013/12/09(月)19:41 ID:hl0yS4dU(7/7) AAS
ごめん、3度目の正直
*************************
Option Explicit

Dim objFSO
Dim strFilePath
Dim strSrchTxt
Dim strRepTxt
Dim objFile
Dim strTxt

strFilePath = "C:\Program Files (x86)\Steam\steamapps\common\Tropico 4\InstallScript.vdf"
strSrchTxt = """language"""&vbTab&vbTab&"""English"""
strRepTxt = """language"""&vbTab&vbTab&"""Japanese"""

Set objFso = CreateObject("Scripting.FileSystemObject")

Set objFile = objFso.OpenTextFile(strFilePath, 1, False)
strTxt = objFile.ReadAll
strTxt = replace(strTxt,strSrchTxt,strRepTxt)
objFile.Close

Set objFile = objFso.OpenTextFile(strFilePath, 2, False)
objFile.WriteLine (strTxt)
objFile.Close

CreateObject("Wscript.Shell").RegWrite "HKCU\Software\Haemimont Games\Tropico 4\Language" , "Japanese" , "REG_SZ"

Set objFile = Nothing
Set objFso = Nothing
**************************

---

上下前次1-新書関写板覧索設栞歴

---

あと 479 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.076s*