StringRegExpReplace Help

[JimJ]

Good afternoon all.

After hours of searching, I have swallowed my ego to ask this very simple question.

I have this line in a file:  <CompanySite key="001|01|4418">  I just want to change the 001 part of this line in the file....the rest is needed to stay the same.

I have this line in an AutoIt script:  StringRegExpReplace($sLine,"001","714")

When I execute the process, it will not change the 001 value to 714.  And when I check the expression with $ChkRegEx = StringRegExp($sLine,'001','714',0), it returns a value of 1, which I believe indicates that it's a good expression.

Truly grateful for any help....just can't figure this one out.

Jim

[jchd]

11 minutes ago, JimJ said:

When I execute the process, it will not change the 001 value to 714.

Yes it does!

Local $sLine = '<CompanySite key="001|01|4418">'
; your way
Local $sChanged = StringRegExpReplace($sLine, "001", "714")
ConsoleWrite($sChanged & @LF)
; another skin for this cat
$sChanged = StringReplace($sLine, "001", "714")
ConsoleWrite($sChanged & @LF)

 

[JimJ]

When I check the file, there is no change to the value....it's still 001.  As if it doesn't update it with the value change.

[jchd]

Post your code (as always).

[JimJ]

#include <File.au3>
#include <Array.au3>
#include <String.au3>
#include <MsgBoxConstants.au3>
#include <AutoItConstants.au3>

Global $file = "C:\TestFolder\TestFile.cfg", $search = "<CompanySite key="
Global $iLine = 0, $sLine = '', $iValid = 0
Global $hFile = FileOpen($file)
If $hFile = -1 Then
    MsgBox(0, 'ERROR', 'Unable to open file for reading.')
    Exit 1
EndIf

; find the line that has the search string
While 1
    $iLine += 1
    $sLine = FileReadLine($hFile)
    If @error = -1 Then ExitLoop

    ; $search found in the line, replace index number
    If StringInStr($sLine, $search) And Not $iValid Then
        $ChkRegEx = StringRegExp($sLine,'001','714',0)
        StringRegExpReplace($sLine,'001','714')

ExitLoop
    EndIf
WEnd
FileClose($hFile)

[iamtheky]

so you open the file in read mode, and then try and write something to it?

[mikell]

Even with my best glasses I can't see the place in this code where the new text is written in the file ...

[JimJ]

6 minutes ago, iamtheky said:

so you open the file in read mode, and then try and write something to it?

I thought that StringRegExpReplace($sLine,"001","714") automatically made the change to file?  Do I have to utilize a write process in there?

[JimJ]

11 minutes ago, mikell said:

Even with my best glasses I can't see the place in this code where the new text is written in the file ...

Please forgive the ignorance of these simple questions....I really am a newb and am just learning:  but how would I write back just the change to the file (001 to 714) and leave the rest of the line intact?

[mikell]

Several ways to do that. Basically the usual way is : read the file content to a string or an array, modify this string/array, then write it back to the file
So you have to look at the various FileOpen modes (read, write, overwrite) and so on
You also can : FileReadLine, modify the line, _FileWriteToLine ...

The helpfile is your best friend 

Edited December 5, 2018 by mikell

[JimJ]

3 minutes ago, mikell said:

Several ways to do that. Basically the usual way is : read the file content to a string or an array, modify this string/array, then write it back to the file
So you have to look at the various FileOpen modes (read, write, overwrite) and so on
You also can : FileReadLine, modify the line, _FileWriteToLine ...

The helpfile is your best friend 

Thank you...appreciate the insight...but honestly, spent a lot of time looking and cannot figure out how to write back just the 001 to 714 part without messing up the line.  I'll keep working on it.

This is the example from the help file....demonstrates basic replacement....everything I was looking for....but has no "write" designation...which is why I thought it just updated the file on it's own.

#include <MsgBoxConstants.au3>

Test1()
Test2()
Test3()

; This example demonstrates a basic replacement.  It replaces the vowels aeiou
; with the @ character.
Func Test1()
    Local $sInput = "Where have all the flowers gone, long time passing?"
    Local $sOutput = StringRegExpReplace($sInput, "[aeiou]", "@")
    Display($sInput, $sOutput)
EndFunc   ;==>Test1

[mikell]

Hmm. A small example is often better than a long speech, so could you post the file (or just the concerned part of the file) and the # of the line to be changed ?

[JimJ]

I feel foolish and embarrassed to write this....but I figured it out.  It's the whole writing to file thing...I WAY over complicated this thing, got caught up in the weeds, and failed simple logic.  I'm sorry to waste your time.  But thanks for the tough love and for making me think it through.

[mikell]

3 minutes ago, JimJ said:

I figured it out

Great !   

[iamtheky]

39 minutes ago, JimJ said:

I feel foolish and embarrassed to write this...

nah, you can save that for when you do it the sixth time.  Most of the common failure points are learned by feel (mostly the feeling of being berated on the forum).

 

Edited December 5, 2018 by iamtheky