Changing the saved info in a Text File

[incognito_301]

Let's say for example, some info's been saved using this code:

Open "C:\Textfile.txt" For Append As #3
Write #3, Text1, Text2, Combo1.text, List1.text
Close #3

and the text file is something like:

"James", "16", "Green", "1990"
"Bob", "20", "Red", "1980"

How can change an specific info in the text file? (For example, the user enters "Bob" as his name in my program and changes "Red" to something else in a combobox. So i need the computer to find "Bob" in the text file and change "Red" to something the user enters in my program.)

If any more info is required, tell me and i will add.

Asap & thnk you

[vibiEn]

Please attach the file

[Doogle]

With files that are sequentially written and with variable length records, you'll have to read all the file, search for "Bob", make the necessary change and then re-write the complete file. If you have many records it's easier to use a simple Database.

[ThorSubak]

here's the way...

Dim toAddLine As String 'the string to be replace
    Dim dNewStr(0 To 3) As String 'can be adjusted : for the as if field
    Dim dLineSplit(0 To 1) As String 'as a storage of the text file data per row
    Dim nF As Integer 'for the filenumber
    Dim arrey() As String 'for split
    nF = FreeFile
    Open "D:\samp.txt" For Input As #nF
    w = 0
        Do Until EOF(nF)
            Line Input #nF, dLineSplit(w)
            w = w + 1
        Loop
    Close #nF
    nF = FreeFile
    Open "D:\samp.txt" For Output As #nF
        For y = 0 To UBound(dLineSplit)
            arrey = Split(Trim(dLineSplit(y)), ",")
            For x = 0 To UBound(arrey)
                    If Trim(arrey(x)) = Me.Text_param.Text Then
                        toAddLine = Me.Text1.Text 'the new value
                    Else: toAddLine = arrey(x)
                    End If
                    dNewStr(x) = Replace(toAddLine, Chr(34), "")
            Next
           Write #nF, dNewStr(0), dNewStr(1), dNewStr(2), dNewStr(3)
            dNewStr(0) = "" 'clear all arrays
            dNewStr(1) = ""
            dNewStr(2) = ""
            dNewStr(3) = ""
        Next
    Close #nF
 
    'must have:
      'Text_param - the parameter of value to be update
      'Text1 - the new value

__________________________
if do you think the problem is solved, please mark your post as RESOLVED and please do rate.