你是要把連續(xù)多個空格,變換成只需要一個空格,那么:
網站制作、成都網站建設的關注點不是能為您做些什么網站,而是怎么做網站,有沒有做好網站,給創(chuàng)新互聯(lián)一個展示的機會來證明自己,這并不會花費您太多時間,或許會給您帶來新的靈感和驚喜。面向用戶友好,注重用戶體驗,一切以用戶為中心。
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),全部轉換自己弄個循環(huán)搞定
大概就這樣,你自己試試吧
textbox.text = "12345" " " "67890"
或者
textbox.text = "12345" space(1) "67890"