重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你是要把连续多个空格,变换成只需要一个空格,那么:
网站制作、成都网站建设的关注点不是能为您做些什么网站,而是怎么做网站,有没有做好网站,给创新互联一个展示的机会来证明自己,这并不会花费您太多时间,或许会给您带来新的灵感和惊喜。面向用户友好,注重用户体验,一切以用户为中心。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
用split函数
dim a()
a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a
得到的是文本,如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1),全部转换自己弄个循环搞定
大概就这样,你自己试试吧
textbox.text = "12345" " " "67890"
或者
textbox.text = "12345" space(1) "67890"