Internet Explorer 関連情報

文字実体参照

外字の使用

ASCIIコード表

 0123456789ABCDEF
0 0@P`p °ÀÐàð
1!1AQaq¡±ÁÑáñ
2"2BRbr¢²ÂÒâò
3#3CScsƒ£³ÃÓãó
4$4DTdt¤´ÄÔäô
5%5EUeu¥µÅÕåõ
6&6FVfv¦ÆÖæö
7'7GWgw§·Ç×ç÷
8(8HXhxˆ˜¨¸ÈØèø
9 )9IYiy©¹ÉÙéù
A *:JZjzŠšªºÊÚêú
B +;K[k{«»ËÛëû
C ,<L\l|Œœ¬¼ÌÜìü
D -=M]m}­½ÍÝíý
E.>N^n~Žž®¾ÎÞîþ
F/?O_oŸ¯¿Ïßïÿ

ASCIIコード表作成スクリプト

' 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コード表作成スクリプト2(HexTable2.vbs)
    ' Usage : CScript HexTable2.vbs // Nologo > HexTable2.htm
    HexTable2
    ' ASCIIコード表作成スクリプト2(ヘッダ行列付加バージョン)
    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
  • 実行結果
    HexTable2_20040726.jpg
  • これはVBScriptですか? -- MURN? 2004-07-26 (月) 16:55:09
  • VBScript です。 -- CX 2004-07-26 (月) 19:27:57

添付ファイル: filemy_hatena_20040726.jpg 416件 [詳細] fileiwashi_20040726.jpg 436件 [詳細] fileHexTable2_20040726.jpg 438件 [詳細] fileexit_mark_20040726.jpg 478件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2021-07-13 (火) 21:59:21 (94d)