m=trim(" AAA ")后
m肯定="AAA"的
m肯定="AAA"的
解决方案 »
- tsc二次开发条码打印问题
- sendMessage/postmessage 代码不执行
- 在繁体系统下输入变成"??"怎解决?
- datagrid中如何得到显示的总行数?用什么函数实现?
- 调用DELPHI语言编写的控件时。提示出错。(分不够再加)
- 求助一个非常实际的问题!
- 请教array的作用
- 最小化到托盘后,如何不显示状态栏上的窗体块?
- 哪有Formula One?
- 为我的帖子看不见
- 什么意思***A domain controller could not be contacted**************
- 高手去看看这个问题http://www.csdn.net/expert/TopicView.asp?id=261765
Dim lenth As Integer
lenth = Len(str)
Dim i As Integer
Dim char As Integer
dim s as string
For i = 1 To lenth
char=Asc(Mid(str, i, 1))
If char<>0 and char<>32 and char<>10 and char<>13 Then
s =s & Mid(str, i, 1)
end if
Next i
htrim = s
End Function