ライブラリ

fString_Trim_NonBreakSpace

Webとかからコピペした時に、
変なスペースが混じってる事ないですか??

『Non Break Space』と呼ばれるものらしく、
Webページ上で、スペースを空けたい時に使われてる
制御文字らしいです。

これがTRIMでは除去できないので、
この関数で半角スペースに変換しちゃいましょう~♪
*****************************************************************************************

Public Function fString_Trim_NonBreakSpace(Value As String, Optional ReplaceVal As String = " ") As String
'HTMLに含まれる不明なスペース[?]を除去する
'※上記の[?]はAscでは[63]を返すが、「?」とは異なる値(NoBreakSpace)
'※HTMLのソースでは「 」と記載
    
    Dim NBSP(0 To 1)    As Byte
    NBSP(0) = 160
    NBSP(1) = 0
    fString_Trim_NonBreakSpace = Replace(Value, CStr(NBSP), ReplaceVal)
    
End Function
 

String   2021/04/20   shono

この記事へのコメント

コメントを送る

 
※ メールは公開されません
Loading...
 画像の文字を入力してください
10月 2019年11月 12月
     12
3456789
10111213141516
17181920212223
24252627282930

ブログ投稿者一覧

年別アーカイブ一覧