strAA = WScript.Arguments.Item(0) If Trim(strAA) = "" Then WScript.Quit TITLE = InputBox("AAのタイトルを入力してください", "AAListに追加", "") If TITLE = "" Then WScript.Quit strRepl = "*"&TITLE&vbNewLine&strPatrn Set fs = CreateObject("Scripting.FileSystemObject") Set st = fs.OpenTextFile(AAList, 1) TXT = st.ReadAll st.close Set st = Nothing TXT = Replace(TXT, strPatrn, strRepl) Set stream = fs.CreateTextFile(AAList, True) stream.Write(TXT) stream.WriteLine("["&TITLE&"]") stream.WriteLine(strAA) stream.Close Set stream = Nothing Set fs = Nothing
strAA = WScript.Arguments.Item(0) If Trim(strAA) = "" Then WScript.Quit TITLE = InputBox("AAのタイトルを入力してください", "AAListに追加", "") If TITLE = "" Then WScript.Quit strRepl = "*"&TITLE&vbNewLine&strPatrn Set fs = CreateObject("Scripting.FileSystemObject") Set st = fs.OpenTextFile(AAList, 1) TXT = st.ReadAll st.close Set st = Nothing TXT = Replace(TXT, strPatrn, strRepl) Set stream = fs.CreateTextFile(AAList, True) stream.Write(TXT) stream.WriteLine("["&TITLE&"]") stream.WriteLine(strAA) stream.Close Set stream = Nothing Set fs = Nothing