Search Tools Links Login

INI Reading and Writing Made Simple!


This code was designed for reading and writing INI files. You put it in a module called modINI.

Original Author: Austen Frazier

Inputs

Syntax:
ReadINI("SECTION", "FIELD", filename)
WriteINI("SECTION", "FIELD", "VALUE", filename)

Assumptions

This is very "newbie" friendly code. Any user, from beginner to advanced user, can use it.

Returns

The value of the field read from the INI for ReadINI. For WriteINI, it will return nothing.

Code

Option Explicit
'ModINI.Bas
'INI reading/writing
Public Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$)
Public Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnedString$, ByVal RSSize&, ByVal FileName$)
Public Sub WriteINI(INISection As String, INIKey As String, INIValue As String, INIFile As String)
  Call WritePrivateProfileString(INISection, INIKey, INIValue, INIFile)
End Sub
Public Function ReadINI(INISection As String, INIKey As String, INIFile As String) As String
  Dim StringBuffer As String
  Dim StringBufferSize As Long
  
  StringBuffer = Space$(255)
  StringBufferSize = Len(StringBuffer)
  
  StringBufferSize = GetPrivateProfileString(INISection, INIKey, "", StringBuffer, StringBufferSize, INIFile)
  
  If StringBufferSize > 0 Then
    ReadINI = Left$(StringBuffer, StringBufferSize)
  Else
    ReadINI = ""
  End If
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 170 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.