【VBS】 HTML 用「数値文字参照」文字列( &#数値; ) を作成する

  &#数値;... をコマンドプロンプトへ表示します




quit を入力すると終了します。( コマンドプロンプトで CTRL+C でも終了 )

WEB上で変換するには、ここのHTML数値文字列参照



<JOB>
<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" )

Crun

Do

	str = InputBox("文字列を入力して下さい")
	Wscript.Echo str
	if str = "" then
		Exit Do
	end if

	uni_str = ""
	nLen = Len(str)
	For I = 1 to nLen
		wn = ascw(Mid(str,I,1))
		if wn < 0 then
			wn = wn + 65536
		end if
		uni_str = uni_str & "&#" & wn & ";"
	Next

	Wscript.Echo uni_str

Loop

</SCRIPT>
</JOB>











  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ