How to replace a line of text in a text file?

[peter1234]

Is there a way to replace a line of text in a text file using AutoIt? I want to replace "XXXXX" in a text file with a file name such as "File=C:\video.m2v".

Edited February 6, 2006 by peter1234

[Oxin8]

  peter1234 said:

Is there a way to replace a line of text in a text file using AutoIt? I want to replace "XXXXX" in a text file with a file name such as "File=C:\video.m2v".

This has been covered before. You should have tried searching first. If the file is an .ini , there are function specificly for it and they all can be found in the help file. If the neither search nor the help file does it, try posting the text file you want to change and we'll go from there.

[peter1234]

I did try searching first (I always do), but there were no results. Can you suggest what to search for?

[Shibuya]

Do a _FileReadtoArray, there's where you should start.

Need I explain more for the rest?

[peter1234]

Shibuya,

Thanks. I will check that out.

[Oxin8]

  peter1234 said:

I did try searching first (I always do), but there were no results. Can you suggest what to search for?

I didn't just underline "searching" for no reason. lol. It's a link. Click to get the search I used

[peter1234]

Oxin8,

Sorry! I missed that.

[peter1234]

I wasn't able to get _FileReadToArray to work for me yet and I need to do something else now. But, I did find another way to do it. This uses a free program called TedNPad.exe which is a NotePad alternative.

;repalces this text "XXXXX" with the this text "File=C:\video.m2v" in the text file "c:\project.txt"

$insert_this_text = "File=C:\video.m2v"
run ( "TedNPad.exe" )
sleep(200)
send ("^o")
send ("c:\project.txt",1)
send ("{ENTER}")
sleep(200)
send ("^r")
send ("XXXXX" ,1)
send ("{TAB}")
send ($insert_this_text ,1)
send ("{TAB}")
send ("{TAB}")
send ("{TAB}")
send ("{ENTER}")
send ("{TAB}")
send ("{TAB}")
send ("{ENTER}")
send ("^s")
sleep(200)
send ("{ESC}")
exit

[Valuater]

not tested... but should work

Dim $aRecords
Dim $aFile = "c:\project.txt"
Dim $Old_info = "XXXXX"
Dim $New_info = "File=C:\video.m2v"


GuiCreate("MY GUI")
$input = GUICtrlCreateEdit("" , 20, 20, 350, 300)

If Not _FileReadToArray($aFile,$aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
For $x = 1 to $aRecords[0]
    If StringInStr($aRecords[$x], $Old_info) Then $aRecords[$x] = $New_info
    GUICtrlSetData( $input, $aRecords[$x] & @CRLF, 1)
Next

$Check= GUICtrlCreateButton("Exit", 150,350,100,30)
GUISetState(); display the GUI

While 1
    $msg = GUIGetMsg()
  
    Select
        
        Case $msg= $Check
            Exit
        Case $msg= $GUI_EVENT_CLOSE
            Exit
            
    EndSelect
WEnd

8)

[peter1234]

Valuater,

Thanks. I haven't got time to test it now. I will do it tomorrow.

[Valuater]

no prob

8)

[JerryD]

  Oxin8 said:

I didn't just underline "searching" for no reason. lol. It's a link. Click to get the search I used

I did notice that, and was impressed with the search results, but it's a fish - not a fishing lesson!

[peter1234]

Valuater,

This is what I ended up with. Your suggestion failed to replace text but showed me what to do. Thanks for your help (I needed it). By the way, that was a very neat GUI suggestion.

; Creates new text file that has the text "XXXXX" replaced with the text "ABCDE"

#include <GUIConstants.au3>
#include<file.au3>
#include<array.au3>
Dim $text_array
$old_file = "project.txt"
$new_info = "ABCDE"
$old_info = "XXXXX"
FileOpen($old_file,0)
If Not _FileReadToArray($old_file,$text_array) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   FileClose($old_file)
   Exit
EndIf
FileDelete ("new_project.txt")
$new_file = FileOpen("new_project.txt",1)
For $x = 1 to $text_array[0]
    $match = StringInStr($text_array[$x], $old_info) 
    If $match<>0 Then $text_array[$x] = StringReplace ( $text_array[$x], $old_info, $new_info )     
    FileWrite($new_file, $text_array[$x] & @CRLF )  
Next
FileClose($new_file)
FileClose($old_file)

Edited February 7, 2006 by peter1234