去兩邊的空格:trim(要處理的字符串)
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴,公司提供的服務(wù)項目有:主機域名、虛擬主機、營銷軟件、網(wǎng)站建設(shè)、三穗網(wǎng)站維護、網(wǎng)站推廣。
如:
trim(" Let's go! ")
結(jié)果為:
"Let's go!"
去所有的空格:replace(要處理的字符,要替換的字符,替換為的字符)
如:
replace(" Let's go! "," ","")
結(jié)果為:
"Let'sgo!"
最簡單的方法是鼠標(biāo)選中,然后按上下左右方向鍵移動,然后再屬性中鎖定位置
你是要把連續(xù)多個空格,變換成只需要一個空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個空格,替換2個空格
loop
Trim函數(shù)會返回出去空格后的結(jié)果,你的代碼只是調(diào)用了這個函數(shù),sStr并沒有改變,應(yīng)該是sstr=trim(sstr),另外sStr好像trim之后沒用吧? zl_Click改后結(jié)果如下:
Private Sub zl_Click()
Dim lLine%
If Trim(xx.Text) = "" Then
Cls
Print "無內(nèi)容"
Else
lLine = SendMessage(xx.hWnd, EM_GETLINECOUNT, 0, 0)
Dim sStr As String
Dim a As Integer
a = "0"
For a = 0 To (lLine - 1)
GetOneTextBoxLine xx.hWnd, a, sStr
sStr = Trim(sStr)
Next
Cls
Print "共" lLine "個行"
End If
End Sub
想讓vb界面更漂亮些,可以用外部美化控件:SkinFramework.ocx,網(wǎng)上很多種它的主題可以下載(cjstyles文件),使用也很簡單,如下面代碼放到啟動窗體的Form_Initialize中,則在啟動窗體之后的窗體都會以這種主題顯示:
FileName = App.Path "\Vista.cjstyles"
With SkinFramework1
.LoadSkin FileName, ""
.AutoApplyNewWindows = True
.AutoApplyNewThreads = True
.ApplyWindow Me.hwnd
.ApplyOptions = .ApplyOptions Or xtpSkinApplyMetrics Or _
xtpSkinApplyFrame Or _
xtpSkinApplyColors
End With
可以使用replace函數(shù)去除字符串中的空格
例如:
Private Sub Command12_Click()
MsgBox Replace("中華 人 ?民共 ? 和 ?國 ?", " ", "")
End Sub
將彈出消息框顯示:“中華人民共和國”