vb ini 读取服务器信息,VB怎么指定读取一个INI文件的某个数据

VB如何指定读取一个INI文件的某个数据？

例如下面是一个名为config.ini的配置文件，我需要让VB读取homePage等号后面的数据到窗口中Label1控件的Caption？还有怎么保存Label1的数据到程序根目录下config.ini的homePage值?

[config]

homePage=http://www.baidu.com/

------解决方案--------------------

代码中的 Settings 是 ini 文件中用方括号括起来的应用名。这个根据你的情况去改。

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

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 Sub Form_Load()

Dim tmp As String

tmp = Space(255)

GetPrivateProfileString "Settings", "homePage", "", tmp, 255, App.Path & "\config.ini"

Label1 = tmp

End Sub

Private Sub Form_Unload(Cancel As Integer)

'Save settings

WritePrivateProfileString "Settings", "homePage", Label1.Caption, App.Path & "\config..ini"

End Sub

------解决方案--------------------

建一个类模块..代码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

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 File As String

Public Sub DeleteSection(ByVal Section As String) '删除节的过程

Dim ret As Integer

ret = WritePrivateProfileString(Section, 0&, "", File)

End Sub

Public Function SaveSetting(ByVal Section$, ByVal Key$, ByVal Value$)