inf文件的问题,帮我解决白送100分

Question

Public 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  '创建.修改Public 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

例子：
在led.ini中的
[led]
SendNUM=0
Dim buffer As String * 255i = GetPrivateProfileString("Led", "SendNUM", "", buffer, 255, App.Path + "\led.ini")If i > 0 Then                    '为INI文件中该值的长度
   size = left(buffer, i)
Else
   '没有SendNUM存在
   i = WritePrivateProfileString(("Led", "SendNUM",  "0", App.Path + "\led.ini")
End If