steing replace?

n9mfk9 · April 12, 2007

Hi Here is my code It works

my questionis about $line = StringReplace($line,"0","Ø") i wet to look between <TD an /TD for 0 but i only wet to change the the zero

$file = FileOpen("n9mfk.html", 0)

;Check if file opened for reading OK

If $file = -1 Then

MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf

; Read in lines of text until the EOF is reached

While 1

$line = FileReadLine($file)

If @error = -1 Then ExitLoop

$line = StringReplace($line,"0","Ø")

MsgBox(0, "Line read:", $line)

$file1 = FileOpen("test.html", 1)

; Check if file opened for writing OK

If $file = -1 Then

MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf

FileWriteLine($file1, $line)

Wend

FileClose($file)

Here is what is in n9mfk.html

n9mfk Logbook           Created on: 4/3/2007

<font face="Arial" size="3"

S-Type="REGENERATED" S-Format="%m/%d/%Y %H:%M"<!--webbot

bot="Timestamp" I-CheckSum="26219" endspan -->

s

<TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

thanks for all help

Zedna · April 12, 2007

If I understand you correct then look at _StringBetween()

PsaltyDS · April 12, 2007

You don't have to treat the file line-by-line.

$FileInData = FileRead($FileIn, FileGetSize($FileIn))

Read the whole file in as a single string and then parse that.

:shocked:

P.S. A clever StringRegExpReplace() would probably get the change done in one line of code too, but I'm not much help with RegExp stuff...

Edited April 12, 2007 by PsaltyDS

Zedna · April 12, 2007

P.S. A clever StringRegExpReplace() would probably get the change done in one line of code too, but I'm not much help with RegExp stuff...

Yes. My proposed _StringBetween() internally use StringRegExp

n9mfk9 · April 12, 2007

If I understand you correct then look at _StringBetween()

Zedna,

if i use string between how wood i use stringreplace with an Array

Thanks Beau

Zedna · April 12, 2007

Zedna,
if i use string between how wood i use stringreplace with an Array
Thanks Beau

Sorry.

Take a source of _StringBetween() and make your new UDF _StringBetweenReplace() --> instead of StringRegExp() use StringRegExpReplace()

PsaltyDS · April 12, 2007

I'm not smart enough for the fancy shmancy RegExp, just say'n it would work for those who were.

Had to brute force it with what I understood:

Saved the input file as TestIn.txt and ran this:

$FileIn = @ScriptDir & "\TestIn.txt"
$FileOut = @ScriptDir & "\TestOut.txt"
$FileInData = FileRead($FileIn, FileGetSize($FileIn))
$avSplitData = StringSplit($FileInData, "<TD", 1)
$FileOutData = $avSplitData[1]
For $n = 2 To $avSplitData[0]
    $End = StringInStr($avSplitData[$n], "</TD>", 0, -1)
    $EndLen = StringLen($avSplitData[$n]) - $End + 1
    $EndText = StringRight($avSplitData[$n], $EndLen)
    $avSplitData[$n] = StringTrimRight($avSplitData[$n], $EndLen)
    $FileOutData &= "<TD" & StringReplace($avSplitData[$n], "0", "Ø") & $EndText
Next
$hFileOut = FileOpen($FileOut, 2)
FileWrite($hFileOut, $FileOutData)
FileClose($hFileOut)
Run('Notepad.exe "' & $FileOut & '"')

:shocked:

n9mfk9 · April 12, 2007

PsaltyDS, thanks works great

I'm not smart enough for the fancy shmancy RegExp, just say'n it would work for those who were.

Had to brute force it with what I understood:

Saved the input file as TestIn.txt and ran this:

$FileIn = @ScriptDir & "\TestIn.txt"
$FileOut = @ScriptDir & "\TestOut.txt"
$FileInData = FileRead($FileIn, FileGetSize($FileIn))
$avSplitData = StringSplit($FileInData, "<TD", 1)
$FileOutData = $avSplitData[1]
For $n = 2 To $avSplitData[0]
    $End = StringInStr($avSplitData[$n], "</TD>", 0, -1)
    $EndLen = StringLen($avSplitData[$n]) - $End + 1
    $EndText = StringRight($avSplitData[$n], $EndLen)
    $avSplitData[$n] = StringTrimRight($avSplitData[$n], $EndLen)
    $FileOutData &= "<TD" & StringReplace($avSplitData[$n], "0", "Ø") & $EndText
Next
$hFileOut = FileOpen($FileOut, 2)
FileWrite($hFileOut, $FileOutData)
FileClose($hFileOut)
Run('Notepad.exe "' & $FileOut & '"')

:shocked:

PsaltyDS · April 12, 2007

PsaltyDS, thanks works great

You're welcome.

:shocked:

Sign In

steing replace?

Recommended Posts

n9mfk9

Link to comment

Share on other sites

Zedna

Link to comment

Share on other sites

PsaltyDS

Link to comment

Share on other sites

Zedna

Link to comment

Share on other sites

n9mfk9

Link to comment

Share on other sites

Zedna

Link to comment

Share on other sites

PsaltyDS

Link to comment

Share on other sites

n9mfk9

Link to comment

Share on other sites

PsaltyDS

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta