Memo/2004-07-26
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*Internet Explorer 関連情報 [#e4e73dd3]
**文字実体参照 [#h2811217]
***外字の使用 [#ne382861]
-外字
#ref(exit_mark_20040726.jpg);
-はてな質問内容
#ref(my_hatena_20040726.jpg);
-掲示板「いわし」の投稿内容
#ref(iwashi_20040726.jpg);
-はてな
--http://www.hatena.ne.jp/1090816308
-関連情報
--エッジ用絵文字一覧
---http://moto.vis.ne.jp/mkp/data/k-emoji/emojilist_edge....
***ASCIIコード表 [#j3c09892]
| |0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|
|0||| |0|@|P|`|p|€|...
|1|||!|1|A|Q|a|q|...
|2|||"|2|B|R|b|r|‚...
|3|||#|3|C|S|c|s|ƒ...
|4|||$|4|D|T|d|t|„...
|5|||%|5|E|U|e|u|…...
|6|||&|6|F|V|f|v|†...
|7|||'|7|G|W|g|w|‡...
|8|||(|8|H|X|h|x|ˆ...
|9|	||)|9|I|Y|i|y|‰...
|A| ||*|:|J|Z|j|z|
...
|B|||+|;|K|[|k|{|
...
|C|||,|<|L|\|l|||...
|D| ||-|=|M|]|m|}|...
|E|||.|>|N|^|n|~|...
|F|||/|?|O|_|o||...
***ASCIIコード表作成スクリプト [#s9001479]
' Usage : CScript HexTable.vbs // Nologo > HexTable.htm
HexTable
' ASCIIコード表作成スクリプト
Sub HexTable()
Dim i
Dim j
WScript.Echo "<HTML>"
WScript.Echo "<HEAD><TITLE>Hex Table</TITLE></HEAD>"
WScript.Echo "<BODY>"
WScript.Echo "<PRE>"
WScript.Echo "<TABLE BORDER=1>"
Dim strChar
For i = 0 To 15
Dim strLine
For j = 0 To 15
If i = 0 And j = 0 Then
strChar = "" ' 0x00 は文字実体参照を生成しない
Else
strChar = "&#" & CStr( i + j * 16 ) & ";"
End If
strLine = strLine & "<TD>" & strChar &"</TD>"
Next
strLine = "<TR>" & strLine & "</TR>"
WScript.Echo strLine
strLine = ""
Next
WScript.Echo "</TABLE>"
WScript.Echo "</PRE>"
WScript.Echo "</BODY>"
WScript.Echo "</HTML>"
End Sub
-ASCIIコード表作成スクリプト２（HexTable2.vbs）
' Usage : CScript HexTable2.vbs // Nologo > HexTable2.htm
HexTable2
' ASCIIコード表作成スクリプト２（ヘッダ行列付加バージョ...
Sub HexTable2()
Dim i
Dim j
WScript.Echo "<HTML>"
WScript.Echo "<HEAD><TITLE>Hex Table</TITLE></HEAD>"
WScript.Echo "<BODY>"
WScript.Echo "<PRE>"
WScript.Echo "<TABLE BORDER=1>"
Dim strLine
' ヘッダ行の作成
strLine = "<TR><TD> </TD>"
For i = 0 To 15
strLine = strLine & "<TD>" & Hex(i) & "</TD>"
Next
strLine = strLine & "</TR>"
WScript.Echo strLine
strLine = ""
' テーブルの作成
Dim strChar
For i = 0 To 15
For j = 0 To 15
If j = 0 Then
strLine = strLine & "<TD>" & Hex(i) & "</TD>"
End If
If i = 0 And j = 0 Then
strChar = "" ' 0x00 は文字実体参照を生成しない
Else
strChar = "&#" & CStr( i + j * 16 ) & ";"
End If
strLine = strLine & "<TD>" & strChar & "</TD>"
Next
strLine = "<TR>" & strLine & "</TR>"
WScript.Echo strLine
strLine = ""
Next
WScript.Echo "</TABLE>"
WScript.Echo "</PRE>"
WScript.Echo "</BODY>"
WScript.Echo "</HTML>"
End Sub
-実行結果
#ref(HexTable2_20040726.jpg);
-これはVBScriptですか? -- [[MURN]] &new{2004-07-26 (月) 1...
-VBScript です。 -- [[CX]] &new{2004-07-26 (月) 19:27:57};
終了行:
#contents
*Internet Explorer 関連情報 [#e4e73dd3]
**文字実体参照 [#h2811217]
***外字の使用 [#ne382861]
-外字
#ref(exit_mark_20040726.jpg);
-はてな質問内容
#ref(my_hatena_20040726.jpg);
-掲示板「いわし」の投稿内容
#ref(iwashi_20040726.jpg);
-はてな
--http://www.hatena.ne.jp/1090816308
-関連情報
--エッジ用絵文字一覧
---http://moto.vis.ne.jp/mkp/data/k-emoji/emojilist_edge....
***ASCIIコード表 [#j3c09892]
| |0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|
|0||| |0|@|P|`|p|€|...
|1|||!|1|A|Q|a|q|...
|2|||"|2|B|R|b|r|‚...
|3|||#|3|C|S|c|s|ƒ...
|4|||$|4|D|T|d|t|„...
|5|||%|5|E|U|e|u|…...
|6|||&|6|F|V|f|v|†...
|7|||'|7|G|W|g|w|‡...
|8|||(|8|H|X|h|x|ˆ...
|9|	||)|9|I|Y|i|y|‰...
|A| ||*|:|J|Z|j|z|
...
|B|||+|;|K|[|k|{|
...
|C|||,|<|L|\|l|||...
|D| ||-|=|M|]|m|}|...
|E|||.|>|N|^|n|~|...
|F|||/|?|O|_|o||...
***ASCIIコード表作成スクリプト [#s9001479]
' Usage : CScript HexTable.vbs // Nologo > HexTable.htm
HexTable
' ASCIIコード表作成スクリプト
Sub HexTable()
Dim i
Dim j
WScript.Echo "<HTML>"
WScript.Echo "<HEAD><TITLE>Hex Table</TITLE></HEAD>"
WScript.Echo "<BODY>"
WScript.Echo "<PRE>"
WScript.Echo "<TABLE BORDER=1>"
Dim strChar
For i = 0 To 15
Dim strLine
For j = 0 To 15
If i = 0 And j = 0 Then
strChar = "" ' 0x00 は文字実体参照を生成しない
Else
strChar = "&#" & CStr( i + j * 16 ) & ";"
End If
strLine = strLine & "<TD>" & strChar &"</TD>"
Next
strLine = "<TR>" & strLine & "</TR>"
WScript.Echo strLine
strLine = ""
Next
WScript.Echo "</TABLE>"
WScript.Echo "</PRE>"
WScript.Echo "</BODY>"
WScript.Echo "</HTML>"
End Sub
-ASCIIコード表作成スクリプト２（HexTable2.vbs）
' Usage : CScript HexTable2.vbs // Nologo > HexTable2.htm
HexTable2
' ASCIIコード表作成スクリプト２（ヘッダ行列付加バージョ...
Sub HexTable2()
Dim i
Dim j
WScript.Echo "<HTML>"
WScript.Echo "<HEAD><TITLE>Hex Table</TITLE></HEAD>"
WScript.Echo "<BODY>"
WScript.Echo "<PRE>"
WScript.Echo "<TABLE BORDER=1>"
Dim strLine
' ヘッダ行の作成
strLine = "<TR><TD> </TD>"
For i = 0 To 15
strLine = strLine & "<TD>" & Hex(i) & "</TD>"
Next
strLine = strLine & "</TR>"
WScript.Echo strLine
strLine = ""
' テーブルの作成
Dim strChar
For i = 0 To 15
For j = 0 To 15
If j = 0 Then
strLine = strLine & "<TD>" & Hex(i) & "</TD>"
End If
If i = 0 And j = 0 Then
strChar = "" ' 0x00 は文字実体参照を生成しない
Else
strChar = "&#" & CStr( i + j * 16 ) & ";"
End If
strLine = strLine & "<TD>" & strChar & "</TD>"
Next
strLine = "<TR>" & strLine & "</TR>"
WScript.Echo strLine
strLine = ""
Next
WScript.Echo "</TABLE>"
WScript.Echo "</PRE>"
WScript.Echo "</BODY>"
WScript.Echo "</HTML>"
End Sub
-実行結果
#ref(HexTable2_20040726.jpg);
-これはVBScriptですか? -- [[MURN]] &new{2004-07-26 (月) 1...
-VBScript です。 -- [[CX]] &new{2004-07-26 (月) 19:27:57};
ページ名:
![[CX's MEMO]](image/cx_memo.jpg "[CX's MEMO]")
