vb怎么读取文本中“：”后的值？

来源：百度知道 编辑：UC知道 时间：2024/09/20 06:48:16
现在有一个文本（ZiLiao.txt）

内容如下：

姓名：45685 出生地：河南
性别：男 学历：大学本科
专业：计算机
大学成绩
英语：92 高等数学：99 C语言：86
........
姓名：87555555558 出生地：重庆
性别：女 学历：硕士研究生
专业：机械设计及理论
大学成绩
英语：96 C语言：98 数值分析：99
.........

现在我只想把“：”后的字符或数字读到一个数组Read_Par()中
然后对Read_Par()进行相应的操作 后
再写到 对应 的位置上去！

'在窗体内加入控件command1，然后在代码区复制下面代码，并修改ziliao.txt的具体路径，运行，即可得到效果。
'====窗体代码部分====
Option Explicit
Dim Read_Par() As String

Private Sub Command1_Click()
Dim fc As String
Dim i As Integer, j As Integer
ReDim Read_Par(0)
Open "c:\ziliao.txt" For Input As #1 '打开文件(***可在此修改具体路径！***)
Do While Not EOF(1)
Line Input #1, fc '读入每一行内容
Do While InStr(fc, "：") > 0 '把该行：后的内容读到数组Read_Par()中
i = InStr(fc, "：")
j = InStr(i, fc, " ")
If j = 0 Then '单个：号
Read_Par(UBound(Read_Par)) = Mid(fc, i + 1)
Else '多个：号
Read_Par(UBound(Read_Par)) = Mid(fc, i + 1, j - i - 1)
End If
fc = Mid(fc, i + 1)
ReDim Preserve Read_Par(UBound(Read_Par) + 1)
DoEvents
Loop
Loop
Close #1 '关闭文件
If UBound(Read_Par) > 0 Then ReDim Preserve Read_Par(UBound(Read_Par) - 1) '整理数组
MsgBox "文件内容