• Home
 · 
• String Manipulation
 · 
• ReadIniFile Reads Ini Files WriteIniFile Writes Ini Files

ReadIniFile Reads Ini Files WriteIniFile Writes Ini Files

ReadIniFile Reads Ini Files WriteIniFile Writes Ini Files

API Declarations



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



Rate ReadIniFile Reads Ini Files WriteIniFile Writes Ini Files

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'FUNCTION: ReadIniFile (Reads an Ini File)

Function ReadIniFile(ByVal strIniFile As String, ByVal StrSection As String, ByVal strKey As String) As String
    Dim strBuffer As String
    Dim intPos As Integer

    strBuffer = Space$(gintMAX_SIZE)
    
    If GetPrivateProfileString(StrSection, strKey, gstrNULL, strBuffer, gintMAX_SIZE, strIniFile) > 0 Then
        ReadIniFile = RTrim$(StripTerminator(strBuffer))
    Else
        ReadIniFile = gstrNULL
    End If
End Function


'FUNCTION: WriteIniFile (Writes an Ini File)

Function WriteIniFile(ByVal strFilename As String, ByVal StrSection As String, ByVal strKey As String, ByVal strString As String) As Long
    WriteIniFile = WritePrivateProfileString(StrSection, strKey, strString, strFilename)
End Function