重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
去两边的空格:trim(要处理的字符串)
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:主机域名、虚拟主机、营销软件、网站建设、三穗网站维护、网站推广。
如:
trim(" Let's go! ")
结果为:
"Let's go!"
去所有的空格:replace(要处理的字符,要替换的字符,替换为的字符)
如:
replace(" Let's go! "," ","")
结果为:
"Let'sgo!"
最简单的方法是鼠标选中,然后按上下左右方向键移动,然后再属性中锁定位置
你是要把连续多个空格,变换成只需要一个空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
Trim函数会返回出去空格后的结果,你的代码只是调用了这个函数,sStr并没有改变,应该是sstr=trim(sstr),另外sStr好像trim之后没用吧? zl_Click改后结果如下:
Private Sub zl_Click()
Dim lLine%
If Trim(xx.Text) = "" Then
Cls
Print "无内容"
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,网上很多种它的主题可以下载(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函数去除字符串中的空格
例如:
Private Sub Command12_Click()
MsgBox Replace("中华 人 民共 和 国 ", " ", "")
End Sub
将弹出消息框显示:“中华人民共和国”