how can i fix this

n9mfk9 · May 20, 2007

Hi, I need some help

Here is my code

Dim $ColorToggle = 0 ; Boolean toggle for Red/Blue TD colors
if Not FileExists(@ScriptDir & "/N9mfk_*.HTML") Then
    MsgBox(0,"There are no Files",@ScriptDir & "/n9mfk_*.html")
    Exit
    EndIf
IF Not FileExists(@ScriptDir & "\input")Then
DirCreate (@ScriptDir & "\input")
EndIf
IF Not FileExists(@ScriptDir & "\output")Then
DirCreate (@ScriptDir & "\output")
EndIf
If FileExists(@ScriptDir & "/N9mfk_*.HTML") Then
FileCopy(@ScriptDir & "/n9mfk_*.html",@ScriptDir & "\input",1)
EndIf
$size = DirGetSize(@ScriptDir &"/input/",1)
$number = $size[1]
For $count = 1 To $number
$FileIn = @ScriptDir & "\input\n9mfk_"&$count&".html"
$FileOut = @ScriptDir & "\output\n9mfk_"&$count&".html"
$FileInData = FileRead($FileIn, FileGetSize($FileIn))
$avSplitData = StringSplit($FileInData, "<TD", 1)

;MsgBox(0,"",$FileInData)
;$FileInData = StringReplace($FileinData, "background","background=")
$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)
  ;MsgBox(0,"",$n)
  $graphic ='"newpageback.gif"'
  ;$back = "<body background="&$graphic& " bgcolor"
  If Mod($n, 2) = 0 Then ; If even numbered TD, change the color
            If $ColorToggle Then
                $color = ' bgcolor="red"'
            Else
                $color = ' bgcolor="blue"'
            EndIf
            $ColorToggle = Not $ColorToggle
        EndIf


  ;$color =' bgcolor="red"'
  $FileOutData = StringReplace($FileOutData, "<body background bgcolor","<body background="&$graphic& " bgcolor")
  $FileOutData &= "<TD" & $color & StringReplace($avSplitData[$n], "0", "Ø") & $EndText
  $FileOutData = StringReplace($FileOutData, "with","of " &$number &" with")
Next
$hFileOut = FileOpen($FileOut, 2)
FileWrite($hFileOut, $FileOutData)
FileClose($hFileOut)
FileClose($FileIn)
FileClose($FileOut)
Run('Notepad.exe "' & $FileOut & '"')
next

here is my input file

<html>

<head>

<title>N9MFK Logbook</title>

</head>

N9MFK Logbook           Created on: 5/19/2007

<font face="Arial" size="2"

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

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

<TR>

<TD ALIGN=center>CALL</TD><TD ALIGN=center>PFX</TD><TD ALIGN=center>BAND</TD><TD ALIGN=center>MODE</TD><TD ALIGN=center>RCVD</TD><TD ALIGN=center>SENT</TD><TD ALIGN=center>QSL-R</TD><TD ALIGN=center>QSL-S</TD><TD ALIGN=center>COUNTRY</TD><TD ALIGN=center>COUNTY</TD></TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

<TD ALIGN=center>RN6BY </TD><TD ALIGN=center>RN6 </TD><TD ALIGN=center>10M </TD><TD ALIGN=center>SSB </TD><TD ALIGN=center>59 </TD><TD ALIGN=center>57 </TD><TD ALIGN=center>Y </TD><TD ALIGN=center>Y </TD><TD ALIGN=center>European Russia </TD><TD ALIGN=center>&nbsp </TD>

</TR>

<TR>

</TR>

<TR>

<TD ALIGN=center>ES1QD </TD><TD ALIGN=center>ES1 </TD><TD ALIGN=center>10M </TD><TD ALIGN=center>SSB </TD><TD ALIGN=center>59 </TD><TD ALIGN=center>59 </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>Estonia </TD><TD ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD ALIGN=center>F5NSB </TD><TD ALIGN=center>F5 </TD><TD ALIGN=center>10M </TD><TD ALIGN=center>SSB </TD><TD ALIGN=center>57 </TD><TD ALIGN=center>55 </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>France </TD><TD ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD ALIGN=center>IK6BRJ </TD><TD ALIGN=center>IK6 </TD><TD ALIGN=center>10M </TD><TD ALIGN=center>SSB </TD><TD ALIGN=center>57 </TD><TD ALIGN=center>57 </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>Italy </TD><TD ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD ALIGN=center>S58N </TD><TD ALIGN=center>S58 </TD><TD ALIGN=center>10M </TD><TD ALIGN=center>SSB </TD><TD ALIGN=center>57 </TD><TD ALIGN=center>59 </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>Slovenia </TD><TD ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD ALIGN=center>4X4BO </TD><TD ALIGN=center>4X4 </TD><TD ALIGN=center>10M </TD><TD ALIGN=center>SSB </TD><TD ALIGN=center>57 </TD><TD ALIGN=center>57 </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>&nbsp </TD><TD ALIGN=center>Israel </TD><TD ALIGN=center>&nbsp </TD>

</TR>

</TABLE>

Page Number: 1 with 10 QSOs Listed.

</body>

</html>

here the output form my script

<html>

<head>

<title>N9MFK Logbook</title>

</head>

N9MFK Logbook           Created on: 5/19/2007

<font face="Arial" size="2"

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

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

<TR>

<TD bgcolor="blue" ALIGN=center>CALL</TD><TD bgcolor="blue" ALIGN=center>PFX</TD><TD bgcolor="red" ALIGN=center>BAND</TD><TD bgcolor="red" ALIGN=center>MODE</TD><TD bgcolor="blue" ALIGN=center>RCVD</TD><TD bgcolor="blue" ALIGN=center>SENT</TD><TD bgcolor="red" ALIGN=center>QSL-R</TD><TD bgcolor="red" ALIGN=center>QSL-S</TD><TD bgcolor="blue" ALIGN=center>COUNTRY</TD><TD bgcolor="blue" ALIGN=center>COUNTY</TD></TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

<TD bgcolor="blue" ALIGN=center>RN6BY </TD><TD bgcolor="blue" ALIGN=center>RN6 </TD><TD bgcolor="red" ALIGN=center>1ØM </TD><TD bgcolor="red" ALIGN=center>SSB </TD><TD bgcolor="blue" ALIGN=center>59 </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="red" ALIGN=center>Y </TD><TD bgcolor="red" ALIGN=center>Y </TD><TD bgcolor="blue" ALIGN=center>European Russia </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD>

</TR>

<TR>

</TR>

<TR>

<TD bgcolor="blue" ALIGN=center>ES1QD </TD><TD bgcolor="blue" ALIGN=center>ES1 </TD><TD bgcolor="red" ALIGN=center>1ØM </TD><TD bgcolor="red" ALIGN=center>SSB </TD><TD bgcolor="blue" ALIGN=center>59 </TD><TD bgcolor="blue" ALIGN=center>59 </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>Estonia </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD bgcolor="red" ALIGN=center>F5NSB </TD><TD bgcolor="red" ALIGN=center>F5 </TD><TD bgcolor="blue" ALIGN=center>1ØM </TD><TD bgcolor="blue" ALIGN=center>SSB </TD><TD bgcolor="red" ALIGN=center>57 </TD><TD bgcolor="red" ALIGN=center>55 </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="red" ALIGN=center>France </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD bgcolor="blue" ALIGN=center>IK6BRJ </TD><TD bgcolor="blue" ALIGN=center>IK6 </TD><TD bgcolor="red" ALIGN=center>1ØM </TD><TD bgcolor="red" ALIGN=center>SSB </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>Italy </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD bgcolor="red" ALIGN=center>S58N </TD><TD bgcolor="red" ALIGN=center>S58 </TD><TD bgcolor="blue" ALIGN=center>1ØM </TD><TD bgcolor="blue" ALIGN=center>SSB </TD><TD bgcolor="red" ALIGN=center>57 </TD><TD bgcolor="red" ALIGN=center>59 </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="red" ALIGN=center>Slovenia </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD bgcolor="blue" ALIGN=center>4X4BO </TD><TD bgcolor="blue" ALIGN=center>4X4 </TD><TD bgcolor="red" ALIGN=center>1ØM </TD><TD bgcolor="red" ALIGN=center>SSB </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>Israel </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD>

</TR>

</TABLE>

Page Number: 1 of 18 with 10 QSOs Listed.

</body>

</html>

every thing is ok in the output except the the bgcolor changes 4 time in one row

I do went it to change every other row but I wet it to change to hole row at once

it like $n changes in mid stream

this is what i went how can i fix my code to get this thanks

<html>

<head>

<title>N9MFK Logbook</title>

</head>

N9MFK Logbook           Created on: 5/19/2007

<font face="Arial" size="2"

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

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

<TR>

<TD bgcolor="blue" ALIGN=center>CALL</TD><TD bgcolor="blue" ALIGN=center>PFX</TD><TD bgcolor="Blue" ALIGN=center>BAND</TD><TD bgcolor="blue" ALIGN=center>MODE</TD><TD bgcolor="blue" ALIGN=center>RCVD</TD><TD bgcolor="blue" ALIGN=center>SENT</TD><TD bgcolor="blue" ALIGN=center>QSL-R</TD><TD bgcolor="blue" ALIGN=center>QSL-S</TD><TD bgcolor="blue" ALIGN=center>COUNTRY</TD><TD bgcolor="blue" ALIGN=center>COUNTY</TD></TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

<TD bgcolor="blue" ALIGN=center>RN6BY </TD><TD bgcolor="blue" ALIGN=center>RN6 </TD><TD bgcolor="blue" ALIGN=center>1ØM </TD><TD bgcolor="blue" ALIGN=center>SSB </TD><TD bgcolor="blue" ALIGN=center>59 </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="blue" ALIGN=center>Y </TD><TD bgcolor="blue" ALIGN=center>Y </TD><TD bgcolor="blue" ALIGN=center>European Russia </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD>

</TR>

<TR>

</TR>

<TR>

<TD bgcolor="blue" ALIGN=center>ES1QD </TD><TD bgcolor="blue" ALIGN=center>ES1 </TD><TD bgcolor="blue" ALIGN=center>1ØM </TD><TD bgcolor="blue" ALIGN=center>SSB </TD><TD bgcolor="blue" ALIGN=center>59 </TD><TD bgcolor="blue" ALIGN=center>59 </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>Estonia </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD bgcolor="red" ALIGN=center>F5NSB </TD><TD bgcolor="red" ALIGN=center>F5 </TD><TD bgcolor="red" ALIGN=center>1ØM </TD><TD bgcolor="red" ALIGN=center>SSB </TD><TD bgcolor="red" ALIGN=center>57 </TD><TD bgcolor="red" ALIGN=center>55 </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="red" ALIGN=center>France </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD bgcolor="blue" ALIGN=center>IK6BRJ </TD><TD bgcolor="blue" ALIGN=center>IK6 </TD><TD bgcolor="blue" ALIGN=center>1ØM </TD><TD bgcolor="blue" ALIGN=center>SSB </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>Italy </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD bgcolor="red" ALIGN=center>S58N </TD><TD bgcolor="red" ALIGN=center>S58 </TD><TD bgcolor="red" ALIGN=center>1ØM </TD><TD bgcolor="red" ALIGN=center>SSB </TD><TD bgcolor="red" ALIGN=center>57 </TD><TD bgcolor="red" ALIGN=center>59 </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD><TD bgcolor="red" ALIGN=center>Slovenia </TD><TD bgcolor="red" ALIGN=center>&nbsp </TD>

</TR>

<TR>

<TD bgcolor="blue" ALIGN=center>4X4BO </TD><TD bgcolor="blue" ALIGN=center>4X4 </TD><TD bgcolor="blue" ALIGN=center>1ØM </TD><TD bgcolor="blue" ALIGN=center>SSB </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="blue" ALIGN=center>57 </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD><TD bgcolor="blue" ALIGN=center>Israel </TD><TD bgcolor="blue" ALIGN=center>&nbsp </TD>

</TR>

</TABLE>

Page Number: 1 of 18 with 10 QSOs Listed.

</body>

</html>

PsaltyDS · May 20, 2007

Delete all the instances of <TD bgcolor...> and put the background color flags on the <TR> tags instead.

For example change these lines:

im $ColorToggle = 0 ; Boolean toggle for Red/Blue TR colors
; ...

    $avSplitData = StringSplit($FileInData, "<TR", 1)
    ;MsgBox(0,"",$FileInData)
    ;$FileInData = StringReplace($FileinData, "background","background=")
    $FileOutData = $avSplitData[1]
    For $n = 2 To $avSplitData[0]
        $End = StringInStr($avSplitData[$n], "</TR>", 0, -1)
        $EndLen = StringLen($avSplitData[$n]) - $End + 1
        $EndText = StringRight($avSplitData[$n], $EndLen)
        $avSplitData[$n] = StringTrimRight($avSplitData[$n], $EndLen)
        ;MsgBox(0,"",$n)
        $graphic = '"newpageback.gif"'
        ;$back = "<body background="&$graphic& " bgcolor"
        If Mod($n, 2) = 0 Then ; If even numbered TR, change the color
            If $ColorToggle Then
                $color = ' bgcolor="red"'
            Else
                $color = ' bgcolor="blue"'
            EndIf
            $ColorToggle = Not $ColorToggle
        EndIf
        ;$color =' bgcolor="red"'
        $FileOutData = StringReplace($FileOutData, "<body background bgcolor", "<body background=" & $graphic & " bgcolor")
        $FileOutData &= "<TR" & $color & StringReplace($avSplitData[$n], "0", "Ø") & $EndText
        $FileOutData = StringReplace($FileOutData, "with", "of " & $number & " with")
    Next

As I said in the reply to the PM you sent me. Did it not work?

n9mfk9 · May 21, 2007

Delete all the instances of <TD bgcolor...> and put the background color flags on the <TR> tags instead.

For example change these lines:

im $ColorToggle = 0 ; Boolean toggle for Red/Blue TR colors
; ...

    $avSplitData = StringSplit($FileInData, "<TR", 1)
    ;MsgBox(0,"",$FileInData)
    ;$FileInData = StringReplace($FileinData, "background","background=")
    $FileOutData = $avSplitData[1]
    For $n = 2 To $avSplitData[0]
        $End = StringInStr($avSplitData[$n], "</TR>", 0, -1)
        $EndLen = StringLen($avSplitData[$n]) - $End + 1
        $EndText = StringRight($avSplitData[$n], $EndLen)
        $avSplitData[$n] = StringTrimRight($avSplitData[$n], $EndLen)
        ;MsgBox(0,"",$n)
        $graphic = '"newpageback.gif"'
        ;$back = "<body background="&$graphic& " bgcolor"
        If Mod($n, 2) = 0 Then ; If even numbered TR, chdange the color
            If $ColorToggle Then
                $color = ' bgcolor="red"'
            Else
                $color = ' bgcolor="blue"'
            EndIf
            $ColorToggle = Not $ColorToggle
        EndIf
        ;$color =' bgcolor="red"'
        $FileOutData = StringReplace($FileOutData, "<body background bgcolor", "<body background=" & $graphic & " bgcolor")
        $FileOutData &= "<TR" & $color & StringReplace($avSplitData[$n], "0", "Ø") & $EndText
        $FileOutData = StringReplace($FileOutData, "with", "of " & $number & " with")
    Next

As I said in the reply to the PM you sent me. Did it not work?

hi the last pm had no code

i had to remove the $colortiger lines it was color 2 by 2

n9mfk9 · May 21, 2007

hi psaltyds

how could i move up the td so it be on the line with the tr

thanks

<TR class="d0"><TD ALIGN=center>CALL</TD><TD ALIGN=center>PFX</TD><TD ALIGN=center>BAND</TD><TD ALIGN=center>MODE</TD><TD ALIGN=center>RCVD</TD><TD ALIGN=center>SENT</TD><TD ALIGN=center>QSL-R</TD><TD ALIGN=center>QSL-S</TD><TD ALIGN=center>COUNTRY</TD><TD ALIGN=center>COUNTY</TD></TR>

</TR>

PsaltyDS · May 21, 2007

I don't know what you're asking, and I'm not an HTML guru anyway. Hope you get an answer from someone who is...

hi psaltyds
how could i move up the td so it be on the line with the tr
thanks

n9mfk9 · May 21, 2007

I don't know what you're asking, and I'm not an HTML guru anyway. Hope you get an answer from someone who is...

I add this line to the code 
$avSplitData[$n] = StringStripCR($avSplitData[$n])

why wood tis add an line feed to the string

is there a command to strip a line feed thanks beau

PsaltyDS · May 21, 2007

I add this line to the code 
$avSplitData[$n] = StringStripCR($avSplitData[$n])

Sign In

how can i fix this

Recommended Posts

n9mfk9

Link to comment

Share on other sites

PsaltyDS

Link to comment

Share on other sites

n9mfk9

Link to comment

Share on other sites

n9mfk9

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