空白文字の除去 (ID:84603)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 適当なサンプルですが・・・。 strWKに空白がある文字列が、 strWK2には空白が消えた文字列が入ります。 if文の所はANDで条件をくっつけても大丈夫です。 Dim strWK As String Dim strWK2 As String Dim i As Integer strWK = "ABC△△DEF△△△GHI" strWK2 = "" '1文字目から最後の文字まで見ていきます。 For i = 1 To Len(strWK) Step 1 '空白でなければWK2に入れる If Mid(strWK, i, 1) <> "△" Then strWK2 = strWK2 & Mid(strWK, i, 1) Else '前回WK2に入ったのが△でなければWK2に入れる。 If Right(strWK2, 1) <> "△" Then strWK2 = strWK2 & Mid(strWK, i, 1) End If End If Next i Text1.Text = strWK2