Carriage return

[serr57]

Hi, every body,

I would like to add a carriage return when a string is found.

I have tried StringAddCR function, but nothing change.

$file = "C:\TEMP\MMarshal\MMarshalConfig.xml"
$open = fileopen($file,0)
$read = fileread($open)
FileClose($open)
$CR = StringAddCR ("/>")
FileWrite($file, $CR)

Could you help me

Many thanks

[Melba23]

serr57,

There is a whole lot wrong with that code:

- 1. $open = fileopen($file,0) - you are only opening the file for reading, so you cannot write to it.

- 2. FileClose($open) - You are closing the file before trying to write to it, so the write would fail even if you had opened the file correctly.

- 3. $CR = StringAddCR ("/>") - This line will do nothing at all. Look at the Help file for StringAddCR:

StringAddCR - Takes a string and prefixes all linefeed characters ( Chr(10) ) with a carriage return character ( Chr(13) ).

You have no linefeed characters, so you get no added carriage returns.

; ------

So.....what exactly do you want to do? Start a new line after each "/>" in the file?

If so then this should work for you:

$sFile = "Your_file_name"

; Open file for read
$hFile = FileOpen($sFile, 0)
; Read file
$sContent = FileRead($hFile)
; Close file
FileClose($hFile)

; Add the new line characters
$sNewContent = StringReplace($sContent, "/>", "/>" & @CRLF)

; Reopen the file for overwrite
$hFile = FileOpen($sFile, 2)
; Write file
FileWrite($hFile, $sNewContent)
; Close file
FileClose($hFile)

Before:

/>/>/>

After:

/>
/>
/>

Does that do what you want?

M23

[serr57]

Hi,

Many thanks.

The second thing is to modify with 2 strings.

FileCopy ("C:\TEMP\MMarshal\MMarshalConfig.xml", "C:\TEMP\MMarshal\MMarshalConfigOr.xml")

sleep(5000)

$file = "C:\TEMP\MMarshal\MMarshalConfig.xml"
$open = fileopen($file,0)
$read = fileread($open)
FileClose($open)
$CR1 = StringReplace($read, "/>", "/>" & @CRLF)
$CR2 = StringReplace($read, "</Key>", "</Key>" & @CRLF)
$open = fileopen($file,2)
FileWrite($file, $CR1)
FileWrite($file, $CR2)
FileClose($file)

But only one is written

Don't know why.

I am not an expert with autoit.

Before I use it only for application deployment

thanks

[Melba23]

serr57,

You were modifying the same original string twice and then overwriting the 2 results - you need to keep modifying the same string:

$file = "Your_file_path"

$open = fileopen($file,0)
$read = fileread($open)
FileClose($open)

; Do the first replace
$CR1 = StringReplace($read, "/>", "/>" & @CRLF)
; Do the second replace - ON THE STRING WHICH HAS ALREADY BEEN AMENDED
$CR2 = StringReplace($CR1, "</Key>", "</Key>" & @CRLF)

$open = fileopen($file,2)
; Only write the final string
FileWrite($open, $CR2)
FileClose($open)

You should also use either filenames or file handles - you were mixing them in your script when writing the file. From the Help file:

"Note: Do not mix filehandles and filenames, i.e., don't FileOpen a file and then use a filename in this function. Either use filehandles or filenames in your routines, not both."

All clear?

M23