| |
| |
|
 | ¡Hola Franco
Sí,Yo ya otra vez....
folgendes Yo lese de una LV en una más Archivos una
alles ok
el Archivos debería sólo kopiert voluntad si ellos no en el
zweiten LV ya disponible son,deshalb nutze Yo el funktion
searchtext()
sólo si nun en el ersten LV folgende Archivos(sólo z.B.)
1HALLO.txt
¡Hola 2.txt
¡Hola.txt
posición y yo todos sin Berücksichtigung el Groß/Kleinschreibung en el otro LV kopieren voluntad
(se así ser,porque Yo kopiere de verschiedenen Dirs)
entonces bekomm Yo sólo todos 3 Archivos si yo el Suchstring
en Anführungszeichen poner.
Wenn dies así correcto es,könntest Usted el tal vez para así Personas como mich Por favor, en el Ayuda con aufnehmen.
Noch qué...lo voluntad todos Cuerdas en Großbuchstaben umgewandelt
salvo lo es una Zahl davor oder el String es en Anführungszeichen
1test.txt restos así
test.txt se umgewandelt
y aquí una Auszug de el Ver código fuente:
GetItemText(listview&,itemtexts#,0,Zähler&)
texto$=String$(itemtexts#,1)
z&=Byte(itemtexts#,0)
if z&= 160
GetFullPathName(addr(texto$),512,itemtexts#,nurso#)
t1$=String$(itemtexts#,0)
let filename$=GetFileName(t1)
let Pathfilename$=GetFilePath(t1$)
así gehts no
let such$=filename$
así es
let such$=@chr$(34)+filename$+@chr$(34)
y&=SearchText(listview2&,0,GetLines(listview2&),0,addr(such$),0,addr(x&))
let such$=@chr$(34)+ Pathfilename$ +@chr$(34)
y2&=SearchText(listview2&,0,GetLines(listview2&),0,addr(such$),0,addr(x&))
if @or(@equ(y&,-1),@equ(y2&,-1))
sólo si no disponible rein así
SetItem listview2&,filename$,Pathfilename$
endif
endif
Saludo Klaus |
|
| |
| |
| |
|
|
| Hiiilfeee !!!
es veces otra vez Quatsch Yo geschrieben habe...
Logisch..si yo el String en Anführungszeichen poner
kann el Función el sí no encontrar como él no es igual es.
Damit wäre zwar el Prob gelöst con el Namensgleichheiten
en el Suchstring...
...aber nun bekomm Yo natürlich el Cuerdas siempre otra vez en el
LV rein porque ellos sí no es igual son
Thank you for Help
una mittlerweile verzweifelter Klaus |
|
| |
| |
| |
|
|
| ok,Yo habs kapiert
así funktioniert lo
let such$=filename$
y&=SearchText(listview2&,0,GetLines(listview2&),0,addr(such$),6,addr(x&))
if @equ(y&,-1)
sólo si no disponible rein así
SetItem listview2&,filename$,Pathfilename$
endif
una vez una Denkfehler beim suchen..porque lo genügt el erste Spalte
zweitens una Fehler meinersteits en el Parametern
pero se trozdem siempre todavía alles en Großbuchstaben umgewandelt salvo el erste String ??
Aunque no wichtig...wollt Yo sólo veces sagen
Saludo...otra vez algo glücklicher
Klaus |
|
| |
| |
| |
|
|
| ¡Hola,
alles en Großbuchstaben ? Also no yo en el...
Hab allerdings letzte Tage todavía una Bug en SearchText() gefunden y beseitigt, ahora findet él auch wirklich ALLE Vorkommen des Suchstrings.
Wegen el Großschreibung: Bitte siempre una abgespecktes funktionierendes Testprogramm enviar, en el el Fehler vorkommt. Nur así kann Yo auch nachvollziehen, testen y notfalls el Fehler beheben. Fühl dich frei !
Saludo, Franco |
|
| |
| |
| |
|
|
| ¡Hola Klaus,
una otro Sache:
Puedo dich momentan no por EMail erreichen. Mi Mails kommen con un Fehler zurück...
Saludo, Franco |
|
| |
| |
| |
|
(789)
Deutsch
English
Français
Español
Italia