ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文

  メンテナンス 前画面に戻る

対象スレッド 件名: VBScript でキャラクタセット変換
名前: lightbox
処理選択
パスワード

件名 VBScript でキャラクタセット変換
名前 lightbox
コメント
@SHOW
拡張子は .wsf です
@END

@DIV
<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>
@END

@SHOW
SaveToFile オプションの 2 は https://msdn.microsoft.com/ja-jp/library/cc389870.aspx(上書きを意味)します

ライブラリ無しで、通常処理で動作します
@END

@HTML
<span id="a39_1"></span>
<script>
$(function(){
   $("#a39_1").prevAll(".ref").eq(0).find(".save_ext").val("wsf");
   $("#a39_1").prevAll(".ref").eq(0).find(".charset").val("sjis");
});
</script>
@HEND