| Welcome to VITINHTHANHSON. We hope you enjoy your visit. You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free. Join our community! If you're already a member please log in to your account to access all of our features: |
| Cắt khoảng trống | |
|---|---|
| Tweet Topic Started: Jul 10 2006, 11:30 PM (373 Views) | |
| Dinhvanquanglk | Jul 10 2006, 11:30 PM Post #1 |
|
Tổng thư ký
![]()
|
Ví dụ như: ![]() '+============================== Private Sub CmdRemoveBlankSpaces_Click() Dim i, TLen, TMess TMess = "" ' Initialise temporary String to null string For i = 1 To Len(txtOriginalString.Text) ' Iterate from the first chracter to the last character of the string ' Check if chracter is NOT a blank space If Mid(txtOriginalString.Text, i, 1) <> " " Then ' Character is not a blank space - so append it to TMess TMess = TMess & Mid(txtOriginalString.Text, i, 1) End If Next txtResultString.Text = TMess ' Disaplay TMess by assigning it to txtResultString.text End Sub |
|
[size=5]Nhà 0 số-Mố Cầu Long Biên-Long Biên-Hà Nội[/size] | |
![]() |
|
| 1 user reading this topic (1 Guest and 0 Anonymous) | |
| « Previous Topic · Visual Basic · Next Topic » |








3:15 PM Jul 11