| |
| |
|
 | Hallo Frank
Ja,ich schon wieder....
folgendes ich lese von einem LV in ein anderes Dateien ein
alles ok
die Dateien sollen nur kopiert werden wenn sie nicht im
zweiten LV schon vorhanden sind,deshalb nutze ich die funktion
searchtext()
nur wenn nun im ersten LV folgende Dateien(nur z.B.)
1HALLO.txt
Hallo 2.txt
Hallo.txt
stehen und ich das ganze ohne Berücksichtigung der Groß/Kleinschreibung ins andere LV kopieren will
(soll so sein,denn ich kopiere aus verschiedenen Dirs)
dann bekomm ich nur alle 3 Dateien wenn ich den Suchstring
in Anführungszeichen setze.
Wenn dies so richtig ist,könntest Du das vielleicht für so Leute wie mich bitte in die Hilfe mit aufnehmen.
Noch was...es werden alle Strings in Großbuchstaben umgewandelt
ausser es steht eine Zahl davor oder der String steht in Anführungszeichen
1test.txt bleibt so
test.txt wird umgewandelt
und hier ein Auszug aus dem Quelltext:
GetItemText(listview&,itemtexts#,0,Zähler&)
text$=String$(itemtexts#,1)
z&=Byte(itemtexts#,0)
if z&= 160
GetFullPathName(addr(text$),512,itemtexts#,nurso#)
t1$=String$(itemtexts#,0)
let filename$=GetFileName(t1)
let Pathfilename$=GetFilePath(t1$)
so gehts es nicht
let such$=filename$
so geht 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))
nur wenn nicht vorhanden rein damit
SetItem listview2&,filename$,Pathfilename$
endif
endif
Gruß Klaus |
|
| |
| |
| |
|
|
| Hiiilfeee !!!
ist mal wieder Quatsch was ich geschrieben habe...
Logisch..wenn ich den String in Anführungszeichen setze
kann die Funktion den ja nicht finden da er nicht gleich ist.
Damit wäre zwar das Prob gelöst mit den Namensgleichheiten
im Suchstring...
...aber nun bekomm ich natürlich die Strings immer wieder ins
LV rein weil sie ja nicht gleich sind
Thank you for Help
ein mittlerweile verzweifelter Klaus |
|
| |
| |
| |
|
|
| ok,ich habs kapiert
so funktioniert es
let such$=filename$
y&=SearchText(listview2&,0,GetLines(listview2&),0,addr(such$),6,addr(x&))
if @equ(y&,-1)
nur wenn nicht vorhanden rein damit
SetItem listview2&,filename$,Pathfilename$
endif
einmal ein Denkfehler beim suchen..denn es genügt die erste Spalte
zweitens ein Fehler meinersteits bei den Parametern
aber es wird trozdem immer noch alles in Großbuchstaben umgewandelt ausser der erste String ??
ist zwar nicht wichtig...wollt ich nur mal sagen
Gruß...jetzt wieder etwas glücklicher
Klaus |
|
| |
| |
| |
|
|
| Hallo,
alles in Großbuchstaben ? Also bei mir nicht...
Hab allerdings letzte Tage noch einen Bug in SearchText() gefunden und beseitigt, jetzt findet er auch wirklich ALLE Vorkommen des Suchstrings.
Wegen der Großschreibung: Bitte immer ein abgespecktes funktionierendes Testprogramm schicken, in dem der Fehler vorkommt. Nur so kann ich es auch nachvollziehen, testen und notfalls den Fehler beheben. Fühl dich frei !
Gruß, Frank |
|
| |
| |
| |
|
|
| Hallo Klaus,
eine andere Sache:
Ich kann dich momentan nicht per EMail erreichen. Meine Mails kommen mit einem Fehler zurück...
Gruß, Frank |
|
| |
| |
| |
|
(910)
Deutsch
English
Français
Español
Italia