| |
| |
|
 |
CompileMarkSeparation
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
If I herewith Inputs abspeichern wants, becomes only The first input (the image) recognized and changed or registered. All other data, whether present or new go not machine  What is wrong ? - any Inputs go over Create(Edit.... prepares and GETTEXT$ read. stand too as such into Editzeilen, can but not überschreiben or Change
CompileMarkSeparation"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 sees a Line in the CSV-File from |
|
| |
| |
| |
|
|
Frank
Abbing | I can so none Error discover. could you a short and lauffähigen Source post?  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hello Horst,
I take at times, You filling The variables in the procedure Reading, or?
have You to or in the procedure already time Breakpoints with $D Reading,presentment$,well$,...,hp$ staid and what are The Results? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 12/29/06 ▲ |
|
| |
|
|
| @Jörg - with $D go The variables tidy aufgelistet -
@Frank
If I the image wechsle (is of a others Dialog-Window since select) and write then Text, becomes this übernommen ! - without The Bildwahl power the program nothing. can it his, that this Child-Window the write prevented ?
a Beispieltext To sort, lasts yet - see Messagebox |
|
| |
| |
| |
|
|
Frank
Abbing | will be first in silence well. good recovery!  |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Frank
Abbing | well siehste...  |
|
| |
| |
| |
|
(1.129)
Deutsch
English
Français
Español
Italia