文字操作 文字内の空白文字削除及び誤変換文字修正

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 文字内の空白文字削除及び誤変換文字修正]
Option Explicit


Public Function Fnc文字内空白(strInTEXT As StringAs String
'*******************************************************************************
'文字内の空白文字削除及び誤変換文字修正
'*******************************************************************************
    Dim IDX As Integer
    Dim strTEXT As String
    Dim strCHAR As String

    Fnc文字内空白 = ""
    strTEXT = Trim$(strInTEXT)
    IDX = 1
    Do While IDX <= Len(strTEXT)
        strCHAR = Mid(strTEXT, IDX, 1)
        If ((strCHAR <> " ") And (strCHAR <> " ") And (Asc(strCHAR) <> 63)) Then
            Fnc文字内空白 = Fnc文字内空白 & strCHAR
        End If
        IDX = IDX + 1
    Loop
End Function






Production Japan Import Application. Since 1998