XML Reader

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|83\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> File Access

Jayenkai	Created : 17 September 2007 Edited : 09 March 2008 System : Windows Language : Blitz XML Reader Yeay!
Read an XML File! Things not included 1. XML Error Checking. The XML could be severely messed up, and the thing could still read it! (or not, depending on how messed up it is!) 2. XML Tag Hunting. You can't go through, find all the tags, then search for the data in the tags. You'd have to know what tags are going to be there, first. ;Got some XML? ;Grab the whole XML file into a string, then use ; XML$( String$, "SectionName",Bit ) ; Where bit goes from 1 -> Number of duplicates.. ;To get internal stats, just keep plonking on section requests. ;The XML$() function can search through 6 iterations. ;You could tweak it if need be, but I doubt any XML files go that deep anyway! Repeat Read in$ If in$<>"EOF" Then XMLFile$=XMLFile$+Chr$(13)+Chr$(10)+in$ Until in$="EOF" DebugLog "------" DebugLog "The first entry of Test XML is" DebugLog XML$(XMLFile$,"TestXML",1) DebugLog "------" DebugLog "" DebugLog "------" DebugLog "The Second entry of Test XML is" DebugLog XML$(XMLFile$,"TestXML",2) DebugLog "------" DebugLog "" DebugLog "------" DebugLog "The Description of the first Test XML is" DebugLog XML$(XMLFile$,"TestXML",1,"Description") DebugLog "------" DebugLog "" DebugLog "------" DebugLog "The third Description of the third Test XML is" DebugLog XML$(XMLFile$,"TestXML",3,"Description",3) DebugLog "------" DebugLog "" DebugLog "------" DebugLog "The first Description the second description of the third Test XML (!) is" DebugLog XML$(XMLFile$,"TestXML",3,"Description",2,"Description",1) DebugLog "------" DebugLog "" ;Use Trim$() to get the neatest version without tabs and things. DebugLog XML$(XMLFile$,"TestXML",1,"JNK") Data "vs" DebugLog Trim$(XML$(XMLFile$,"TestXML",1,"JNK")) Print "Hang on.. Here's something fun!" Print "" ;Get Showcases using Shroom's TCP Code ; https://socoder.net/index.php?snippet=2798 site = OpenTCPStream("www.socoder.net",80) ; check if a connectiong could be made If Not site Then Print "Connection could not be established." WaitKey() End End If ; ask for contents of page WriteLine site,"GET https://socoder.net/SocoderFeed2.xml HTTP/1.0" WriteLine site,Chr$(10) ; write data to screen XMLFile$="" While Not Eof(site) XMLFile$=XMLFile$+ReadLine$(site) Wend ; close stream and end program CloseTCPStream site ActualXML$=XML$(XMLFile$,"?xml version="+Chr$(34)+"1.0"+Chr$(34)+"?",1,"rss version="+Chr$(34)+"2.0"+Chr$(34),1,"channel",1) Print "Latest Showcases at Socoder" For n=1 To 10 Print xml$(ActualXML$,"item",n,"title",1) Next Print "" Print "Yeah, alright, so it's a bit slow.." Print "But it works!!" Print ".. It's slow because it's going through the whole" Print "XML File each time." Print "" Print "If you want to speed it up, try cutting up the" Print "file into chunks, and then going through " Print "each chunk seperately." WaitKey() End Function XML$(DataIn$,DataChunk1$,Piece1=1,DataChunk2$="",Piece2=1,DataChunk3$="",Piece3=1,DataChunk4$="",Piece4=1,DataChunk5$="",Piece5=1,DataChunk6$="",Piece6=1) ;This is the main function.. Use this! DataOut$="" UseMe$=DataIn$ Piece=1 Repeat fin=0 If piece=1 And DataChunk1$<>"" Then DC$=DataChunk1$:Skip=(Piece1-1) If piece=2 And DataChunk2$<>"" Then DC$=DataChunk2$:Skip=(Piece2-1) If piece=3 And DataChunk3$<>"" Then DC$=DataChunk3$:Skip=(Piece3-1) If piece=4 And DataChunk4$<>"" Then DC$=DataChunk4$:Skip=(Piece4-1) If piece=5 And DataChunk5$<>"" Then DC$=DataChunk5$:Skip=(Piece5-1) If piece=6 And DataChunk6$<>"" Then DC$=DataChunk6$:Skip=(Piece6-1) If piece=2 And DataChunk2$="" Then fin=1 If piece=3 And DataChunk3$="" Then fin=1 If piece=4 And DataChunk4$="" Then fin=1 If piece=5 And DataChunk5$="" Then fin=1 If piece=6 And DataChunk6$="" Then fin=1 If piece=7 Then fin=1 If fin=0 Then DataOut$=GetXMLChunk$(UseMe$,DC$,Skip) UseMe$=DataOut$ piece=piece+1 Until fin=1 If dataOut$="" Then Dataout$="N/A" Return DataOut$ End Function Function GetXMLChunk$(DataIn$,DC$,Skip) ;This grabs a chunk from a chunk! It's used by the XML$ Function. reiterations=0 Output$="" IncludeThis=0 skips=0 For en=1 To Len(DataIn$) If Mid$(DataIn$,en,1)="<" inny=1 ;Find end of Brackety bit BBit$="" For em=1 To 64 If Mid$(DataIn$,en+em,1)=">" Then en=en+(em+1):em=1000 If em<64 Then BBit$=BBit$+Mid$(DataIn$,en+em,1) Next If Left$(BBit$,1)="/" Or Left$(BBit$,1)="\" Then inny=0 If inny=1 Then reiterations=reiterations+1 If inny=0 Then reiterations=reiterations-1 If reiterations=0 And Upper$(BBit$)="/"+Upper$(DC$) And skips=skip+1 Then IncludeThis=0:en=Len(DataIn$) If IncludeThis=1 Then Output$=Output$+"<"+BBit$+">" If reiterations=1 And Upper$(BBit$)=Upper$(DC$) And skips=skip Then IncludeThis=1:skips=skips+1 If reiterations=1 And Upper$(BBit$)=Upper$(DC$) And skips<skip Then skips=skips+1 EndIf If includethis=1 Then Output$=Output$+Mid$(DataIn$,en,1) Next Return output$ End Function Data "<TestXML>" Data " <Test Piece> This is a test piece of data </Test Piece>" Data " <Info> This is a test piece of info </Test Info>" Data " <JNK> Use Trim$() to trim the garbage. </JNK>" Data " <Description>" Data " This is a test description" Data " It exists over a number of lines!" Data " </Description>" Data "</TestXML>" Data "" Data "<TestXML>" Data " <Test Piece> This is a 2nd test piece of data </Test Piece>" Data " <Info> This is a 2nd test piece of info </Test Info>" Data " <Description>" Data " This is a 2nd test description" Data " It, too, exists over a number of lines!" Data " </Description>" Data "</TestXML>" Data "" Data "<TestXML>" Data " <Test Piece> This is a 3rd test piece of data </Test Piece>" Data " <Info> This is a 3rd test piece of info </Test Info>" Data " <Description>" Data " This is the 1st of 3 test descriptions in the 3rd test piece" Data " </Description>" Data " <Description>" Data " This is the 2nd of 3 test descriptions in the 3rd test piece" Data " <Description>" Data " This description is an internal description." Data " It shouldn't (!) show up as the 3rd, since it's inside the 2nd!" Data " </Description>" Data " </Description>" Data " <Description>" Data " This is actually the 3rd of 3 test descriptions in the 3rd test piece" Data " </Description>" Data "</TestXML>" Data "EOF" --v

Comments
Monday, 17 September 2007, 06:26
spinal	Looks very useful!
Friday, 14 December 2007, 16:10
dna	You are good Jay Do you only program in BB2D?
Friday, 14 December 2007, 16:15
Jayenkai	I code quicker in Blitz because I'm more comfortable with it. I can code in others, but I choose to stick with Blitz, because I'd rather make a working game within a month, than spend 6 months trying to get the basic engine up and running.

Comments