1樓：豌豆丨
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
在文字框輸入以空格間隔的資料就好了
2樓：寒信
需要先將多個空格轉變為乙個空格，然後再用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
3樓：
用split 函式 取各個空格間的字元，再新增到list鐘即可
4樓：匿名使用者
先用split分割成陣列，然後迴圈賦值到list上就行了。
vb分割字串 字串中含有連續空格
5樓：也愛他人
首先把多個空格替換為乙個空格，然後在split： a="11 22 333 4444"while instr(a," ") a = replace(a, " ", " ")wendarr=split(a," ")
vb 怎麼判斷乙個以空格隔開的字串裡的字串位數。
6樓：匿名使用者
' 用這個函式就可以實現 你的要求：
function strlen(byval ss$) as string
dim i%, a, b$
a = split(ss)
for i = 0 to ubound(a)b = b & " " & len(a(i))next i
strlen = trim(b)
end function
' 呼叫可以用下面的語句，在窗體上單擊後，在窗體上顯示結果 「1 2 3」：
private sub form_click()dim ss$
ss = "a bb ccc"
print strlen(ss)
end sub
7樓：伊淚無痕
dim str="a bb ccc"
dim s() as string
s=split(str," ")
-->len(s(1))=1
len(s(2))=2
len(s(3))=3
8樓：
dim i as integer
dim j as integer
for i =1 to len(text1.text)if mid(i,1)=" " then
msgbox j
j=0else
j=j+1
end if
next
linu在shell下如何將字串寫入檔案
可以使用 baiecho命令將文字流導向標準輸出 du，然後再zhi使用 符號重新定向dao標準輸出到檔案。用法版示例 將字串權 hello world 寫入檔案file.txt中 echo hello world file.txt然後再嘗試用cat命令從讀取檔案並寫入到標準輸出，可以看到字串已經成...
VB6 0中如何使得字串中的某字元選中高亮並使這個字元字型變大
使用richtextbox控制項 private sub command1 click richtextbox1.selstart 3 要高亮的起始字元數 richtextbox1.sellength 5 要高亮的字元數 richtextbox1.selcolor vbred 顏色richtextb...
spss軟體如何將字串轉換成數值
選擇 轉換 自動重新編碼 會根據字串的不同自動編碼為數字。用轉換函式number x，n 試試 recode命令即可 spss 中如何將字元型變數轉變為數值型變數？10 為什麼不用全自動方案呢，選擇 轉換 自動重新編碼 軟體會新建一個變數，根據字串的不同進行不同編碼，轉換為不同數字。比較快的方法是 ...