XProfan

English

Hello Frank
of these code try I, The CSV-File To code - unfortunately without success

---------------------
PROC DATEN_SPEICHERN
PARAMETERS scheduler$
Ifnot scheduler$=
x&=GetNeededMemory(listview&,1)
Dim area#,x&
x&=ListviewToCsv(listview&,area#,0,0) List view-data in the CSV-stature read
CryptMem(area#,x&,addr(Password$),len(Password$)) data in the area again code
WriteFileQuick(addr(scheduler$),area#,0,x&) data again as Save file
Dispose area#
EndIf
ENDPROC
-------------------- The VERSCHLÜSSELUNG works !
.......
x&=@FileSize(scheduler$)
If x&>0
Dim area#,x&
ReadFileQuick(addr(scheduler$),area#,0,x&) File in Speicherbereich invite
CryptMem(area#,x&,addr(Password$),len(Password$)) data in the area decode
CsvToListview(listview&,area#,x&,spaltenzahl%) CSV-File in List view reading
Dispose area#
EndIf
.....
--------------------
The Variable spaltenzahl% becomes a Zusatzdatei read
the Password standing in the momentum at the beginning the code-Textes (should later of/ one disengaged input weichen)
If I eintschlüsseln wants, becomes in the Statuszeile The Number of Entries displayed (should so his) in the List view becomes but only a slot over The whole wide OHNE Text viewed - What do I do wrong ???
greeting
horst

02/01/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Hello Horst,

Have it yourself straight tested, functions correct!
You must naturally not forget, in your Ziellistview before already yourself (vain) Split anzulegen! CsvToListview() places yourself no Split on! it copies only whom Text properly in available Split.
from Csv-Files Automatically Split lay out can but SetColumnsFromMem(). letting you moreover times the guide through.

02/01/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

AHAAA

sometimes is one How vernagelt
there my Program Listviews with up to 24 Split prepares and the cover this Split spare association go, go these together with the Spaltenzahl as simple Textdatei stored. with the Procedur SPALTEN_AUFBAU go these Information read. the I had in the previous Text behind CsvToListview(.... stand and without The Verschlüsselung functions it too. now standing the appeal before and everything works !
thanks
CSV_DATEN scheduler$
SPALTEN_AUFBAU here was the dog bury !!!!
bytes&=@FileSize(scheduler$)
If bytes&>0
Dim area#,bytes&
ReadFileQuick(addr(scheduler$),area#,0,bytes&) File in Speicherbereich invite
CryptMem(area#,bytes&,addr(Password$),len(Password$)) data in the area decode
x&=SetColumnsFromMem(listview&,area#,addr(y&))
CsvToListview(listview&,area#,bytes&,spaltenzahl%) CSV-File in List view reading
Dispose area#
EndIf
greeting
horst