TXT檔案：下面有3個資料：
1 0.25
2 0.3
3 0.35
輸出的樣子：[3 0.25 0.3 0.35]
第一列為資料的總個數
uj5u.com熱心網友回復：
Option Explicit
Private Sub Command1_Click()
Dim a As String
'模擬輸入文本
a = a & "1 0.25" & vbCrLf
a = a & "2 0.3" & vbCrLf
a = a & "3 0.35"
Dim aryTmp1() As String
Dim aryTmp2() As String
Dim i As Integer
Dim strOut As String
aryTmp1 = Split(a, vbCrLf)
strOut = "["
strOut = strOut & UBound(aryTmp1) + 1
For i = LBound(aryTmp1) To UBound(aryTmp1)
aryTmp2 = Split(aryTmp1(i), " ")
strOut = strOut & " " & aryTmp2(1)
Next
strOut = strOut & "]"
Debug.Print strOut
End Sub
uj5u.com熱心網友回復：
先輸入到一個動態陣列中，然后輸出就行了轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/50014.html
標籤：VB基礎類
上一篇：求助 VB代碼如何按照登記順序查找資料并計算顯示結果
下一篇：VB.net如何發POST請求