API函数读取INI文件

Question

读写INI文件的四个函数'文件名SourceDB.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
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'以下两个函数,读/写ini文件,固定节点setting,in_key为写入/读取的主键
'仅仅针对是非值
'Y：yes,N：no,E：error
Public Function GetIniTF(ByVal In_Key As String) As Boolean
On Error GoTo GetIniTFErr
GetIniTF = True
Dim GetStr As String
GetStr = VBA.String(128, 0)
GetPrivateProfileString "Setting", In_Key, "", GetStr, 256, App.Path & "\SourceDB.ini"
GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
If GetStr = "1" Then
   GetIniTF = True
   GetStr = ""
Else
   GoTo GetIniTFErr
End If
Exit Function
GetIniTFErr:
   Err.Clear
   GetIniTF = False
   GetStr = ""
End FunctionPublic Function WriteIniTF(ByVal In_Key As String, ByVal In_Data As Boolean) As Boolean
On Error GoTo WriteIniTFErr
WriteIniTF = True
If In_Data = True Then
 WritePrivateProfileString "Setting", In_Key, "1", App.Path & "\SourceDB.ini"
Else
 WritePrivateProfileString "Setting", In_Key, "0", App.Path & "\SourceDB.ini"
End If
Exit Function
WriteIniTFErr:
   Err.Clear
   WriteIniTF = False
End Function
'以下两个函数,读/写ini文件,不固定节点,in_key为写入/读取的主键
'针对字符串值
'空值表示出错
Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String) As String
On Error GoTo GetIniStrErr
If VBA.Trim(In_Key) = "" Then
   GoTo GetIniStrErr
End If
Dim GetStr As String
GetStr = VBA.String(128, 0)
 GetPrivateProfileString AppName, In_Key, "", GetStr, 256, App.Path & "\SourceDB.ini"
  GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
If GetStr = "" Then
   GoTo GetIniStrErr
Else
   GetIniStr = GetStr
   GetStr = ""
End If
Exit Function
GetIniStrErr:
   Err.Clear
   GetIniStr = ""
   GetStr = ""
End FunctionPublic Function WriteIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal In_Data As String) As Boolean
On Error GoTo WriteIniStrErr
WriteIniStr = True
If VBA.Trim(In_Data) = "" Or VBA.Trim(In_Key) = "" Or VBA.Trim(AppName) = "" Then
   GoTo WriteIniStrErr
Else
 WritePrivateProfileString AppName, In_Key, In_Data, App.Path & "\SourceDB.ini"
End If
Exit Function
WriteIniStrErr:
   Err.Clear
   WriteIniStr = False
End Function
       以上代码来自： 源代码数据库(SourceDataBase)
           当前版本： 1.0.448
               作者： Shawls
           个人主页： Http://Shawls.Yeah.Net
             E-Mail： [email protected]
                 QQ： 9181729

Answer 1

trim作用：删除字符串前后空格！！

Answer 2

我的问题是为什么SS在读取INI文件后还是len(trim(ss))?
为什么不是我读取的数据列表啊！

Answer 3

我的问题是为什么SS在读取INI文件后还是len(trim(ss))=0?
为什么不是我读取的数据列表啊！

Answer 4

dim re as long
dim restr as string
getstr=space(256)
re=GetPrivateProfileString ("Setting", In_Key, "", GetStr, 256, App.Path & "\SourceDB.ini")
restr=left(1,len(trim(getstr))-1))
以上是经过运行的代码，试试吧

Answer 5

Option Explicit
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
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
'FileName：Ini文件
'PathName：小节名
'KeyName：值名
'WriteValue：值
Public Function WriteIni(FileName As String, _
        PathName As String, _
        KeyName As String, _
        WriteValue As String) As Long
    Dim Rc As Long
    
    Rc = WritePrivateProfileString(PathName, KeyName, WriteValue, FileName)
    
    WriteIni = Rc
    
End Function'FileName：Ini文件
'PathName：小节名
'KeyName：值名
'BackValue：返回值
'Default：默认字符
Public Function ReadIni(FileName As String, _
        PathName As String, _
        KeyName As String, _
        BackValue As String, _
        Optional Default As String = "缺省") As Long
    Dim Rc As Long
    Dim TempNum As String
    Dim TempStr As String
    
    TempStr = String$(255, Chr$(0))
    TempNum = 255
    
    Rc = GetPrivateProfileString(PathName, KeyName, Default, TempStr, TempNum, FileName)
    
    If Rc <> 0 Then
        BackValue = Left$(TempStr, TempNum)
        
    End If
    
    ReadIni = Rc
    
End Function

Answer 6

to shawls(小山(坚持VB,学Delphi和C#))
从函数返回值看，应该取得了数据，但为什么全部是""?

Answer 7

只需要人民币20元，你就可以获得本灌水机的程序和Visual C＋＋源代码，并获得永久性技术支持。还等什么？灌水等着你！就在今夜！元宵佳节！(可怜我信誉)

Answer 8

'Visit his site at http://members.fortunecity.com/rbnwares1
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Sub Form_Load()
    ' We will create a new section in the INI-file
    ' It's output will be:
    '
    ' [SectionName]
    ' Key=Value
    '
    ' Note that used this ONLY if you are creating a new
    ' section on the INI file, unless you wanted to erase
    ' its existing keys.
    Call WritePrivateProfileSection("SectionName", "Key=Value", App.Path & "\sample.ini")
    Dim szBuf As String * 255
    Call GetPrivateProfileSection("SectionName", szBuf, 255, App.Path & "\sample.ini")
    MsgBox szBuf
End Sub

Answer 9

to 111222(www.mozilla.org) 
     我就是按你所说的那样写的，但是还是不行！在debug窗口中
print GetPrivateProfileSection("ide", szBuf, 255, App.Path & "\bcw5.ini")
50                             '返回值说明已经读取到数据
print  szBuf
                                      '这里就是50个空格!

Answer 10

其他的读写ini文件的api函数都正常

Answer 11

谢谢各位，问题已经解决！
我先是在立即窗口中运行，就有我所说的问题，在程序中测试就很正常。很奇怪！
另外有一个也很奇怪的问题：
我是想在INI文件中保存用户对系统参数的一些设置，开始改动时，我把   filecopy "data.ini" ,'tmp.ini"  ;当用户改动暂时记录在tmp.ini中，确定要保存时，先kill  "data.ini"  ;接着 filecopy 'tmp.ini" , "data.ini" 
可是在程序中 kill  "data.ini"  和 filecopy 'tmp.ini" , "data.ini" 似乎没有起作用，如果连续单击两次确定按钮就可以保存。部分源代码如下，其它部分不涉及对ini文件的改动Dim typename As String  '改动的小节名称Private Sub cmdclose_Click()
'窗口关闭
Unload Me
End SubPrivate Sub cmdedit_Click()
'把用户改动暂时记录在tmp.ini中
List1.List(List1.ListIndex) = txtdata
 WritePrivateProfileString typename, CStr(List1.ListIndex + 1), txtdata, App.Path & "\tmp1.ini"
cmdedit.Enabled = False
issave = False
End SubPrivate Sub cmdsave_Click()
'单击确定按钮，确定保存
Kill App.Path & "\data.ini"
FileCopy App.Path & "\tmp1.ini", App.Path & "\data.ini"
issave = True
End SubPrivate Sub Form_Load()
FileCopy App.Path & "\data.ini", App.Path & "\tmp1.ini"
…………
…………
End SubPrivate Sub Form_Unload(Cancel As Integer)
 Kill App.Path & "\tmp1.ini"
End Sub
………………
………………