Question

求一个vb的GetPrivateProfileString读写ini实例

声明对不？
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

如果对，用这个声明

Answer 1

'INI文件操作函数
Private Declare Function GetPrivateProfileStringByKeyName& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpszKey$, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Private Declare Function GetPrivateProfileStringKeys& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Private Declare Function GetPrivateProfileStringSections& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName&, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Private Declare Function WritePrivateProfileStringByKeyName& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String)
Private Declare Function WritePrivateProfileStringToDeleteKey& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Long, ByVal lplFileName As String)
Private Declare Function WritePrivateProfileStringToDeleteSection& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Long, ByVal lpString As Long, ByVal lplFileName As String)

'自定义读取INI函数
Public Function getIni(ByVal pfileName As String, ByVal psection As String, ByVal pkey As String) As String
Dim x As Long, Buff As String * 128, i%
x = GetPrivateProfileStringByKeyName(psection, pkey, "", Buff, 128, pfileName)
i = InStr(Buff, Chr(0))
getIni = Trim(Left(Buff, i - 1))
End Function

'自定义写入INI函数
Public Function WriteIni(ByVal psection As String, ByVal pkey As String, ByVal pvalue As String, ByVal filePath As String) As Boolean
Dim x As Long, Buff As String * 128, i As Integer
Buff = pvalue + Chr(0)
x = WritePrivateProfileStringByKeyName(psection, pkey, Buff, filePath)
WriteIni = x
End Function

追问

我是一个vb初学者，麻烦说下如何调用你这函数，给个样本

Answer 2

对 ,
ini片段
[1]
qq=987604896
[2]
qq=1532630330
[3]
qq=16792021
[4]
qq=24215831

Dim buff As String
dim qq()
For i = 1 To 4
buff = String(255, 0)
lng = GetPrivateProfileString(i, "qq", "qq", buff, 255, App.Path & "\Config.ini")
qq(i) = Int(buff)
next

追问

qq(i)下标越界

追答

不可能吧，你dim qq()----> dim qq(5)试试

追问

为什么读出来是空白的

追答

[1]
qq=987604896
[2]
qq=1532630330
[3]
qq=16792021
[4]
qq=2421583
把以上内容存到本程序同一文件夹内的 Config.ini 文件中

追问

知道，ini用什么编码的

追答

新建文本文档，重命名为Config.ini 就行了 编码默认ansi

追问

空白的，unicode big endien、UTF-8的ini，vb说类型不匹配，buff=qq加乱码
给你看看源码
Private Sub Command1_Click()
Dim buff As String
Dim qq(5)
For i = 1 To 4
buff = String(255, 0)
lng = GetPrivateProfileString(i, "qq", "qq", buff, 255, App.Path & "\Config.ini")
qq(i) = Int(buff)
Next
MsgBox (qq(i))
End Sub
我要上学，你先看看，改好来

追答

你把MsgBox (qq(i))，放到了next后边，这时i=5,qq(i)没有数据
建议把MsgBox (qq(i))改为print qq(i),放到 next前边

追问

看图片，命令是一样的，我这总说类型不匹配，实验证明第二个qq只能为数字，要不然就是第二个的字符加上┌┌┌┌的乱码

追答

奇怪了，你把所有程序打包发给我看看，gshuli@qq.com

追问

第二个qq我这不只能为数字，要不然显示buff为第二个的字符加┌┌┌的乱码

追答

你的ini文件格式不对，你把
[1]
qq=987604896
[2]
qq=1532630330
[3]
qq=16792021
[4]
qq=2421583
全部复制到data.ini,再试试