INI File Read and Write VBA code

Option explicit

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

Public Function readfromini (byval INIFILE as string, byval section as string, byval key as string, byval defaultvalue as string) as string

Dim strrtn as string
Strrtn = space (256)

Dim lngrtn as long
Lngrtn = getprivateprofilestring (section, key, defaultvalue, strrtn, 255, INIFILE)

If lngrtn> 0 then
Strrtn = trim (strrtn)
Readfromini = mid (strrtn, 1, Len (strrtn)-1)
Else
Readfromini = defaultvalue
End if

End Function

Public sub writepolicini (byval INIFILE as string, byval section as string, byval key as string, byval value as string)

Dim lngrtn as long
Lngrtn = writeprivateprofilestring (section, key, value, INIFILE)

If lngrtn> 0 then
Else
Call err. Raise (-1, "inifileutil. writeiniini", "failed to write ")
End if

End sub

The following code demonstrates how to use the preceding functions readfromini and writejavasini.

Option explicit

Public sub main ()

On Error goto err_handling

Dim strinifile as string
Strinifile = activeworkbook. Path & "\ example. ini"

Dim strsection as string
Strsection = "application"

Dim strkey as string
Strkey = "version"

Dim strvalue as string
Strvalue = "1.0.30"

Call iniutil. writepolicini (strinifile, strsection, strkey, strvalue)

Strvalue = iniutil. readfromini (strinifile, strsection, strkey ,"")
Call msgbox ("version =" & strvalue, vbinformation + vbokonly, ET. activeworkbook. Name)
Exit_door:
Exit sub

Err_handling:
Call msgbox (ERR. Number & "-" & err. Description, vbexclamation + vbokonly, ET. activeworkbook. Name)
Resume exit_door