Question

vb6.0中，如何提取包含特定字符的行的内容

如下是一个TXT文件中的内容

主机名: 65721A963ABC46A
OS 名称: Microsoft Windows XP Professional
OS 版本: 5.1.2600 Service Pack 3 Build 2600
OS 制造商: Microsoft Corporation
OS 配置: 独立工作站
OS 构件类型: Multiprocessor Free
注册的所有人: ---------------
注册的组织: --------------
产品 ID: ]----------------
初始安装日期: 2009-12-14, 10:31:29
系统启动时间: 暂缺
系统制造商: VMware, Inc.
系统型号: VMware Virtual Platform
系统类型: X86-based PC
处理器: 安装了 2 个处理器。
[01]: x86 Family 15 Model 107 Stepping 1 AuthenticAMD ~2311 Mhz
[02]: x86 Family 15 Model 107 Stepping 1 AuthenticAMD ~2311 Mhz
BIOS 版本: PTLTD - 6040000
Windows 目录: C:\WINDOWS
系统目录: C:\WINDOWS\system32
启动设备: \Device\HarddiskVolume1
系统区域设置: zh-cn;中文(中国)
输入法区域设置: zh-cn;中文(中国)
时区: 暂缺
物理内存总量: 1,023 MB
可用的物理内存: 816 MB
虚拟内存: 最大值: 2,048 MB
虚拟内存: 可用: 1,994 MB
虚拟内存: 使用中: 54 MB
页面文件位置: D:\pagefile.sys
域: WORKGROUP
登录服务器: \\65721A963ABC46A

我需要提取安装日期后面的日期和时间，提取后放入到Label1.caption中，应该如何操作？

Answer 1

Open App.Path + "\0.txt" For Input As #1
Dim S As String
Do While Not EOF(1)
Line Input #1, S
If InStr(S, "初始安装日期") <> 0 Then '查找“初”字
Label1.Caption = Right(S, 20)
Exit Do
End If
Loop
Close

Answer 2

一楼的方法是正解。不过第6行貌似用下句会更好：

Label1.Caption = Mid(S, Instr(S, ":") + 1)

纯粹探讨，飘过~~