VB从ini等文本文件中读取信息的方法

1. '判断文件是否存在
2. '##################################################################
3. '## 函数名称：FileExist
4. '## 参数：Fname 为String型
5. 'As Boolean'## 返回类型：As Boolean
6. '##################################################################
7. Function FileExist(Fname As String) As Boolean
8.         On Local Error Resume Next
9.         FileExist = (Dir(Fname) <> "")
10. End Function
12. '读取ini文件的数据项值
13. '##################################################################
14. '## 函数名称：GetKey
15. '## 参数：Tmp_File 为String型
16. '## 参数：Tmp_Key 为String型
17. 'As String'## 返回类型：As String
18. '##################################################################
19. Public Function GetKey(Tmp_File As String, Tmp_Key As String) As String
20.         Dim File As Long
21.         '分配文件句柄
22.         File = FreeFile
23.         '如果文件不存在则创建一个默认的Setup.ini文件
24.         If FileExist(Tmp_File) = False Then
25.                 GetKey = ""
26.                 Call WritePrivateProfileString("Setup Information", "Server Name ", " NtServer", App.Path + "/Setup.ini")
27.                 Call WritePrivateProfileString("Setup Information", "UserName ", "sa", App.Path + "/Setup.ini")
28.                 Call WritePrivateProfileString("Setup Information", "SqlPass ", " ", App.Path + "/Setup.ini")
29.                 Call WritePrivateProfileString("Setup Information", "DbfName ", "ToolsDbf", App.Path + "/Setup.ini")
30.                 Exit Function
31.         End If
32.         '读取数据项值
33.         Open Tmp_File For Input As File
34.         Do While Not EOF(1)
35. '######################################################
36. '从已打开的顺序文件中读出一行并将它分配给 String变量。
37.                 Line Input #File, buffer
38.                 If Left(buffer, Len(Tmp_Key)) = Tmp_Key Then
39. '#############################################################
40. '返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
41.                         pos = InStr(buffer, "=")
42.                         GetKey = Trim(Mid(buffer, pos + 1))
43.                 End If
44.         Loop
45.         Close File
46. End Function