第壹步是分離TextBox1。使用Split逐行顯示文本,並將每行存儲在壹個數組中。
其次,拆分壹行並將每組數據存儲在壹個數組中。
如果妳想把它作為壹個整體來處理,代碼應該是這樣的:
Dim var()作為字符串
var = Split(TextBox1。文、vbCrLf)
Dim i為整數,j為整數
對於i = 0到var。長度- 1
Dim s()作為字符串
s = Split(Replace(var(i)," ","+","+")
Dim字符串(變量。長度- 1,長度- 1)
對於j = 0到s.Length - 1
str(i,j) = s(j)
然後
然後
二維數組str包含了妳想要的所有數據,妳可以使用它。
如果妳想讓朱航來處理,那就簡單多了。" dim str (var。length-1,S. length-1)作為string" and "str(i,j) = s(j)。
“不需要,妳可以進去。
對於j = 0到s.Length - 1
然後
做妳想做的事。
希望對妳有幫助。祝妳好運!