XProfan

 {$cleq}
//globale
strings myData.strings,
myData=myData.loadFromString(fgc("meineDatei"))
//fenster
cls
//testen
print "Zeilen:",sizeOf(myData)
print "1,1:",myData.getxy(1,1)
print "3,3:",myData.getxy(3,3)
print "1,5:",myData.getxy(1,5)
print "3,9:",myData.getxy(3,9)
print "4,9:",myData.getxy(4,9)
print "6,9:",myData.getxy(6,9)
waitInput
end

myData.loadFromString(string data){

    clear myData.strings
    strings	lns=explode(data,"q")
    long c=sizeOf(lns)
    case (c==0) : case (lns[0]=="") : return lns
    data=""

    whileLoop 0,c-1 {

        ifnot (loop mod 2) {

            data=data+lns[loop]

        } else {

            myData.strings[sizeOf(myData.strings)]=lns[loop]
            data=data+"q"+str$(int(sizeOf(myData.strings)))+"q"

        }

    }

    strings nData=explode(data,"
    ")
    return nData

}

myData.getxy(long x,y){

    y-
    string s=substr$(myData$[y],x,",")
    casenot mid$(s,1,1)=="q" : return s
    long n=val(del$(s,1,1))
    casenot n : return ""
    return myData.strings[n-1]

}

fgc(string fle){

    long fh=assign(fle)
    casenot fh : return ""
    reset #fh
    string s,_out

    whileNot eof(fh) {

        input #fh,s
        _out=_out+s
        casenot eof(fh) : _out=_out+"
        "

    }

    close fh
    assign fh,""
    return _out

}

DECLARE MYDATA.STRINGS$[]
DECLARE MYDATA$[]
MYDATA$[]=MYDATA.LOADFROMSTRING(FGC("meineDatei"))
CLS
PRINT "Zeilen:",SIZEOF(MYDATA$[])
PRINT "1,1:",MYDATA.GETXY(1,1)
PRINT "3,3:",MYDATA.GETXY(3,3)
PRINT "1,5:",MYDATA.GETXY(1,5)
PRINT "3,9:",MYDATA.GETXY(3,9)
PRINT "4,9:",MYDATA.GETXY(4,9)
PRINT "6,9:",MYDATA.GETXY(6,9)
WAITINPUT
end

proc MYDATA.LOADFROMSTRING

    PARAMETERS DATA$
    DECLARE LNS$[]
    CLEAR MYDATA.STRINGS$[]
    LNS$[]=EXPLODE(DATA$,"q")
    var C&=SIZEOF(LNS$[])

    IF (C&=0)

        IF (LNS$[0]=»)

            RETOUR LNS$[]

        ENDIF

    ENDIF

    DATA$=»

    WHILELOOP 0,C&-1

        IFNOT (&LOOP MOD 2)

            DATA$=DATA$+LNS$[&LOOP]

        ELSE

            MYDATA.STRINGS$[SIZEOF(MYDATA.STRINGS$[])]=LNS$[&LOOP]
            DATA$=DATA$+"q"+STR$(INT(SIZEOF(MYDATA.STRINGS$[])))+"q"

        ENDIF

    ENDWHILE

    DECLARE NDATA$[]
    NDATA$[]=EXPLODE(DATA$,"
    ")
    RETOUR NDATA$[]

endproc

proc MYDATA.GETXY

    PARAMETERS X&,Y&
    DEC Y&
    var S$=SUBSTR$(MYDATA$[Y&],X&,»)

    IFNOT MID $(S$,1,1)="q"

        RETOUR S$

    ENDIF

    var N&=VAL(DEL$(S$,1,1))

    IFNOT N&

        RETOUR »

    ENDIF

    RETOUR MYDATA.STRINGS$[N&-1]

endproc

proc FGC

    PARAMETERS FLE$
    var FH&=ASSIGN(FLE$)

    IFNOT FH&

        RETOUR »

    ENDIF

    RESET #FH&
    var S$=»
    var _OUT$=»

    WHILENOT EOF(FH&)

        INPUT #FH&,S$
        _OUT$=_OUT$+S$

        IFNOT EOF(FH&)

            _OUT$=_OUT$+"
            "

        ENDIF

    ENDWHILE

    CLOSE FH&
    ASSIGN FH&,»
    RETOUR _OUT$

endproc