* RESOLVED * Saving to an .ini file (not typical format of x=x)

I want to save to a ini file of the following format:

VB Code:

autoframeskip           1
frameskip               0
waitvsync               0
triplebuffer            0
window                  0
ddraw                   1
direct3d                0
hwstretch               1

I've saved to typical ini files before using downloadable ReadINI and WriteINI functions, but not with tabbed spacing like this one.

TIA

Why do you need to save it formatted?

It doesn't have to be tabbed I guess, but even then the question remains...

Unless the user would be looking at the file, I couldn't care less what the data looks like in a file as long as I can get/write data easily.

Quote:

---

Originally posted by Shawn N
Unless the user would be looking at the file, I couldn't care less what the data looks like in a file as long as I can get/write data easily.

---

Indeed. But I still don't know how to save to it :) The modules I have for saving to ini files, puts in a "=" char. The ini file I want to save to doesn't have this char.

Then it's really not an ini file. You can read and write to it just like any other text file.

OK thanks.

You can also use "normal" read and write code against a real ini file, it's just usually more convenient to use things like GetPrivateProfileInt, GetPrivateProfileString and WritePrivateProfileString.

Yeah I'm aware of that. I thought there might have been a module/api to manipulate my file, instead of me coding one myself like I have done ...

VB Code:

Private Sub WriteMameIni(name As String, spaces As Integer, value As Byte)
    Dim strText As String
    Dim pos As Integer
    Dim counter As Long
    Dim varText As Variant
    Dim Upper As Long
    Dim FileNum As Integer
    Dim arrWrite() As String
    Dim mamePath As String
    
    mamePath = ReadInI("PATHS AND FOLDERS", "mamePath", App.Path & "\mstart.ini")
 
    
    Open mamePath & "\mame.ini" For Input As #1
        strText = Input(LOF(1), #1)
    Close #1
    
    
    varText = Split(strText, vbCrLf)
    Upper = UBound(varText)
    ReDim arrWrite(Upper)
 
    'Read and process all in one go.
    For counter = 0 To Upper - 1
        pos = InStr(1, varText(counter), name)
        If pos <> 0 Then
            varText(counter) = name & Space(spaces) & value
        End If
        arrWrite(counter) = varText(counter)
    Next
    
   
    FileNum = FreeFile
    Open "d:\emu\mame\mame.ini" For Output As #FileNum
 
    'Write all in one go.
    For counter = 0 To Upper - 1
        Print #FileNum, arrWrite(counter)
    Next
    
    Close #FileNum
End Sub
 
Private Function ReadMameIni(name As String)
    Dim strText As String
    Dim pos As Integer
    Dim counter As Long
    Dim varText As Variant
    Dim Upper As Long
    Dim mamePath As String
    
    mamePath = ReadInI("PATHS AND FOLDERS", "mamePath", App.Path & "\mstart.ini")
 
    
    Open mamePath & "\mame.ini" For Input As #1
        strText = Input(LOF(1), #1)
    Close #1
    
    
    varText = Split(strText, vbCrLf)
    Upper = UBound(varText)
    ReDim arrWrite(Upper)
 
    For counter = 0 To Upper - 1
        pos = InStr(1, varText(counter), name)
        If pos <> 0 Then
            varText(counter) = Mid(varText(counter), Len(name) + 1)
            ReadMameIni = Trim(varText(counter))
            Exit For
        End If
    Next
    
End Function

Oh well, wasted a few hours :S

Thanks again.