vb 分字符串并写入数组，

一行字符串：<Row>1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row>
怎样将这样在一行的字符串，分割开来，并把每个数字依次存入数组（全部的数字存入一个数组）？求指导，求教育。 --------------------编程问答-------------------- 分割成神马样子
楼主说明下
split 函数 --------------------编程问答--------------------

引用 1 楼的回复:

分割成神马样子
楼主说明下
split 函数

就是把所有的数字都提取出来啊。 --------------------编程问答--------------------



Private Sub Form_Load()

Dim s As String

s = "<Row>1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row>"

s = Mid(s, 6)

s = Left(s, Len(s) - 6)

Dim Sz

Sz = Split(s, "</Row><Row>")

MsgBox "信息量:" & UBound(Sz) + 1

MsgBox Join(Sz, vbCrLf)

End Sub

--------------------编程问答--------------------

引用 3 楼的回复:

VB code

Private Sub Form_Load()
Dim s As String
s = "<Row>1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</Row><Row>3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1……

Thank you very much，我已经找到方法了，跟你这差不多，只是略有不同。 --------------------编程问答-------------------- 1楼哪去了?? --------------------编程问答-------------------- --------------------编程问答--------------------

引用 5 楼的回复:

1楼哪去了??

我也想知道1楼哪去了?? --------------------编程问答--------------------

引用 5 楼的回复:

1楼哪去了??

被 csdn 吃了

补充：VB ,  基础类