Question

VB6.0中读取TXT文件内容

有一个*.txt文本文件，其中的内容如下：
[YuanGong]
xingming=张三
xingbie=男
nianling=21
shengao=180

[ZhiWu]
mingcheng=经理
xinshui=5000
chuchaiBZ=是

完全同于windows的配置文件*.ini结构。
请问各位高手：
在VB中如何像读配置文件那样读[YuanGong]和它下面的值？
并可以从上到下循环检索某个值是否是特定的值，例：假如[ZhiWu]中xinshui>=5000，则获取出chuchaiBZ的值
谢谢大家！

Answer 1

Private Sub Command1_Click()
Open "d:\1.ini" For Input As #1

Do
Line Input #1, a
If a = "[" & Text1.Text & "]" Then
Print a
Do
Line Input #1, a
Print a
Loop Until a = ""
End If
Loop Until EOF(1)
Close (1)
End Sub

Private Sub Form_Load()
Dim a
End Sub

Answer 2

可以调用以下两个API函数来很方便地读/写ini文件：
GetPrivateProfileString
WritePrivateProfileString

两个函数的定义分别如下：
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

将以上定义写在模块开头，就可以象VB的内部函数一样使用了。

Answer 3

光凭这几个数不可能得出它的值