VBScript Option Explicit Private fs Private conn '結果出力 Private Sub writeResult(rs, sqlFile) '上書きか、追加書き込みか Dim mode: mode = "2" '2:ForWriting If WScript.Arguments.Count > 2 Then If WScript.Arguments(2) = "1" Then mode = "8" …

VBScript Option Explicit Private fs Private conn Private excelApp Private excelBook Private excelSheet '出力シートの準備 Private Sub openSheet(iSheet, sqlFile) '必要なら、シートを追加する If iSheet > excelBook.WorkSheets.Count Then excelBo…

英数字だけなら、これでOK <a href='http://www.youtube.com/results?search_query=YAZAWA+EIKICHI+LAHAINA&aq=f'>矢沢永吉 ラハイナ</a> 矢沢永吉 ラハイナ日本語ありなら、こんな風に encode してあげないといけないので、 <a href='http://www.youtube.com/results?search_query=%E7%9F%A2%E6%B2%A2%E6%B0%B8%E5%90%89+%E3%83%A9%E3%83%8F%E3%82%A4%E3%83%8A&aq=f'>矢沢永吉 ラハイナ</a>