Question

Vb中，text中显示的数据如图 ，怎么把其保存在两个数组中，要求按列保存【每行是回车结束，每个数

Vb中，text中显示的数据如图 ，怎么把其保存在两个数组中，要求按列保存【每行是回车结束，每个数据中间有四个空格】

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Private Sub Command1_Click()
 Dim a() As Single, b() As Single
 Dim t() As String, ws As Integer
 Dim i As Integer
 
 t = Split(Text1, vbCrLf)
 ws = UBound(t)
 ReDim a(ws), b(ws)
 For i = 0 To ws
   a(i) = Split(t(i), "    ")(0)
   b(i) = Split(t(i), "    ")(1)
 Next
 For i = 0 To ws
  Print a(i) & "    " & b(i) & vbCrLf
 Next

End Sub

Answer 2

我可以帮你 需要的话私信我