怎么把INI文件里的资料显示在VB上

[nty6188]

1.INI文件
[Group1]
ServerAmount=2
Server1=论坛
ServerName1=论坛内容

VB中建了一个LIST1 然后要写什么代码把上面的1.INI文件里的Server1=这后面的(论坛)显示在LIST1上啊

[东方之珠]

INI是文本文件，用OPEN打开读取第四行内容：

................

S="Server1=论坛"

................

S=mid(S,9,len(S)-8)
List1.AddItem S

................

[zzyong00]

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 Ret As String, NC As Long
    Ret = String(255, 0)
    NC = GetPrivateProfileString("Group1", "Server1", "Default", Ret, 255, app.path & "1.ini")
    If NC <> 0 Then Ret = Left$(Ret, NC)
    list1.AddItem Ret
End Sub

[guyehanxinlei]

同意楼上