1樓：匿名使用者
把text2的multiline 設定為 trueprivate sub command1_click()dim s() as string
s = split(text1.text, ",")for each x in s
text2.text = text2.text & x & vbcrlf
next
end sub
2樓：
dim str1 as string,i as longstr1=text1.text
text2.text=""
i=instr(1,str1,",")
do while i>0
text2.text=text2.text & left(str1,i-1) & vbcrlf
str1=right(str1,len(str1)-i)i=instr(1,str1,",")
loop
text2.text=text2.text & left(str1,i-1) & vbcrlf
3樓：匿名使用者
private sub command1_click()dim a, b
if text1.text <> "" thena = text1.text
else
exit sub
end if
for x = 1 to len(a)
if mid(a, x, 1) <> "," thenb = b + mid(a, x, 1)
else
b = b + chr(13) + chr(10)end if
next
text2.text = b
end sub
vb怎麼取用用逗號分隔的資料
4樓：勒泰號
split(sj, ",")
5樓：匿名使用者
用split()這個函式。
例：dim a() as string
dim str1 as string
str1="111.112.113.114"
a = split(str1, ".")
a的下標是0到3
怎麼把文字文件裡的逗號全部替換成回車按逗號分段
6樓：
把文字貼上入word中進行替換，再貼上回記事本即可，具體操作流程如下：
所需材料：記事本 、word。
一、開啟文字文件，ctrl+a全選，ctrl+x剪下。
二、開啟word，ctrl+v貼上，ctrl+h開啟替換視窗，查詢內容內輸入逗號「，」，替換為內輸入乙個回車萬用字元「^p」，點選「全部替換」。
三、然後在word內ctrl+a全選，ctrl+x剪下。
四、最後開啟文字文件，ctrl+v貼上即可完成逗號換回車符。
7樓：匿名使用者
可以先放到word裡面，在編輯裡面有個查詢，或者用快捷鍵ctrl+f。彈出的對話方塊有個替換，你將逗號，和回車+逗號分別放在相應的框框裡面就可以了。
怎樣使vb自動分割帶逗號的字串？
8樓：忽又一天
dim s as variant
dim str as string
str="1,2,3,4,5"
s=split(str,",")
這樣就可以了，s(0)=1,s(1)=2...
檢視下split函式的幫助就知道了
另外對應的join函式可以吧陣列中的值連線起來str=join(s,",")
9樓：
private sub form_load()dim ss(1 to 5)
dim j as integer
dim s as string
s = "1,2,3,4,5"
j = 1
for i = 1 to len(s)
if mid(s, i, 1) <> "," thenss(j) = mid(s, i, 1)
j = j + 1
end if
next i
for i = 1 to 5
msgbox ss(i)
next i
end sub
vb 題目在文字框中輸入10個數，以逗號分割，單擊確定按鈕後，將這些數儲存，並找出最大值。。。幫我
10樓：
a=split(text1.text, ",") '將文字框的字串按照逗號進行分割，分割後的每個數字賦值給陣列a
for i=0 to ubound(a) '迴圈遍歷陣列a的每乙個元素
if b next msgbox "最大值=" & b '彈出最大值 11樓：匿名使用者 第1行，定義 單擊按鈕事件 第2行，定義 a b i 三個變數 a賦予輸入文字框中文字的 陣列 迴圈 i 從0遍歷到 陣列個數-1 判斷如果b小於陣列a【i】的數值 那麼b賦予a(i)next 迴圈結束 對話方塊輸出 最大值= b的值 函式結束 wps現在的介面是office2003的 其實對於一般人來說其實wps夠用的 對電腦配置偏低的人來說wps好,wps占用資源少但是office新版介面好看,電腦好的用office吧我現在電腦上平時用wps,偶爾用office.執行速度是wps快 處理資料兩者差不多 穩定其實也差不多的 功能肯定是of... private sub text1 change text2 text1 end sub private sub text1 change text2.text text1.textend sub text2的文字隨text1的動 此事件是text1變動事件，當text1文字有改動事觸發當作為子程式... dim mystr as string split file.readalltext data1.txt vbcrlf 讀取data1 mystr 0 表示第一行 mystr 1 表示第二行 system.io.file.writealltext data2.txt mystr 0 vbcrlf m...WPS OFFICE的文字處理軟體好用些還是微軟公司的OFFICE好用些
求助vb文字框
vb取文字檔案的內容，vb讀取文字檔案某行的內容