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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 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





Production Japan Import Application. Since 1998