XProfan

Dim datei#,10000
Assign #1,gettext$(dbfedit1&)
OpenRW #1
x%=@BlockRead(#1,datei#,0,10000)
Close #1
name$=char$(datei#,0,x%)'DBF-Datei steht in name$
dispose datei#
x%=1
print name$
print ""
print ""
assign #1,gettext$(stringedit1&)
reset #1

WhileNot @EOF(#1)'Felder ermitteln

    Input #1,dzeile$
    y%=InStr(";",dzeile$,0)-1
    dzeile$=left$(dzeile$,y%)
    dzeile$=upper$(dzeile$)
    print dzeile$

    If Match$(dzeile$,name$)=dzeile$

        cls

    endif

EndWhile

clos

declare nom$,dzeile$,fichier#,x%,y%
dim fichier#,10000
assign #1,"test.str"
rewrite #1
imprimer #1,"test;C;100;0"
imprimer #1,"test1;C;100;0"
imprimer #1,"test2;C;100;0"
close #1
dbcreate "test.str" > "test.dbf"
Assign #1,"test.dbf"
OpenRW #1
x%=@BlockRead(#1,fichier#,0,10000)
Fermer #1
name$=char$(fichier#,0,x%)'DBF-Dossier steht dans nom$
imprimer nom$
x%=1
imprimer »
imprimer »
assign #1,"test.str"
reset #1

WhileNot @EOF(#1)'Felder ermitteln

    Contribution #1,dzeile$
    y%=InStr(";",dzeile$,0)-1
    dzeile$=left$(dzeile$,y%)
    dzeile$=upper$(dzeile$)
    imprimer dzeile$

    Si Match$(dzeile$,nom$)=dzeile$

        beep

    endif

Endwhile

close #1
assign #1,"test.str"
erase #1
close #1
assign #1,"test.dbf"
erase #1
close #1
waitinput
dispose fichier#

declare name$,dzeile$,datei#,x%,y%,ansonsten$,lang%,n$,such%,a%
dim datei#,10000
assign #1,"test.str"
rewrite #1
print #1,"test;C;100;0"
print #1,"test1;C;100;0"
print #1,"test2;C;100;0"
close #1
dbcreate "test.str" > "test.dbf"
Assign #1,"test.dbf"
OpenRW #1
x%=@BlockRead(#1,datei#,0,10000)
Close #1
name$=char$(datei#,0,x%)'DBF-Datei steht in name$
print name$
x%=1
print ""
print ""
assign #1,"test.str"
reset #1
such%=len(name$)

WhileNot @EOF(#1)'Felder ermitteln

    Input #1,dzeile$
    y%=InStr(";",dzeile$,0)-1
    dzeile$=left$(dzeile$,y%)
    dzeile$=upper$(dzeile$)
    print dzeile$

    If Match$(dzeile$,name$)=dzeile$

        print "Gefunden"

    else

        print "geht nicht"

    endif

    'diese Befehle gehen
    ansonsten$=translate$(name$,dzeile$,"XXXXXXX")
    print ansonsten$
    print "________________________"
    'dies hier geht
    lang%=len(dzeile$)
    clear a%

    whilenot a% > such%

        n$=mid$(name$,a%,lang%)
        case n$=dzeile$:print "mit diesem Weg gefunden"
        inc a%

    wend

EndWhile

close #1
assign #1,"test.str"
erase #1
close #1
assign #1,"test.dbf"
erase #1
close #1
waitinput
/../funktionsreferenzen/XProfan/dispose/'>dispose fichier#