1樓：
private sub command1_click()replacedoublespace (text1.text)end sub
private function replacedoublespace(byval str as string) as string
dim r as string
r = replace(str, space(2), space(1))
dim m, n
dom = len(r)
r = replace(r, space(2), space(1))n = len(r)
loop until m = n
replacedoublespace =rend function
2樓：難得糊塗
private function mytrim(s as string) as string
mytrim = trim(s) '去掉首尾空格
do while instr(1, mytrim, " ") > 0 '迴圈直到檢查到沒有兩個連續的空格
mytrim = replace(mytrim, " ", " ")
loop
end function
private sub command1_click()
dim s as string
s = " a b c d eeeeeeee ewewe"
s = mytrim(s)
msgbox s
end sub
3樓：0艾希恩
dim s as string
if text1.text=" "+s thentext1.text=" "
end if
其中text1是你想合併的
4樓：匿名使用者
tmpstr = trim(tmpstr ) '刪除前後空格
tmpstr = regex.replace(tmpstr , "[\x20 ]", " ") 『正規表示式替換中間連續空格為單個空格
5樓：匿名使用者
把兩個替換成一個，迴圈多次
請問vb如何將一個字串中以若干個空格間隔的資料，分別顯示在list上？
6樓：豌豆丨
private sub command1_click()dim a, b as string
dim c, i as integer
a = text1.text
b = replace(a, " ", ",")c = split(a)
for i = 0 to ubound(c)list1.additem c(i)
next i
end sub
在文字框輸入以空格間隔的資料就好了
7樓：寒信
需要先將多個空格轉變為一個空格，然後再用split分割，再新增到list中
private function killspace( mystr as string) as string
mystr=replace(mystr, " "," ") '用一個空格替換兩個空格
if instr(mystr," ") then killspace = killspace(killspace)'還存在兩個連續的空格，則繼續替換
end function
private sub command1_click()
dim mystr as string, a() as string
mystr = killspace(text1)
a = split(mystr)
for i = 0 to ubound(a)
list1.additem a(i)
next
end sub
8樓：
用split 函式 取各個空格間的字元，再新增到list鍾即可
9樓：匿名使用者
先用split分割成陣列，然後迴圈賦值到list上就行了。
用vb怎麼給一個字串中每個字母之間加上空格？**等！謝謝！
10樓：潛水v無敵
....這麼長的函式? 有沒有必要啊
把這個**加到command(按鈕) 的單擊事件dim stra, tempstr as string, fx as long
stra = "asdfzxcvqwer" '你要插入空格的字串for fx = 1 to len(stra) '迴圈插入.
tempstr = tempstr & mid(stra, fx, 1)
if fx <> len(stra) then tempstr = tempstr & " " '不要在最後加入空格.
next
print tempstr
11樓：匿名使用者
private function addsp(byval str as string) as string
dim lstr as long
dim i as long
dim temp() as string * 1lstr = len(str)
if lstr - 1 < 1 then addsp = str: exit function
redim temp(1 to lstr) as string * 1
for i = 1 to lstr
temp(i) = mid(str, i, 1)next
addsp = temp(1)
for i = 2 to lstr
addsp = addsp & " " & temp(i)next
end function
我給你做了個加空格的函式,怎麼呼叫因該會吧
matlab中怎樣把兩個字串合併成一個字串？
12樓：匿名使用者
1、方法一：通復過c=[a1,b1]格式拼接制
第一步開啟matlab的命令列bai
視窗，輸入a1='abcd123';b1='decf456';c=[a1,b1]，按回du車鍵，如zhi
下圖所示：
2、第二dao
步可以看到c='abcd123decf456'，成功將兩個字串進行拼接起來了，如下圖所示：
3、方法二：通過strcat函式進行拼接
第一步在命令列視窗中輸入d=strcat(a1,b1)，按回車鍵，如下圖所示：
4、第二步可以看到d='abcd123decf456'，實現了和方法一一樣的效果，拼接了兩個字串，如下圖所示：
5、方法三：通過sprintf函式拼接多個字串
第一步輸入a1='abcd123';b1='decf456';c1=123456;s=sprintf('%s%s%d',a1,b1,c1)，按回車鍵，如下圖所示：
6、第二步可以看到s='abcd123decf456123456',成功將多個字串整型拼接起來了，如下圖所示：
13樓：孤獨飛雪飄
strcat(str 1,str 2，……str n)
vb分割字串 字串中含有連續空格
14樓：也愛他人
首先把多個空格替換為一個空格，然後在split： a="11 22 333 4444"while instr(a," ") a = replace(a, " ", " ")wendarr=split(a," ")
vb獲取字串中字元，vb獲取字串中字元
private sub command1 click dim b as integer,a as string,i as integer,c as string,d as string a text1.text c d for i 1 to len a b asc mid a,i,1 if b 65...
vb提取字串問題，急，VB中如何提取字串中的部分數字
你弄的太複雜了，看懂它比較累，看看下面 比較精簡了。const kout public function takeword str as string,n as long as string dim p1 as long p1 0dim p2 as long dim count as long do...
js中如何判斷字串中是否包含指定字串
正則bai 匹配 du var str this is my test var test new regexp test g 建立正 zhi則dao表達版式對權 象var result s.match test alert result js判斷字串變數是否含有某個字串的方法 方法一 var str...