[RESOLVED] Edit a text file

[Kars Lensen]

I am trying to edit a textfile:
Open the textfile, find the item I need and then replace the new item(line) to the file.
Until now I have got this:

Open "C:\TextFile.txt" For Input As #1 
  While Not EOF(1)
    Line Input #1, strData
    'Found the line to replace  
Wend
Close #1

I hope someone can help me,
Regards, Kars

[Bonnie West]

So, what exactly is your question? What's the problem with your code?

[david_707]

To find a string you can use this code (in case if you're loading it into rtb)

Dim text2find As String 
text2find = tofind.Text 
Dim posicion As Integer 
posicion = InStr(1, Text2.Text, text2find)
If posicion > 0 Then
With Text2
            .SelStart = posicion - 1
            .SelLength = Len(tofind)
            .SetFocus
        End With
End If

Then just Use Replace function to replace a string. Or if you need something else, please post more details.

[Kars Lensen]

Thanks so far, I'll explain:
I already have found the line(string) I want to replace but I don't now how to replace it with a new string ?

[Phill.W]

If you're processing line-by-line, then use the Replace function to change the line.

Dim hFile as Integer
Dim sFilePath as String 
Dim sData as String 
. . . 
hFile = FreeFile() 
Open sFilePath For Input As #hFile 
   Do While Not EOF( hFile )
      Line Input #hFile, sData
      
      If ( Instr( sData, "abc" ) > 0 ) Then 
         sData = Replace( sData, "abc", "xyz" )
      End If 
      
   Loop 
Close #hFile

Regards, Phill W.

[Bonnie West]

Try this too:

Call ReplaceText("C:\TextFile.txt", "FindThisText", "ReplaceWithThis")

Private Sub ReplaceText(ByRef sFileName As String, ByRef sFind As String, ByRef sReplace As String)
    Dim strData As String

    Open sFileName For Binary As #1
        strData = Space$(LOF(1))
        Get #1, , strData
    Close #1

    strData = Replace(strData, sFind, sReplace)

    Open sFileName For Binary As #2
        Put #2, , strData
    Close #2
End Sub

[Kars Lensen]

That's exactly what I needed !
Thanks Bonnie,

Regards, Kars

[Bonnie West]

Don't forget to mark this thread Resolved!