投稿日 | : 2002/10/04(Fri) 13:56 |
投稿者 | : Say |
Eメール | : |
URL | : |
タイトル | : Re: 空白文字の削除について・邪道編 |
「正当なやりかた」は花ちゃん や よねKENさんが書かれてますので
手抜きの邪道編を・・・。
一度Text1.Textなどに入れてやれば、Windowsの仕様により
勝手にChr(0)以降を排除してくれます。
ためしてみてください。
Private Sub Command1_Click()
Dim strA As String
strA = "ABC" & String(10, Chr(0)) & "xyz"
Debug.Print Len(strA)
Text1.Text = strA
strA = Text1.Text
Debug.Print Len(strA)
End Sub