| |
| |
|
 |
KompilierenMarkierenSeparieren
IF GETFOCUS(save&)
AUSLESEN Alle Eingaben auslesen
datei$=pfad$+"\adress2_data.csv"
einzel_ziel&=Long(taste#,8) Zeilenbestimmung - Rechter Mausklick auf die Zeile
SetItemTextEx(listview&,addr(bild$),0,einzel_ziel&,len(bild$)) Pfad zu Bild
SetItemTextEx(listview&,addr(na$),1,einzel_ziel&,len(na$)) Name
SetItemTextEx(listview&,addr(vn$),2,einzel_ziel&,len(vn$)) Vorname
SetItemTextEx(listview&,addr(fi$),3,einzel_ziel&,len(fi$)) Firma
SetItemTextEx(listview&,addr(ge$),4,einzel_ziel&,len(ge$)) Geburtsdatum
SetItemTextEx(listview&,addr(st$),5,einzel_ziel&,len(st$)) Strasse - Nr.
SetItemTextEx(listview&,addr(po$),6,einzel_ziel&,len(po$)) Postleitzahl
SetItemTextEx(listview&,addr(or$),7,einzel_ziel&,len(or$)) Wohnort
SetItemTextEx(listview&,addr(te$),8,einzel_ziel&,len(te$)) Telefon
SetItemTextEx(listview&,addr(fa$),9,einzel_ziel&,len(fa$)) Fax-Nr.
SetItemTextEx(listview&,addr(mo$),10,einzel_ziel&,len(mo$)) Handy
SetItemTextEx(listview&,addr(em$),11,einzel_ziel&,len(em$)) Email-Adresse
SetItemTextEx(listview&,addr(ba$),12,einzel_ziel&,len(ba$)) Bank
SetItemTextEx(listview&,addr(bl$),13,einzel_ziel&,len(bl$)) Bankleitzahl
SetItemTextEx(listview&,addr(kn$),14,einzel_ziel&,len(kn$)) Kontonummer
SetItemTextEx(listview&,addr(term$),15,einzel_ziel&,len(term$)) Termineintrag
SetItemTextEx(listview&,addr(hp$),16,einzel_ziel&,len(hp$)) Homepage-Adresse
IF FileExists(datei$)
mem_size&=GetNeededMemory(listview&,1)+5
DIM bereich#,mem_size&
mem_size&=ListviewToCsv(listview&,bereich#,0,0)
WriteFileQuick(addr(datei$),bereich#,0,mem_size&)
DISPOSE bereich#
EndIf
ENDIF
Wenn ich hiermit Eingaben abspeichern will, wird nur die erste Eingabe (das Bild) erkannt und geändert oder eingetragen. Alle anderen Daten, ob vorhanden oder neu werden nicht bearbeitet  Was ist falsch ? - Alle Eingaben werden über Create(Edit.... erstellt und mit GETTEXT$ ausgelesen. Stehen auch als solche in den Editzeilen, lassen sich aber nicht überschreiben oder ändern
KompilierenMarkierenSeparieren"G:XPROFAN_10BILD_ADRESSOR_2ADRESS2_DATA\SELBST04.JPG","Horn","Horst","","03.08 1940","Alte Eppelheimer Str. 25","69115","Heidelberg","0622123913","","01774856962","info@web-treffpunkt.de","Sparkasse Heidelberg","","",". ","www.web-treffpunkt.de"
So sieht eine Zeile in der CSV-Datei aus |
|
| |
| |
| |
|
|
Frank
Abbing | Ich kann so keinen Fehler entdecken. Könntest du einen kurzen und lauffähigen Source posten?  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hallo Horst,
Ich nehme mal an, Du füllst die Variablen in der Prozedur Auslesen, oder?
Hast Du nach oder in der Prozedur schon mal Breakpoints mit $D Auslesen,bild$,na$,...,hp$ gesetzt und was sind die Ergebnisse? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 29.12.2006 ▲ |
|
| |
|
|
| @Jörg - mit $D werden die Variablen sauber aufgelistet -
@Frank
Wenn ich das Bild wechsle (das wird von einem anderen Dialogfenster her ausgewählt) und schreibe dann Text, wird dieser übernommen ! - Ohne die Bildwahl macht das Programm nichts. Kann es sein, dass dieses Unterfenster das Schreiben verhindert ?
Einen Beispieltext zu sortieren, dauert noch - siehe Messagebox |
|
| |
| |
| |
|
|
Frank
Abbing | Werde erst in Ruhe gesund. Gute Besserung!  |
|
| |
| |
| |
|
|
| @Hallo Frank
KompilierenMarkierenSeparierenu_verZ$=pfad$+"\ADRESS2_DATA"
CHDIR u_verz$
So kann es gehen, wenn man den Wald vor lauter Bäumen nicht sieht - Ich schäme mich 
Die beiden Zeilen oben haben vor dem ganzen Text GEFEHLT ! - Bin ich in der Bildauswahl gewesen, wurde in das Unterverzeichnis U_verz$ geschaltet. Ohne Bildauswahl war ich immer im Hauptverzeichnis. Dort war auch eine, immer geänderte CSV-Datei vorhanden. Diese wurde aber vom Programm nicht gelesen sondern immer die im Unterverzeichnis. Diese wurde aber nicht geändert. 
Jetzt klappt alles und die Antigrippe-Spritze wirkt auch schon.   |
|
| |
| |
| |
|
|
Frank
Abbing | Na siehste...  |
|
| |
| |
| |
|
(513)
Deutsch
English
Français
Español
Italia