ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
VBScript でキャラクタセット変換
日時: 2018/02/15 05:20
名前: lightbox



拡張子は .wsf です
拡張子:
<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
	language="VBScript"
	src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "toolFunction.vbs" )

Crun

Call GetObj("Stream1", "ADODB.Stream")
Call GetObj("Stream2", "ADODB.Stream")

Stream1.Open
Stream1.Type = 2
Stream1.Charset = "shift_jis"
'Stream1.Charset = "euc-jp"
'Stream1.Charset = "utf-8"
'Stream1.Charset = "Unicode"
'Stream1.Charset = "ISO-2022-JP"	' JIS

' 入力ファイル
Stream1.LoadFromFile ScriptDir & "\test1.txt"

Stream2.Open
'Stream2.Charset = "shift_jis"
Stream2.Charset = "euc-jp"
'Stream2.Charset = "utf-8"
'Stream2.Charset = "Unicode"
'Stream2.Charset = "ISO-2022-JP"	' JIS

Stream1.CopyTo Stream2
Stream1.Close

' 出力ファイル
Stream2.SaveToFile ScriptDir & "\test2.txt", 2
Stream2.Close

</SCRIPT>
</JOB>
SaveToFile オプションの 2 は 上書きを意味します

ライブラリ無しで、通常処理で動作します
メンテナンス


日時: 2018/02/15 05:20
名前: lightbox