Jane Style (Windows版) Part291

[120 名無しさん＠お腹いっぱい。 警備員[Lv.36] 2025/08/16(土) 22:31:26.62 ID:p0/2J/9K0]

MonaTicket_delete.vbs

' INIファイルを読み込む
Ini = CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 1).ReadAll

' MonaTicket=の後ろの25文字を削除する正規表現を設定
Set RE = New RegExp
RE.Pattern = "(MonaTicket=.*?)(.{25})"

' 置換を実行
Ini = RE.Replace(Ini, "$1")

' INIファイルに書き戻す
CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 2, True).Write Ini

Jane2ch.iniのある場所に置いて実行。改良があればどうぞ