Skip to content
⌘ NSIS Forum Archive

loop problem.

5 posts

webtubbies#

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> 
If somone have an idea...

Here's my code:
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#
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#
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#
Use w not a for the write mode and put another ClearErrors before loop:.

That should narrow down some more.

Stu