文字操作 HTML文法では使えない文字を変換

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


Function TAGletterConversion(strLetter As StringAs String
'***********************************
'HTML文法では使えない文字を変換
'***********************************
'strLetter 通常のテキストデータ

Dim cntWord As Long
Dim strWord As String
Dim strNewWord As String
Dim i As Long

Dim strNewLetter As String

cntWord = Len(strLetter) '文字数

For i = 1 To cntWord
    strWord = Mid(strLetter, i, 1)
        Select Case Asc(strWord)  '文字コード判別
            Case 13: strNewWord = "<br>"
            Case 32: strNewWord = "&nbsp;"
            Case 34: strNewWord = "&quot;"
            Case 38: strNewWord = "&amp;"
            Case 60: strNewWord = "&lt;"
            Case 62: strNewWord = "&gt;"
            Case Else: strNewWord = strWord
        End Select
    strNewLetter = strNewLetter & strNewWord
Next i
    TAGletterConversion = strNewLetter
'-------------------------------------------------------------------
'Asc 関数
'指定した文字列内にある先頭の文字の文字コードを返す変換関数です。
Debug.Print Asc(vbCr)
Debug.Print Asc(" ")
Debug.Print Asc("""")
Debug.Print Asc("&")
Debug.Print Asc("<")
Debug.Print Asc(">")
'13
'32
'34
'38
'60
'62

'Chr 関数
'指定した文字コードに対応する文字を示す文字列型 (String) の値を返します。
Debug.Print Chr(13)
Debug.Print Chr(32)
Debug.Print Chr(34)
Debug.Print Chr(38)
Debug.Print Chr(60)
Debug.Print Chr(62)
'キャリッジ リターン
'空白(半角スペース)
'"
'&
'<
'>

End Function

 

 

 

2000年01月01日|[VBサンプルコード]:[文字操作]