StringReplace in html file

[autoitxp]

hi how to StringReplace in html file help needed im trying this

$file = FileOpen("c:\_windows.html", 1)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

$chars = FileRead($file, 99999999)
MsgBox(0, "Char read:", $chars)
$var = StringReplace($chars, "{RSHIFT}", "")
MsgBox(0, "Char read:", $var)
filewrite($file , $var)

FileClose($file)

Edited December 19, 2007 by autoitxp

[Jex]

#include <IE.au3>

$oIE = _IECreate("c:\_windows.html", 0, 0)
$Source = _IEDocReadHTML($oIE)
$Replace = StringReplace($Source, "Test123", "...")
FileWrite("Test.txt", $Replace)
_IEQuit($oIE)

Like that get source and replace strings in source ?

Edited December 19, 2007 by Jex

[GEOSoft]

hi how to StringReplace in html file help needed im trying this

$file = FileOpen("c:\_windows.html", 1)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

$chars = FileRead($file, 99999999)
MsgBox(0, "Char read:", $chars)
$var = StringReplace($chars, "{RSHIFT}", "")
MsgBox(0, "Char read:", $var)
filewrite($file , $var)

FileClose($file)

You can't write to a file that's open in Read mode. Use this to test your proceedure then you can make changes without overwriting the original file.

$file = "c:\_windows.html"
If Not FileExists$file) Then
    MsgBox(0, "Error", "Unable to locate file.")
    Exit
EndIf

$chars = FileRead($file)
;MsgBox(0, "Char read:", $chars)
$Chars = StringReplace($chars, "{RSHIFT}", "")
;MsgBox(0, "Char read:", $chars)
;$nFile = FileOpen($File, 2)
$nFile = FileOpen(@DesktopDir & "\Test.txt", 2)
filewrite($,nfile , $chars)
FileClose($nfile)
ShellExecute(@DesktopDir & "\Test.txt")

Edit: I should have added this;

IF you use the $var = FileOpen($File, 1) Method then you MUST FileClose($var) it and THEN $Var = FileOpen($File, 2) followed by another FileClose($Var) AFTER you have completed all of the FileWrite or FileWriteLine() operations.

You might also want to take a look at using _FileReadToArray() or StringRegExpReplace().

Edited December 19, 2007 by GEOSoft

[autoitxp]

thanks

one more trouble

like above code is replacing

{RSHIFT}

how i can avoid {RSHIT} from this type of string in page {RSHIT}MYTEXT

[Jos]

thanks

one more trouble

like above code is replacing

{RSHIFT}

how i can avoid {RSHIT} from this type of string in page {RSHIT}MYTEXT

New key ?

[autoitxp]

New key?

What ?

[DW1]

LOL LOL LOL,

I wish I had a couple shit keys too

I am not sure what you are asking... it looks like you are already removing your RSHIFT's

[GaryFrost]

Shitty keyboard?

[autoitxp]

Shitty keyboard? lol lol aha i got your point

these keys come from database entry and saved in file files some of text need to be trimmed

hehe!

[PsaltyDS]

thanks

one more trouble

like above code is replacing

{RSHIFT}

how i can avoid {RSHIT} from this type of string in page {RSHIT}MYTEXT

Aside from the Freudian typo indicating a troubled potty training when you were a child...

You can have a RegExp match a pattern only when it is NOT followed by another pattern. To replace all instances of "{RSHIFT}", but only if they are NOT followed by "MYTEXT" would be:

$sString = "{RSHIFT}Dingle{RSHIFT}Berry{RSHIFT}MYTEXT{RSHIFT} {RSHIFT}for{RSHIFT} {RSHIFT}you."
$sResult = StringRegExpReplace($sString, "\{RSHIFT\}(?!MYTEXT)", "")
MsgBox(64, "@error = " & @error, $sResult)

I'm having such geeky fun learning RegExp stuff...

Edited December 19, 2007 by PsaltyDS

[GEOSoft]

Since it's an html file I'm wondering about the whole {RSHIFT} thing anyway. I don't see where that is likely to be used in HTML code. If you want , you can pm me a copy of the file you're trying to read and I'll have a look at that.