天からのお告げで、CSVをWebシステムにアップロードする前にSJISをUTF-8に変換してほしいという声が聞こえたので書いてみました。
１．文字コード変換といえば、「ADODB.Stream」
文字コード変換する時にCopyToでStreamを繋げる必要があって、入力と出力のファイルが一緒だとエラーになったので、入と出が一緒だったらGetTempNameで取得した仮ファイル名でファイル作ってから置き換えるって処理を付けてます。
入力ファイルが存在しなかったらエラーがでます。
いつもの如く、以下のスクリプトをスクリプト実行ステージに張り付ければ実装できます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
inFile = !元ファイル! ConvType = !変換処理|SJIS⇒UTF-8,UTF-8⇒SJIS! outFile = !変換後ファイル! BefCode = "" AftCode = "" Set objFS = CreateObject("Scripting.FileSystemObject") If Not objFS.FileExists(inFile) Then Err.Raise 1, "", "元ファイルが存在しません。" WScript.Quit End If If inFile = outFile Then ReplaceFlg = True outFile = objFS.GetTempName Else ReplaceFlg = False End If Select Case ConvType Case "SJIS⇒UTF-8" BefCode = "Shift_JIS" AftCode = "UTF-8" Case "UTF-8⇒SJIS" BefCode = "UTF-8" AftCode = "Shift_JIS" End Select Set objBef = CreateObject("ADODB.Stream") Set objAft = CreateObject("ADODB.Stream") objBef.Type = 2 objBef.Charset = BefCode objBef.Open objBef.LoadFromFile inFile objAft.Type = 2 objAft.Charset = AftCode objAft.Open objBef.CopyTo objAft objAft.SaveTofile outFile objBef.Close objAft.Close If ReplaceFlg Then objFS.DeleteFile inFile objFS.CopyFile outFile, inFile End If Set objFS = Nothing |
２．設定タブは、こんな感じ。
変換処理は、「SJIS⇒UTF-8」と「UTF-8⇒SJIS」から選べます。