| |
| |
|
GDL | Hallöle
Yo sehe el Wald antes lauter Bäumen no mehr.
Zum Verständnis Yo una Bild angehängt.
¿Por qué va hier match$ no ?
KompilierenMarcaSeparaciónDim 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# 1
Liegt lo a el Befehlen blockread y char el name$ irgendwie con zusätzlichen Steuerzeichen beschreiben?
Ein nachvollziehbares Ejemplo:
KompilierenMarcaSeparacióndeclarar name$,dzeile$,datei#,x%,y%
dim datei#,10000
assign #1,"test.str"
rewrite #1
imprimir #1,"test;C;100;0"
imprimir #1,"test1;C;100;0"
imprimir #1,"test2;C;100;0"
close #1
dbcreate "test.str" > "test.dbf"
Asignar #1,"test.dbf"
OpenRW #1
x%=@BlockRead(#1,datei#,0,10000)
Cerrar #1
name$=char$(datei#,0,x%)'DBF-Expediente es en name$
imprimir name$
x%=1
imprimir ""
imprimir ""
assign #1,"test.str"
reset #1
Sinestar encargado @EOF(#1)'Felder ermitteln
Entrada #1,dzeile$
y%=InStr(";",dzeile$,0)-1
dzeile$=left$(dzeile$,y%)
dzeile$=upper$(dzeile$)
imprimir dzeile$
If Match$(dzeile$,name$)=dzeile$
beep
endif
EndWhile
close #1
assign #1,"test.str"
erase #1
close #1
assign #1,"test.dbf"
erase #1
close #1
waitinput
disponer datei#
Grüßle
Georg |
 |
| |
| |
| |
|
|
GDL | | una nachvollziehbares Ejemplo oben editiert. |
|
| |
| |
| |
|
|
GDL | Hallöle,
habe lo ahora sin match$ para mich gelöst.
KompilierenMarcaSeparacióndeclare 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/disponer/'>disponer datei#
Grüßle
Georg |
|
| |
| |
| |
|
|
 | ¡Hola Georg,
algunos Fehler.
Instr dritter Parámetro con usted Valor 0, así kann instr no - minimum Valor 1 oder dritten Param en Deinem Fall igual weglassen.
Fehlerzeile:
y%=InStr(";",dzeile$,0)-1
So gehts:
y%=InStr(";",dzeile$,1)-1
oder:
y%=InStr(";",dzeile$)-1
Zudem:
El Función Match scheint no Binärsicher a ser.
El Ayuda dazu meint:
T: String - Texto, en el después de el Suchmuster gesucht se |
|
| |
| |
| |
|
|
GDL | Hallöle,
vielen Dank. Also bleibe Yo en meiner umständlichen aber gehenden Versión.
Grüßle
Georg |
|
| |
| |
| |
|
|
| Como hast Usted aber auch Instr Valor v. Dritten Param 0 ,
el kann no trabajo o. es falso. |
|
| |
| |
| |
|
(894)
Deutsch
English
Français
Español
Italia