StringInStr and FileSetPos

[ABSOLUTE]

Hello!

I have a problem with using results of StringInStr() function in FileSetPos() function. I want to find substring "</Certificate>" from file "source.txt" (attached), move pos and read after.

Tried by using this code (see comments):

#include <FileConstants.au3>
$hFile = FileOpen("source.txt",0)
$data = FileRead($hFile)
$data = StringReplace($data,@CRLF,""); to make one line string
$data = StringReplace($data,@CR,""); to make one line string
$data = StringReplace($data,@LF,""); to make one line string
$position = StringInStr($data,"</Certificate>",0); Result = 6067
ConsoleWrite($position & @CRLF); 6067
FileSetPos($hFile, $position, $FILE_BEGIN); move read position 0 to 6067
ConsoleWrite(FileGetPos($hFile)); 6067
$data = FileRead($hFile)
$data = StringReplace($data,@CRLF,""); to make one line string
$data = StringReplace($data,@CR,""); to make one line string
$data = StringReplace($data,@LF,""); to make one line string
MsgBox(0,"New Cert text",$data); <--- WRONG TEXT! It's not 6067! It's 6061!
FileClose($hFile)

What's wrong? Thanks

source.txt

Edited July 1, 2018 by ABSOLUTE

[FrancescoDiMuro]

Good evening @ABSOLUTE, and welcome to the AutoIt forum

I couldn't run your script at the moment, but, I'd like to let you understand what you did...

To do so, I'll comment your code 8

#include <FileConstants.au3>
$hFile = FileOpen("source.txt",0) ; Open the file
$data = FileRead($hFile) ; Read the file content
$data = StringReplace($data,@CRLF,""); to make one line string ( Replacing all the @CRLF with space )
$data = StringReplace($data,@CR,""); to make one line string ( Same )
$data = StringReplace($data,@LF,""); to make one line string ( Same )
; Retrieve the position of the string
$position = StringInStr($data,"</Certificate>",0); Result = 6067
ConsoleWrite($position & @CRLF); 6067
FileSetPos($hFile, $position, $FILE_BEGIN); move read position from 0 to 6067
ConsoleWrite(FileGetPos($hFile)); 6067
$data = FileRead($hFile) ; Read again the file content... But, where is all the part with StringReplace($data, @CRLF, " "), and so on? 
MsgBox(0,"New Cert text",$data); <--- WRONG TEXT! It's not 6067! It's 6061!
FileClose($hFile)

Did you try to do same sobstitutes after "re-reading" the content of the file into the variable $data?

 

Best Regards.

[ABSOLUTE]

@FrancescoDiMuro Yeah, sorry) Updated the code

Edited July 1, 2018 by ABSOLUTE

[Jos]

The file is opened for reading. Look at the helpfile for FileSetPos() for the appropriate setting in the example!

Jos

[ABSOLUTE]

20 minutes ago, Jos said:

The file is opened for reading. Look at the helpfile for FileSetPos() for the appropriate setting in the example!

Jos

In other words, I can't use this function for reading only?

[Jos]

I guess you are confused and expect the StringReplace() function, which remove the @cr & @lf characters to be rewritten to the file.... right?
You then read the file again, which of course will retrieve the same text as the first read operation as you did not write the information back.
That is why i mentioned to look at the example as that does what you are possibly looking for.
So ... what is it you want to accomplish here?

Jos 

[FrancescoDiMuro]

@ABSOLUTE

Did you run the code with those changes, or you modified it just here?

 

Best Regards.

[Malkey]

Try these two one liners MsgBox's, and, your example script of post #1 modified with comments..

MsgBox(0, 'All text following "</Certificate>" in "source.txt" file', StringRegExpReplace(FileRead("source.txt"), "(?s)^(.*\Q</Certificate>\E)", ""))
MsgBox(0, 'All text following and including "</Certificate>" in "source.txt" file', StringRegExpReplace(FileRead("source.txt"), "(?s)^.+(?=\Q</Certificate>\E)", ""))

#include <FileConstants.au3>
$hFile = FileOpen("source.txt", 0) ; Open the file
$data = FileRead($hFile) ; Read the file content

; Note: Vertical whitespace characters ae counted in StringInStr and FileSetPos functions.
; Also, you are not replacing all the @CRLF with space, you are replacing all the @CRLF with nothing (you are deleting all the @CRLF's).
;$data = StringReplace($data,@CRLF,""); to make one line string ( Replacing all the @CRLF with space )
;$data = StringReplace($data,@CR,""); to make one line string ( Same )
;$data = StringReplace($data,@LF,""); to make one line string ( Same )

; Note: StringInStr returns position 1-based; FileSetPos position is 0-based.
$position = StringInStr($data, "</Certificate>", 0) - 1 ; Minus 1 to convert the StringInStr position to FileSetPos positiom.
ConsoleWrite($position & @CRLF) ;

FileSetPos($hFile, $position, $FILE_BEGIN) ; move read position from 0 to 6067
ConsoleWrite(FileGetPos($hFile)) ; 6067
$data = FileRead($hFile) ; Read again the file content... But, where is all the part with StringReplace($data, @CRLF, " "), and so on?
MsgBox(0, "New Cert text", $data) ; <--- WRONG TEXT! It's not 6067! It's 6061!
FileClose($hFile)

 

[jchd]

The file contains invalid UTF8 data, so no surprise things turn bad.

[ABSOLUTE]

9 hours ago, Malkey said:

Try these two one liners MsgBox's, and, your example script of post #1 modified with comments..

Not working  First and Second message boxes shows:

<Certificate>....many text here....<IssueDate

</Certificate>....many text here....<IssueDate

Third message box shows:

SerialNumber/>...many text here...<IssueDate

 

6 hours ago, jchd said:

The file contains invalid UTF8 data, so no surprise things turn bad.

The file contains valid data, but in the Cyrillic

 

19 hours ago, Jos said:

I guess you are confused and expect the StringReplace() function, which remove the @cr & @lf characters to be rewritten to the file.... right?
You then read the file again, which of course will retrieve the same text as the first read operation as you did not write the information back.
That is why i mentioned to look at the example as that does what you are possibly looking for.
So ... what is it you want to accomplish here?

Jos 

Ouch..Really, this is so.

I will try harder. Thanks!

[jchd]

7 hours ago, ABSOLUTE said:

The file contains valid data, but in the Cyrillic

Look at the file header of this XML file: it (correctly) declares UTF8 encoding but many strings are invalid UTF8 and probably use instead some cyrillic codepage.
At the end of the day the document is inconsistent as it is.