EZ - .ini

Posted: 2002-06-01
By: ArchiveBot
Viewed: 66

Filed Under:

VB6 Code Cache

No attachments for this post

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

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.