Access .ini files in the blink of an eye. Use one line of your input to quickly retrive .ini values. With the same one line of code write to your .ini file. If you have any improvements on this code, E-Mail me at “karatebob@hotmail.com”.
Original Author: Frank Joseph Mattia
Assumptions
When you call this in your code, this is the syntax you will need to use.
Dim X As String
X = mfncGetFromIni(SectionHeader, VariableName, FileName)
Text1.Text = X
Returns
Returns the value of a string of an .ini file.
Side Effects
None.
API Declarations
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
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
Code
Function mfncGetFromIni(strSectionHeader As String, strVariableName As String, strFileName As String) As String
'**********************************************************************************************
' DESCRIPTION:Reads from an *.INI file strFileName (full path & file name)
' RETURNS:The string stored in [strSectionHeader], line beginning
' strVariableName=
'**********************************************************************************************
' Initialise variable
Dim strReturn As String
' Blank the return string
strReturn = String(255, Chr(0))
'Get requested information, trimming the returned
' string
mfncGetFromIni = Left$(strReturn, GetPrivateProfileString(strSectionHeader, ByVal strVariableName, "", strReturn, Len(strReturn), strFileName))
End Function
Function mfncWriteIni(strSectionHeader As String, strVariableName As String, strValue As String, strFileName As String) As Integer
'*****************************************************************************************************
' DESCRIPTION:Writes to an *.INI file called strFileName (full path & file name)
' RETURNS:Integer indicating failure (0) or success (other) to write
'*****************************************************************************************************
mfncWriteIni = WritePrivateProfileString(strSectionHeader, strVariableName, strValue, strFileName)
End Function