Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

libxml-Beispiel aus examples-Ordner

Uploader:RedakteurMao
Datum/Zeit:11.02.2009 15:46:23

#include once "libxml/xmlreader.bi"

#define NULL 0

'':::::
sub processNode( byval reader as xmlTextReaderPtr )
    dim constname as zstring ptr, value as zstring ptr

    constname = xmlTextReaderConstName( reader )

    value = xmlTextReaderConstValue( reader )

    print xmlTextReaderDepth( reader ); xmlTextReaderNodeType( reader ); _
          " "; *constname; _
          xmlTextReaderIsEmptyElement(reader); xmlTextReaderHasValue( reader );

    print *value
end sub

'':::::
sub streamFile( byval filename as string )
    dim reader as xmlTextReaderPtr
    dim ret as integer

    reader = xmlReaderForFile( filename, NULL, 0 )

    if (reader <> NULL) then
        ret = xmlTextReaderRead( reader )
        do while( ret = 1 )
            processNode( reader )
            ret = xmlTextReaderRead( reader )
        loop

        xmlFreeTextReader( reader )

        if( ret <> 0 ) then
            print "failed to parse: "; filename
        end if
    else
        print "Unable to open "; filename
    end if

end sub