webtubbies
17th September 2009 15:01 UTC

loop problem.
  Hi all,

I'va got a problem on a loop. the subject is to read lines of a text file A and write these lines in an xml file.

the FileRead Function reads all the lines (confirmed by DetailPrint). I think the line are written in the xml.
But the result is: my XML file only contains

<Main></Main> 

ClearErrors

    FileOpen$4 $InfoPDVTxt r

    FileOpen$0 $InfoPDVTemp a

   ;FileSeek $0 0 END    

    FileWrite$0 "<Main>$\r$\n"

   FileSeek $0 0 END

    

    loop:

       FileRead $4 $1

        DetailPrint "$1"

        IfErrors done

        FileSeek$0 0 END

        FileWrite$0 "$1"

        Goto loop

    

    done:

       FileWrite $0 "</Main>$\r$\n"

       ; Close the files

        FileClose$0

        FileClose$4 

>

MSG
17th September 2009 15:10 UTC

When I replace $InfoPDVTxt and $InfoPDVTemp with actual filenames, your code works just fine here. The problem must be elsewhere in your code.

Unrelated: I think you don't need the FileSeek $0 0 END lines.

webtubbies
17th September 2009 15:16 UTC

You are right. Sorry for that.
And thank you for the advice about FileSeek.

So i'm on my way to find the problem.

Afrow UK
18th September 2009 13:21 UTC

Use w not a for the write mode and put another ClearErrors before loop:.

That should narrow down some more.

Stu

webtubbies
18th September 2009 15:39 UTC

Ok,
That 's what I did juste before your answer. thank you