文字操作 HTML文法では使えない文字を変換
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Function TAGletterConversion(strLetter As String) As 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 = " " Case 34: strNewWord = """ Case 38: strNewWord = "&" Case 60: strNewWord = "<" Case 62: strNewWord = ">" 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 |