ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
VBScript でキャラクタセット変換
日時: 2015/09/14 12:42
名前: lightbox



<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

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

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
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>
メンテナンス

拡張子は、.wsf です ( No.1 )
日時: 2015/09/14 12:51
名前: lightbox


日時: 2015/09/14 12:51
名前: lightbox
ライブラリ無しで、通常処理で動作します
このアーティクルの参照用URLをクリップボードにコピー メンテナンス