Find text @ file and edit this

[MrNice21]

hi all

i want help

i will code a find text at "test.txt" (234) and edit (replace) this to 43234242 how can i make this ? help me plz

thx

[SpookMeister]

I would love to help, but I just don't understand your question.

If English is not your native language, try posting in German/French/Swahili/watever. There are people from all over who visit here and they may be able to help/translate for you.

[MrNice21]

hi all

i want help

i will code a find text at "test.txt" (234) and edit (replace) this to 43234242 how can i make this ? help me plz

thx

Ich möchte einfach ein prog coden was eine datei öffnet z.b. test.dll und in dieser datei einen bestimmten text z.b. 234 sucht und ihn in 234243423 ändert mehr net hoffe mir kann einer helfen danke

ja english is net so mein ding lol

*****************

is this better ?

how can i make a prog was open a file (abc.dll) and find in this

file a address "32323" and change this address to "34543535".

plz help thx

[MrNice21]

help me plz

[James]

So you want to replace text found in a text file?

Here is what I would do:

1. Read the file and store it in an array

2. Use StringReplace to replace the text you want to be replaced with (makes sense)

3. Overwrite the file you first read from

This works:

#include <File.au3>
Dim $aRecords
Global $File = "text.txt"
If Not _FileReadToArray($File, $aRecords) Then
    MsgBox(4096, @ScriptName, "There was an error reading file!")
    Exit
EndIf
For $x = 1 To $aRecords[0]
    $Replaced = StringReplace($aRecords[$x], "hallo", "hello")
    MsgBox(0, @ScriptName, $Replaced)
Next
$New = FileOpen($File, 2)
FileWrite($New, $Replaced)
FileClose($New)

Create a new file in the same directory as the script called "text.txt" in that file write "hello" (without quotes). Run the script. Check the file!

Just modified some code from the Helpfile

Edited February 16, 2008 by JamesB

[James]

Here is a better script which I made into a function!

expandcollapse popup

#include <File.au3>
;#include <Array.au3>

ReplaceInFile(@ScriptDir & '\text.txt', "hello", "hallo")

Func ReplaceInFile($io_file, $io_word, $io_replacement)
    Dim $Records
    $Lines = _FileCountLines($io_File)
    If Not _FileReadToArray($io_file, $Records) Then
        ConsoleWriteError("There was an error reading > " & $io_file & @CRLF)
        Exit
    ElseIf _FileReadToArray($io_file, $Records) == "" Then
        ConsoleWriteError("File was found to be blank!" & @CRLF)
    ElseIf Not @error Then
        ConsoleWrite("> File was all good!" & @CRLF)
    EndIf
    $File = FileOpen($io_file, 2)
; DEBUG = ConsoleWrite("+> Found: " & $Lines & " lines!" & @CRLF)
; DEBUG = _ArrayDisplay($Records)
    For $ax = 1 To $Records[0]
        ConsoleWrite("+> " & $Records[$ax] & @CRLF)
        $Replace = StringReplace($Records[$ax], $io_word, $io_replacement)
        ConsoleWrite("+> " & $Replace & @CRLF)
    ;For $ay = $Lines To UBound($Lines) - 1
    ;   FileWrite($File, $Replace)
    ;Next
        If _FileCountLines($io_file) < UBound($Lines) - 1 Then
            FileWrite($File, $Replace & @CRLF)
        Else
            FileWrite($File, $Replace)
        EndIf
        If Not @error Then
            ConsoleWrite("> Replaced String!" & @CRLF)
        Else
            ConsoleWriteError("Error replacing text!" & @CRLF)
        EndIf
    Next
    FileClose($File)
EndFunc

Same instructions as before

[MrNice21]

very very nice big thx for help nice forum!

[James]

Glad I helped!

[RH]

Hello all,

I tried adapting James's function to something I'm trying to do--changing a constant text string in an XQuery file. It works great as far as the text string is concerned, but unfortunately, it strips out all line breaks. Being a total newbie, I'm not sure whether this happens at the time of reading the file into the array or at the time of output, even less how to fix it. Can anyone point me in the right direction?

 

Many thanks!

 

Edit: I hacked it, without really understanding what I'm doing: I just took out the condition and it works:

;If _FileCountLines($io_file) < UBound($Lines) - 1 Then
            FileWrite($File, $Replace & @CRLF)
        ;Else
            ;FileWrite($File, $Replace)
        ;EndIf

Edited June 17, 2015 by RH

[jchd]

This thread is 7 year old. Don't you think it's time to start one from scratch and expose your actual problem in full grace?

[Melba23]

RH,

I agree with jchd - please start a new thread and explain a little more clearly the problem you are having.

M23