从品牌网站建设到网络营销策划,从策略到执行的一站式服务
'此函数killspace用以除去字符串中的空格,请将此函数粘贴到代码窗口空白处。(不在任何sub过程里)
创新互联建站坚持“要么做到,要么别承诺”的工作理念,服务领域包括:成都网站设计、成都做网站、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的朔城网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
function
killspace(expression)
dim
tmps
for
i
=
1
to
len(expression)
tmpt
=
mid(expression,
i,
1)
if
tmpt
"
"
then
tmps
=
tmps
tmpt
next
i
killspace
=
tmps
end
function
'在某个过程里调用此函数,例如:
private
sub
command1_click()
text1.text=killspace("7
591
6512
1458
050")
end
sub
'这样在text1里就显示:759165121458050
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
可以使用replace函数去除字符串中的空格
例如:
Private Sub Command12_Click()
MsgBox Replace("中华 人 民共 和 国 ", " ", "")
End Sub
将弹出消息框显示:“中华人民共和国”
你是要把连续多个空格,变换成只需要一个空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图