7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim AA() As String, MM As Integer, B As String
Text1.Text = ""
Open App.Path & "\AAAA.txt" For Input As #1
Do While Not EOF(1)
Input #1, B
MM = MM + 1 '得到记录的总行数
Loop
Close #1
ReDim AA(1 To MM) '动态数组设置下标
Dim I As Integer, X As Integer, Y As Integer
Open App.Path & "\AAAA.txt" For Input As #1
Do While Not EOF(1)
I = I + 1
Input #1, AA(I) '每行分别读入数组
Loop
Close #1
For I = 1 To MM
X = InStr(1, AA(I), " ", 1) '得到第一个空格的位置
AA(I) = Right(AA(I), Len(AA(I)) - X) '右剪裁字符串
Y = InStr(1, AA(I), " ", 1) '剪裁后的第一个空格位置
AA(I) = Left(AA(I), Y - 1) '左裁字符串,得到姓名
Text1.Text = Text1.Text & Trim(AA(I)) & Space(2) '在文本框输出
Next I
End Sub
dim s1,s2
s1=split(s,vbrlf)'''s表示你的那2行字符串
s2=split(trim(s1(0))," ")
debug.print s2(2)