| |
| |
|
 | Hallo Frank
Ja,ich schon wieder....
folgendes ich lese von einem LV in ein anderes File ein
alles ok
die File 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 File(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 File wenn Io l' Suchstring
in Anführungszeichen setze.
Wenn dies so richtig ist,könntest Du das vielleicht per so Leute wie mich bitte in die Aiuto 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
Saluto Klaus |
|
| |
| |
| |
|
|
| Hiiilfeee !!!
ist mal wieder Quatsch was ich geschrieben habe...
Logisch..wenn Io l' 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 naturalmente 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 sufficiente 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
Saluto...jetzt wieder etwas glücklicher
Klaus |
|
| |
| |
| |
|
|
| Ciao,
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 !
Saluto, Frank |
|
| |
| |
| |
|
|
| Hallo Klaus,
eine andere Sache:
Ich kann dich momentan nicht per EMail erreichen. Meine Mails kommen mit einem Fehler zurück...
Saluto, Frank |
|
| |
| |
| |
|
(909)
Deutsch
English
Français
Español
Italia