XProfan

Deutsch

Hallo Frank
Mit diesem Code versuche ich, die CSV-Datei zu verschlüsseln - leider ohne Erfolg

---------------------
PROC DATEN_SPEICHERN
PARAMETERS tabelle$
IfNot tabelle$=
x&=GetNeededMemory(listview&,1)
Dim bereich#,x&
x&=ListviewToCsv(listview&,bereich#,0,0) Listview-Daten im CSV-Format auslesen
CryptMem(bereich#,x&,addr(passwort$),len(passwort$)) Daten in dem Bereich wieder verschlüsseln
WriteFileQuick(addr(tabelle$),bereich#,0,x&) Daten wieder als Datei speichern
Dispose bereich#
EndIf
ENDPROC
-------------------- Die VERSCHLÜSSELUNG klappt !
.......
x&=@FileSize(tabelle$)
If x&>0
Dim bereich#,x&
ReadFileQuick(addr(tabelle$),bereich#,0,x&) Datei in Speicherbereich einladen
CryptMem(bereich#,x&,addr(passwort$),len(passwort$)) Daten in dem Bereich entschlüsseln
CsvToListview(listview&,bereich#,x&,spaltenzahl%) CSV-Datei in Listview einlesen
Dispose bereich#
EndIf
.....
--------------------
Die Variable spaltenzahl% wird aus einer Zusatzdatei ausgelesen
Das Passwort steht im Moment am Anfang des Code-Textes (soll später einer freien Eingabe weichen)
Wenn ich eintschlüsseln will, wird in der Statuszeile die Anzahl der Einträge angezeigt (soll so sein) Im Listview wird aber nur eine Spalte über die ganze Breite OHNE Text gezeigt - Was mache ich falsch ???
Gruss
horst

01.02.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank
Abbing

Hallo Horst,

hab es selber gerade getestet, funktioniert einwandfrei!
Du darfst natürlich nicht vergessen, in deinem Ziellistview vorher schon selber (leere) Spalten anzulegen! CsvToListview() legt selber keine Spalten an! Es kopiert nur den Text passend in vorhandene Spalten.
Aus Csv-Dateien automatisch Spalten anlegen kann aber SetColumnsFromMem(). Liess dir dazu mal die Anleitung durch.

01.02.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

AHAAA

Manchmal ist man wie vernagelt
Da mein Programm Listviews mit bis zu 24 Spalten erstellt und die Titel dieser Spalten frei eingegeben werden, werden diese zusammen mit der Spaltenzahl als einfache Textdatei gespeichert. Mit der Procedur SPALTEN_AUFBAU werden diese Informationen eingelesen. Das hatte ich im vorherigen Text hinter CsvToListview(.... stehen und ohne die Verschlüsselung funktioniert es auch. Jetzt steht der Aufruf vorher und alles klappt !
Danke
CSV_DATEN tabelle$
SPALTEN_AUFBAU hier war der Hund begraben !!!!
bytes&=@FileSize(tabelle$)
If bytes&>0
Dim bereich#,bytes&
ReadFileQuick(addr(tabelle$),bereich#,0,bytes&) Datei in Speicherbereich einladen
CryptMem(bereich#,bytes&,addr(passwort$),len(passwort$)) Daten in dem Bereich entschlüsseln
x&=SetColumnsFromMem(listview&,bereich#,addr(y&))
CsvToListview(listview&,bereich#,bytes&,spaltenzahl%) CSV-Datei in Listview einlesen
Dispose bereich#
EndIf
Gruss
horst