XProfan

Español

¡Hola Franco
Mit diesem Code versuche Yo, el CSV-Expediente a verschlüsseln - desafortunadamente sin Erfolg

---------------------
PROC DATEN_SPEICHERN
PARAMETERS tabelle$
Caso negativo tabelle$=
x&=GetNeededMemory(listview&,1)
Dim bereich#,x&
x&=ListviewToCsv(listview&,bereich#,0,0) Listview-Daten en el CSV-Formato auslesen
CryptMem(bereich#,x&,addr(Contraseña$),len(Contraseña$)) Daten en el Zona otra vez verschlüsseln
WriteFileQuick(addr(tabelle$),bereich#,0,x&) Daten otra vez como Expediente speichern
Disponer bereich#
EndIf
ENDPROC
-------------------- El VERSCHLÜSSELUNG klappt !
.......
x&=@FileSize(tabelle$)
If x&>0
Dim bereich#,x&
ReadFileQuick(addr(tabelle$),bereich#,0,x&) Expediente en Speicherbereich einladen
CryptMem(bereich#,x&,addr(Contraseña$),len(Contraseña$)) Daten en el Zona entschlüsseln
CsvToListview(listview&,bereich#,x&,spaltenzahl%) CSV-Expediente en Listview einlesen
Disponer bereich#
EndIf
.....
--------------------
El Variable spaltenzahl% se de uno Zusatzdatei ausgelesen
Das Contraseña es en el Moment al Anfang des Code-Textes (se später uno freien Eingabe weichen)
Wenn Yo eintschlüsseln voluntad, se en el Statuszeile el número el Einträge adecuado (se así ser) Im Listview se aber sólo una Spalte en todo Breite OHNE Texto gezeigt - Was mache Yo falso ???
Gruss
horst

01.02.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

¡Hola Horst,

tener lo selber gerade getestet, funktioniert einwandfrei!
Usted darfst natürlich no vergessen, en deinem Ziellistview vorher ya selber (vacío) Spalten anzulegen! CsvToListview() legt selber no Spalten a! Lo kopiert sólo el Texto passend en vorhandene Spalten.
Aus Csv-Archivos automáticamente Spalten invertir kann aber SetColumnsFromMem(). Liess dir dazu veces el Anleitung por.

01.02.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

AHAAA

Manchmal es uno como vernagelt
Como mein Programa Listviews con a a 24 Spalten erstellt y el Titel dieser Spalten frei eingegeben voluntad, voluntad esta zusammen con el Spaltenzahl como einfache Textdatei gespeichert. Mit el Procedur SPALTEN_AUFBAU voluntad esta Informationen eingelesen. Das Tuve en el vorherigen Texto hinter CsvToListview(.... posición y sin la Verschlüsselung funktioniert lo auch. Jetzt es el Aufruf vorher y alles klappt !
Gracias
CSV_DATEN tabelle$
SPALTEN_AUFBAU hier war el Hund begraben !!!!
bytes&=@FileSize(tabelle$)
If bytes&>0
Dim bereich#,bytes&
ReadFileQuick(addr(tabelle$),bereich#,0,bytes&) Expediente en Speicherbereich einladen
CryptMem(bereich#,bytes&,addr(Contraseña$),len(Contraseña$)) Daten en el Zona entschlüsseln
x&=SetColumnsFromMem(listview&,bereich#,addr(y&))
CsvToListview(listview&,bereich#,bytes&,spaltenzahl%) CSV-Expediente en Listview einlesen
Disponer bereich#
EndIf
Gruss
horst