Help Please ?

[skaboy71]

I am trying to nest while statements but I keep getting an error...I have 2 While's and 2 WEnd's ..... What am I doing wrong ???

$rname = @MON&"-"&@MDAY&"-"&@YEAR&"_rep.txt"

$report = FileOpen  ( "C:\dreports\"&$rname, 1 )

$log = FileOpen ( "C:\logs\PMI-NTS-BDC02_app.txt", 0 )
If $log = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

While 1
    $line = FileReadLine($log)
    If @error = -1 Then ExitLoop
    $done = 0
    $linepts = StringSplit($line, " ")
     While 1
     $compline = FileReadLine($report)
     If @error = -1 Then ExitLoop
     $clinepts = StringSplit($compline, "   ")
     If $linepts[1] == $clinepts[1] AND $linepts[9] == $clinepts[9] Then
     $done = 1
     EndIf
     WEnd
    If $done = 0 Then
    FileWriteLine($report,$line)    
WEnd

FileClose($file)

Edited February 27, 2004 by skaboy71

[Jos]

you are missing an endif

$rname = @MON&"-"&@MDAY&"-"&@YEAR&"_rep.txt"

$report = FileOpen( "C:\dreports\"&$rname, 1 )

$log = FileOpen( "C:\logs\PMI-NTS-BDC02_app.txt", 0 )

If $log = -1 Then

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

   Exit

EndIf

While 1

   $line = FileReadLine($log)

   If @error = -1 Then ExitLoop

   $done = 0

   $linepts = StringSplit($line, " ")

   While 1

      $compline = FileReadLine($report)

      If @error = -1 Then ExitLoop

      $clinepts = StringSplit($compline, " ")

      If $linepts[1]== $clinepts[1] AND $linepts[9] == $clinepts[9] Then

         $done = 1

      EndIf

   WEnd

   If $done = 0 Then

      FileWriteLine($report,$line)

   EndIF

WEnd

  

FileClose($file)

Edited February 27, 2004 by JdeB

[skaboy71]

Dohhhhh !!!! Thanks !!

I feeel Duuuuuumb :-)

[GEOSoft]

for that one you could also just use

If $done = 0 Then FileWriteLine($report,$line)

Then no EndIf is required It cuts down the line count by 1

[Jos]

no.. its just a matter of making it visable by formatting your source.... ( a bit of promo here for the Tidy script )

this was the output after formatting it:

$rname = @MON&"-"&@MDAY&"-"&@YEAR&"_rep.txt"

$report = FileOpen( "C:\dreports\"&$rname, 1 )

$log = FileOpen( "C:\logs\PMI-NTS-BDC02_app.txt", 0 )
If $log = -1 Then
   MsgBox(0, "Error", "Unable to open file.")
   Exit
EndIf

While 1
   $line = FileReadLine($log)
   If @error = -1 Then ExitLoop
   $done = 0
   $linepts = StringSplit($line, " ")
   While 1
      $compline = FileReadLine($report)
      If @error = -1 Then ExitLoop
      $clinepts = StringSplit($compline, " ")
      If $linepts[1] == $clinepts[1] And $linepts[9] == $clinepts[9] Then
         $done = 1
      EndIf
   Wend
   If $done = 0 Then
      FileWriteLine($report,$line)
   Wend
   
   FileClose($file)

Edited February 27, 2004 by JdeB

[CyberSlug]

Admittedly, the error message is misleading.

Line 27  (File "D:\myTmp.txt"):

WEnd

Error: "Wend" statement with no matching "While" statement.