| |
| |
|
 | ¡Hola Franco
Como komme Yo otra vez con una Cuestión...
Wenn Yo una dbf datei einlese, es posible y fals sí, como, z.b. el Datum a formatiern, si en el dbf es 20020327 en 2002:03:27 umzuwandeln y el Listview darstellen?
In media Listview Yo lo así,
Let Data$ = @dbGet$(DATUM)
Let Data$ =
@Mid$(Data$,7,2),:,@Mid$(Data$,5,2),:,@Mid$(Data$,1,4)
Dar en Su Listview el einlesen automáticamente en el speicher geschieht, sehe Todavía no el Möglichkeit lo a formatieren
Gracias para cada Tip
Fernando |
|
| |
| |
| |
|
|
| ¡Hola Fernando,
el podría Yo como Flag realisieren, z.B. como Flag 2.
Wäre entonces Flag 2 gesetzt, entonces el Datum automáticamente en el neue Formato traducido.
Wäre no schlecht, si du me por Email una dbf-Expediente schickst, el Datums-Angaben enthält, entonces podría ego mejor testen.
Saludo, Franco |
|
| |
| |
| |
|
|
| ¡Hola zusammen
2002:03:27 ?
Wäre no mejor umzusetzen en 2002.03.27 ?
@Fernando: Gracias otra vez para el Expediente !
Saludo, Franco |
|
| |
| |
| |
|
|
| ¡Hola,
así, tener el Flag ahora instalado.
Hier el neue Descripción el Función, Yo hoffe el va ahora así Haga clic en Aceptar:
DbfToCsv(B,A,S,Z,F)
Wandelt una dBaseIII (.dbf) Expediente en en un CSV-Expediente (en el Speicher).
B : Largo - Zeiger en una Zona, en el con ReadFileQuick() una DBF-Expediente geladen wurde.
A : Largo - Anzahl Bytes en B.
S : Zeiger en una Zona, el el número Spalten en el Dbf-Expediente en B empfängt (Largo-Int) oder 0.
Z : Zeiger en una Zona, el el número Zeilen en el Dbf-Expediente en B empfängt (Largo-Int) oder 0.
F : Largo - Flag.
Rückgabe-Ergebniss: Largo - Anzahl generierter Bytes en el neuen Csv-Expediente (en B).
Weil viele User gerne con dBase-Archivos trabajo, wurde esta Función implementiert.
A Es el Größe el Expediente en B.
S muß una variable ser oder una vier Byte großer Speicher, en el nachher el número Spalten eingetragen es. es hier Null, Luego se el Parámetro S ignoriert.
Z es ebenfalls una variable oder una vier Byte großer Speicher, sólo es hier nachher el número Zeilen.
F es una Flag. Ist Bit Null gelöscht, entonces voluntad auch el Felder (Headerinformationen) el Dbf-Expediente con ausgelesen. El erste Línea en el Csv-Expediente beinhaltet entonces el Feldnamen. Ist Bit Null en F gesetzt, entonces voluntad el Felder ignoriert y no con en el Csv-Expediente übernommen. Feldnamen son vergleichbar con el Texten el Spaltenbuttons.
Ist Bit Eins en F gesetzt, entonces voluntad Datumsfelder vom Type 20020726 automáticamente eingesetzt como 2002.07.26 (=26.07.2002).
Hier otra vez el Liste aller möglichen Flags ( kombinierbar por O Verknüpfung oder Addition).
0 = Felder no con en el Csv-Expediente auslesen / no Datumsfelder-Konvertierung
1 = Felder con en el Csv-Expediente auslesen
2 = Datumsfelder konvertieren, z.B. 20020726 se a 2002.07.26
El neu erstellte Csv-Expediente es nachher en B, el alten Daten en B voluntad überschrieben. Weil una Dbf-Expediente quasi siempre größer es, como una Csv-Expediente, muß en Speicherbereichs-Größe normalerweise nichts beachtet voluntad.
texto$=Datei.dbf
bytes&=@FileSize(texto$) Größe el Expediente ermitteln (bytes&)
If bytes&>0
Dim bereich#,bytes&
ReadFileQuick(addr(texto$),bereich#,0,bytes&) Dbf-Expediente invitar
bytes&=DbfToCsv(bereich#,bytes&,addr(spalten&),0,0) Dbf konvertieren después de Csv / bytes& neu ermitteln
CsvToListview(listview&,bereich#,bytes&,spalten&) Csv Expediente como Items en Listview einlesen
Disponer bereich#
EndIf
Saludo, Franco |
|
| |
| |
| |
|
(2.295)
Deutsch
English
Français
Español
Italia