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

nty6188 2007-11-30 06:49:53
1.INI文件
[Group1]
ServerAmount=2
Server1=论坛
ServerName1=论坛内容

VB中建了一个LIST1 然后要写什么代码把上面的1.INI文件里的Server1=这后面的(论坛)显示在LIST1上啊
...全文
24 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
guyehanxinlei 2007-12-01
同意楼上
回复
zzyong00 2007-11-30
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
回复
东方之珠 2007-11-30
INI是文本文件,用OPEN打开读取第四行内容:

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

S="Server1=论坛"

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

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

................
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7452

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告