| |
|
|
| KompilierenMarqueSéparation
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
si je hiermit Eingaben abspeichern veux, wird seulement la première Eingabe (cela Bild) erkannt et geändert ou bien eingetragen. Alle anderen données, si vorhanden ou bien récente volonté pas bearbeitet quoi ist faux ? - Alle Eingaben volonté sur Créer(Éditer.... erstellt et GETTEXT$ ausgelesen. Stehen aussi comme solche dans den Editzeilen, laisser sich mais pas überschreiben ou bien changement KompilierenMarqueSéparation"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 une la ligne dans qui CSV-Dossier aus |
|
|
| |
|
|
|
Frank Abbing | je peux so keinen faute entdecken. Könntest du une kurzen et lauffähigen Source posten? |
|
|
| |
|
|
|
Jörg Sellmeyer | allô Horst, je prends la fois à, Du füllst qui Variablen dans qui Procédure Lecture, ou bien? la hâte Du pour ou bien dans qui Procédure déjà la fois Breakpoints avec $D Lecture,bild$,na$,...,hp$ gesetzt et quoi sommes qui Ergebnisse? |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 29.12.2006 ▲ |
|
|
|
|
| @Jörg - avec $D volonté qui Variablen net aufgelistet -
@Frank si je cela Bild wechsle (cela wird de einem anderen Dialogfenster her ausgewählt) et schreibe ensuite Text, wird cette übernommen ! - sans qui Bildwahl pouvoir cela Programme rien. peux es son, dass cet Unterfenster cela écrivons verhindert ? Einen Beispieltext trop sortieren, dauert encore - siehe Messagebox |
|
|
| |
|
|
|
Frank Abbing | Werde seulement dans Ruhe gesund. Gute Besserung! |
|
|
| |
|
|
|
| |
|
| |
|
|
|
Frank Abbing | Na siehste... |
|
|
| |
|
|