Reading&Writing from&to .INI files using VBA code

[memesmith]

I have written code to enter data for the ini file in Access 2000. The ini file is the input for a report using Crystal Reports. I would like to replace the value in the current ini file with the new values entered into the Access form. Can someone tell me how to do this.

Here is a sample of the data in the current ini file I would like to replace the value in the lines User*Value= (value):


[ExtraSampleInfo]
ItemCount=11
User1Label=Gas Temperature
User1Value=50
User1SaveData=0
User2Label=Company
User2Value=duke
User2SaveData=0
User3Label=Sample Date
User3Value=2/5/6
User3SaveData=0
User4Label=Station Name
User4Value=test
User4SaveData=0
User5Label=Sampled By
User5Value=jb
User5SaveData=0
User6Label=Station Number
User6alue=
User6SaveData=0
User7Label=Flowing Pressure
User7Value=67
User7SaveData=0
User8Label=Plant
User8Value=Rockcreek
User8SaveData=0
User9Label=Cylinder #
User9Value=23
User9SaveData=0
User10Label=Composite/Spot
User10Value=Spot.
User10SaveData=1
User11Label=Barometer
User11Value=
User11SaveData=0
Col1Label=Item
Col1Width= 2190
Col2Width= 1920
User6Value=12345
Peak1Value=0

[ExtraPeakInfo]
ItemCount=2
Peak1Label=H2S
Peak1Value=0.5
Peak2Label=Oxygen
Peak2value=0.08
Col1Label=" Peak"
Col1Width= 1860
Col2Label=" Result"
Col2Width= 2445


I found the code, VBnet, Randy Birch. I would like to change this code into VBA for Access if anyone can help me couldn't find a way to contact Randy.

thanks for you help

[pks00]

Im not sure what code u have but I have used this in the past successfully

Add this lot to a module

 
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
 
 
Private Const CONFIG_FILE = "C:\EE\DBConfig.ini"
 
 
Public Function GetINIString(Byval sApp as String, ByVal sKey As String) As String
 
    Dim sBuf As String * 256
    Dim lBuf As Long
 
    lBuf = GetPrivateProfileString(sApp, sKey, "", sBuf, Len(sBuf), "C:\myfile.ini")
    GetINIString= Left$(sBuf, lBuf)
End Function
 
 
Public Function WriteINI(Byval sApp as String, ByVal sKey As String, ByVal sValue As String) As String
    WritePrivateProfileString sApp, sKey, sValue, "C:\myfile.ini"
End Function
 
 

then use GetINIString specifing application and key to get
i.e.

x = GetINIString("ExtraSampleInfo","User1Label")

and WriteINI to save a value


Note example for strings, should work for numbers but u can always use the other api call provided

[Andrew Thackray]

This code should just about do it. You will need to debug It & modifiy it a little but it should be essentially correct

Sub IpdateIniFile(UserNo As Integer, NewValue As Long)
 
Dim cnt As Integer
Dim IniLine As String
Dim UserID As String
Dim Pth As String
Dim TempFile As String
 
    UserID = Trim(CStr(UserNo))
    ' replace with the path to ytour ini file
    Pth = "Path\YourIniFile.ini"
    TempFile = "Path\Temp.ini"
    Open Pth For Input As #1
    Open TempFile For Output As #2
    Do Until EOF(1)
         Line Input #1, IniLine
        If Left(IniLine, 4) = "User" And Mid(IniLine, 5, Len(UserID)) = UserID And Mid(IniLine, Len(UserID) + 4, 5) = "Value " Then ' we have found the users entries
            IniLine = "User" & UserID & "Value=" & Trim(CStr(NewValue))
        End If
        Print #2, IniLine
    Loop
    Close 1
    Close 2
    Kill Pth
    Name TempFile As Pth
 
End Sub
 

[memesmith]

Im not sure what code u have but I have used this in the past successfully

Add this lot to a module

 
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
 
 
Private Const CONFIG_FILE = "C:\EE\DBConfig.ini"
 
 
Public Function GetINIString(Byval sApp as String, ByVal sKey As String) As String
 
    Dim sBuf As String * 256
    Dim lBuf As Long
 
    lBuf = GetPrivateProfileString(sApp, sKey, "", sBuf, Len(sBuf), "C:\myfile.ini")
    GetINIString= Left$(sBuf, lBuf)
End Function
 
 
Public Function WriteINI(Byval sApp as String, ByVal sKey As String, ByVal sValue As String) As String
    WritePrivateProfileString sApp, sKey, sValue, "C:\myfile.ini"
End Function
 
 

then use GetINIString specifing application and key to get
i.e.

x = GetINIString("ExtraSampleInfo","User1Label")

and WriteINI to save a value


Note example for strings, should work for numbers but u can always use the other api call provided

ok, this is close to the code I was looking at from Randy. But I am not understanding where to enter it. You said in a module, is that the code behind a form or in a code module?

"then use GetINIString specifing application and key to get", how do I do this?
I am still learning Access and have a long way to go. Thanks for your help.

[memesmith]

This code should just about do it. You will need to debug It & modifiy it a little but it should be essentially correct

Sub IpdateIniFile(UserNo As Integer, NewValue As Long)
 
Dim cnt As Integer
Dim IniLine As String
Dim UserID As String
Dim Pth As String
Dim TempFile As String
 
    UserID = Trim(CStr(UserNo))
    ' replace with the path to ytour ini file
    Pth = "Path\YourIniFile.ini"
    TempFile = "Path\Temp.ini"
    Open Pth For Input As #1
    Open TempFile For Output As #2
    Do Until EOF(1)
         Line Input #1, IniLine
        If Left(IniLine, 4) = "User" And Mid(IniLine, 5, Len(UserID)) = UserID And Mid(IniLine, Len(UserID) + 4, 5) = "Value " Then ' we have found the users entries
            IniLine = "User" & UserID & "Value=" & Trim(CStr(NewValue))
        End If
        Print #2, IniLine
    Loop
    Close 1
    Close 2
    Kill Pth
    Name TempFile As Pth
 
End Sub
 

I put this code into Visual Basic 6, changed the paths to my directories. This seems to work, but what does the Kill Pth do?
and what does the Name Tempfile as Pth do?
When I run the code the Temp.ini file disappears.

[pks00]

Just put the code in a normal module, dont need it in a form module.
If in a module, then all forms and other modules have access to it

[Andrew Thackray]

Kill pth deletes the original INI file
Name Tempfile as Pth renames the output file to the INI file.

The program works by sequentially reading from the ini file & writing to a temp file, changing the rquired lines as it goes. It then deletes the original INI file and renames the temp file to the INI file.