Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / Function to load CShop entities into DBPro

Author

Message

GCEclipse

Years of Service

User Offline

Joined: 23rd Sep 2002

Location: United Kingdom

Posted: 9th Mar 2003 20:50

Link

Does exactly what it says on the tin...

+ Code Snippet

Rem This is required at the start of your program
dim EntityData$(100,8)
dim noentities(1)



Rem This is the function
function LoadEntities(FName$)
open to read 1,FName$
Pos1=1: Pos2=1
while file end(1)=0
read string 1,a$
if a$"}"
if a$"{"
EntityData$(pos1,pos2)=a$
Pos2=Pos2+1
endif
else
EntityData$(pos1,0)=str$(pos2-1)
pos2=1
pos1=pos1+1
endif
endwhile
close file 1
NoEntities(1)=Pos1
endfunction

GC
http://www.eclipsedevelopment.co.uk/

Profile PM Email Website

Server time is: 2024-04-20 03:47:50
Your offset time is: 2024-04-20 03:47:50