| 2020/02/08(Sat) 21:34:15 編集(投稿者)
> ・「○○.vax」のテキストはunicode
> ・「○○.var」の方はシフトJIS
桐10側の環境設定で、印字コマンドを
「シフトJIS」で書き出すに設定が可
能なら「印字」コマンドで varファイル
を作る。
そう言う事が面倒くさかったら
uni2sjis.vbs
--------------------------------------------
Dim arg, vax, var
Set arg = WScript.Arguments
If Arg.Count < 2 Then
WScript.Quit
End If
vax = arg(0)
var = arg(1)
Const adTypeText = 2
Const adSaveCreateOverWrite = 2
Set Src = CreateObject("ADODB.Stream")
Src.Open
Src.Type = adTypeText
Src.Charset = "Unicode"
Src.LoadFromFile vax
Set Dst = CreateObject("ADODB.Stream")
Dst.Open
Dst.Type = adTypeText
Dst.Charset = "Shift_JIS"
Src.CopyTo Dst
Src.Close
Dst.SaveToFile var, adSaveCreateOverWrite
Dst.Close
Set Src = Nothing
Set Dst = Nothing
--------------------------------------------
と、言うような VBScript ファイルを作り
cscript uni2sjis.vbs "in.vax" "out.var"
と、桐内で実行させる。
(桐9側でも、桐10側でも必要な方で)
逆にしたかったら、Charset を Src 側と
Dst 側で入れ替え、sjis2uni.vbs と言う
のを作って実行させる。
|
