XProfan

09/27/14 ▲

GDL

one nachvollziehbares example supra edited.

XProfan X3
Windows7 Xprofan 8,9,10 [...]

09/27/14 ▲

GDL

Hallöle,

have it now without match$ for me resolved.
Compile Mark Separation

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
/../Function-References/XProfan/dispose/'>dispose File#

Grüßle
Georg

XProfan X3
Windows7 Xprofan 8,9,10 [...]

09/28/14 ▲

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Hello Georg,

some Error.

Instr dritter Parameter with you worth 0, so can instr not - minimum worth 1 or third Param in Your drop same omit.

Fehlerzeile:

y%=InStr(";",dzeile$,0)-1

so GEHTS:

y%=InStr(";",dzeile$,1)-1

or:

y%=InStr(";",dzeile$)-1

additionally:

The function Match shining not Binärsicher To his.

The Help moreover means:

T: String - Text, in the to the Suchmuster sought becomes

10/18/14 ▲

GDL

Hallöle,

many Thanks. means stay I with of my umständlichen but gehenden Version.

Grüßle
Georg

XProfan X3
Windows7 Xprofan 8,9,10 [...]

10/19/14 ▲