for?

beau <[email protected]> Sun, 20 May 2007 15:25:51 -0500
Newsgroups	gmane.comp.windows.autoit.user
Message-ID	<[email protected]>
hi All i need some help  with a for loop?
were should i put for $c = 1 to 100 an the next
i went to use $c in my mod statement 
thanks for any help

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"
    For $c = 1 to 100
  If Mod($c, 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
Next

  ;$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