7,762
社区成员
发帖
与我相关
我的任务
分享
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