Konvertierung .dbf zu .xls oder *.txt

**BugFix**

Hi,
kennt jemand einen eleganten Weg, eine dbf-Datei in Excel- oder sogar Textformat zu konvertieren?
Aus unserer Firmensoftware kann ich Ergebnistabellen ausschließlich im dbf-Format erhalten. Bisher helfe ich mir so, dass ich diese in Excel öffne und dann als xls-Datei abspeichere. Die weitere Verarbeitung läuft dann über die Excel-UDF mit AutoIt.
Wäre nicht schlecht, wenn ich die dbf direkt in Text wandeln könnte - oder zumindest automatisiert in xls.
Bin für jede Anregung dankbar.

Habe mal eine Muster-dbf angehängt, da das ja ein frei interpretiertes Format ist.

**funkey**

Ich hab mir mal die Daten direkt mit Fileread ausgelesen. Das waren ziemlich anstrengende String-Operationen. Aber ich musste leider im DBF-Format bleiben, da die Datenbank so erhalten bleiben musste und ich kleine Änderungen vornehmen musste.

progandy

Das kannst du schon machen, am besten mit _WinAPI_ReadFile und structures
//Edit: war falschens dbase format...
Das sollte stimmen:

Spoiler anzeigen

http://www.sac.sk/files.php?d=12&l=D --> ftp://ftp.sac.sk/pub/sac/text/dbf_eng.zip

Code

dBASE III Database File Structure
The structure of a dBASE III database file is composed of a
header and data records.  The layout is given below.
dBASE III DATABASE FILE HEADER:
+---------+-------------------+---------------------------------+
|  BYTE   |     CONTENTS      |          MEANING                |
+---------+-------------------+---------------------------------+
|  0      |  1 byte           | dBASE III version number        |
|         |                   |  (03H without a .DBT file)      |
|         |                   |  (83H with a .DBT file)         |
+---------+-------------------+---------------------------------+
|  1-3    |  3 bytes          | date of last update             |
|         |                   |  (YY MM DD) in binary format    |
+---------+-------------------+---------------------------------+
|  4-7    |  32 bit number    | number of records in data file  |
+---------+-------------------+---------------------------------+
|  8-9    |  16 bit number    | length of header structure      |
+---------+-------------------+---------------------------------+
|  10-11  |  16 bit number    | length of the record            |
+---------+-------------------+---------------------------------+
|  12-31  |  20 bytes         | reserved bytes (version 1.00)   |
+---------+-------------------+---------------------------------+
|  32-n   |  32 bytes each    | field descriptor array          |
|         |                   |  (see below)                    | --+
+---------+-------------------+---------------------------------+   |
|  n+1    |  1 byte           | 0DH as the field terminator     |   |
+---------+-------------------+---------------------------------+   |
|
|
A FIELD DESCRIPTOR:      <------------------------------------------+
+---------+-------------------+---------------------------------+
|  BYTE   |     CONTENTS      |          MEANING                |
+---------+-------------------+---------------------------------+
|  0-10   |  11 bytes         | field name in ASCII zero-filled |
+---------+-------------------+---------------------------------+
|  11     |  1 byte           | field type in ASCII             |
|         |                   |  (C N L D or M)                 |
+---------+-------------------+---------------------------------+
|  12-15  |  32 bit number    | field data address              |
|         |                   |  (address is set in memory)     |
+---------+-------------------+---------------------------------+
|  16     |  1 byte           | field length in binary          |
+---------+-------------------+---------------------------------+
|  17     |  1 byte           | field decimal count in binary   |
+---------+-------------------+--------------------------------
|  18-31  |  14 bytes         | reserved bytes (version 1.00)   |
+---------+-------------------+---------------------------------+
The data records are layed out as follows:
1. Data records are preceeded by one byte that is a
space (20H) if the record is not deleted and an
asterisk (2AH) if it is deleted.
2. Data fields are packed into records with no field
separators or record terminators.
3. Data types are stored in ASCII format as follows:
DATA TYPE      DATA RECORD STORAGE
---------      --------------------------------------------
Character      (ASCII characters)
Numeric        - . 0 1 2 3 4 5 6 7 8 9
Logical        ? Y y N n T t F f  (? when not initialized)
Memo           (10 digits representing a .DBT block number)
Date           (8 digits in YYYYMMDD format, such as
19840704 for July 4, 1984)


This information came directly from the Ashton-Tate Forum.
It can also be found in the Advanced Programmer's Guide available
from Ashton-Tate.

Alles anzeigen

**BugFix**

Danke progandy, werde ich mich mal dransetzen.

progandy

war leider das falsche fomrat (zu neu, dbase 4) hab aber dbase 3 gefunden

**BugFix**

OK, nochmals Danke - nun leg ich aber los

**Xenobiologist**

Hi BugFix,

ist da mal was dabei rausgekommen?

Mega

**BugFix**

Hi Xeno,
ja Dank progandy's super Hilfe konnte ich das fertigstellen und habe es seitdem ununterbrochen in der Firma im Einsatz.
Ist jetzt speziell auf meine Problemstellung zugeschnitten, aber wenn du es dir ansehen willst, melde dich.

Edit:
Ich hab dir mal die betreffenden Funktionen aus meinem Skript rausgesucht. Die Zeilen, die sich auf den Rest des Skripts (GUI etc.) beziehen einfach ignorieren.

Spoiler anzeigen

[autoit]

[/autoit] [autoit][/autoit] [autoit]

Func _CreateRecordStruct(ByRef $databaseFieldInfos)
Local $sText = "char deleted;"
For $i = 1 To UBound($databaseFieldInfos)
$sText &= "char field" & $i & "[" & $databaseFieldInfos[$i - 1][3] & "];"
Next
Return DllStructCreate($sText)
EndFunc ;==>_CreateRecordStruct

[/autoit] [autoit][/autoit] [autoit]

Func bLoadClick()
$Path = FileOpenDialog('Rechnungsdatei wählen', $load, 'DBF(*.dbf)')
If @error Then Return MsgBox(0, 'Fehler', 'Keine Datei ausgewählt')
GUICtrlSetState($bLoad, $GUI_DISABLE)
$DBFFile = _WinAPI_CreateFile($Path, 2, 2, 2)
Local $ReadChars
If _WinAPI_ReadFile($DBFFile, DllStructGetPtr($Header), DllStructGetSize($Header), $ReadChars) Then
If DllStructGetData($Header, "ver") <> 3 Then ; Version muss
MsgBox(16, 'Error', "No supportet dbase format (only dbase 3 without .DBT-files)")
_WinAPI_CloseHandle($DBFFile)
Exit
EndIf
; $tagField erstellen
Local $FieldDescriptor = DllStructCreate($tagField)
;, Infos aus Header auslesen
Local $HeaderLength = DllStructGetData($Header, "headerlength")
Local $FieldsCount = Floor(($HeaderLength - DllStructGetSize($Header) - 1) / DllStructGetSize($FieldDescriptor))
Local $RecordLength = DllStructGetData($Header, "reclength")
Local $RecordsCount = DllStructGetData($Header, "reccount")
; Zahl der Felder: (Headergröße - Dateiheadergröße - terminator-byte) / Feldbeschreibungs-größe
If $FieldsCount = 0 Then
MsgBox(16, '', "No fields")
Else
Global $DatabaseArray[$RecordsCount + 1][$FieldsCount]
Global $databaseFieldInfos[$FieldsCount][5]
For $i = 1 To $FieldsCount
_WinAPI_ReadFile($DBFFile, DllStructGetPtr($FieldDescriptor), DllStructGetSize($FieldDescriptor), $ReadChars)
$DatabaseArray[0][$i - 1] = DllStructGetData($FieldDescriptor, "name")
For $s = 0 To 4
$databaseFieldInfos[$i - 1][$s] = DllStructGetData($FieldDescriptor, $s + 1)
Next
Next
Local $CHECKREAD = DllStructCreate("byte terminate")
_WinAPI_ReadFile($DBFFile, DllStructGetPtr($CHECKREAD), 1, $ReadChars)
If DllStructGetData($CHECKREAD, 1) == 0x0D Then
$RecordStruct = _CreateRecordStruct($databaseFieldInfos)
GUICtrlSetState($Progress1, $GUI_SHOW)
GUICtrlSetData($lbMsg, 'Daten werden konvertiert')
$iStep = 100/$RecordsCount
For $i = 1 To $RecordsCount
$iProgress += $iStep
GUICtrlSetData($Progress1, $iProgress)
_WinAPI_ReadFile($DBFFile, DllStructGetPtr($RecordStruct), DllStructGetSize($RecordStruct), $ReadChars)
If $ReadChars = 0 Then
; keine Felder mehr (Fehler)
ReDim $DatabaseArray[$i][$FieldsCount]
ExitLoop
EndIf
For $j = 1 To $FieldsCount
$DatabaseArray[$i][$j - 1] = DllStructGetData($RecordStruct, "field" & $j)
#Region Datentypen konvertieren
Switch $databaseFieldInfos[$j - 1][1]
Case "C" ; characters: nothing
If StringInStr($DatabaseArray[$i][$j - 1], "00:00:00", 1) Then
$DatabaseArray[$i][$j - 1] = StringStripWS(StringRegExpReplace($DatabaseArray[$i][$j - 1], _
"(\d\d)(\.)(\d\d)(\.)(\d{4})(\s00:00:00)", "$1$3$5"), 3)
Else
$DatabaseArray[$i][$j - 1] = OemToChar($DatabaseArray[$i][$j - 1])
If StringLen($DatabaseArray[$i][$j - 1]) > 30 Then _
$DatabaseArray[$i][$j - 1] = StringLeft($DatabaseArray[$i][$j - 1], 30)
EndIf
Case "N" ; numeric
If StringInStr($DatabaseArray[$i][$j - 1], '.') Then
$DatabaseArray[$i][$j - 1] = StringTrimRight(StringStripWS(StringReplace($DatabaseArray[$i][$j - 1], '.', ','), 1), 2)
Else
$DatabaseArray[$i][$j - 1] = Number($DatabaseArray[$i][$j - 1])
EndIf
Case "L"
Switch $DatabaseArray[$i][$j - 1]
Case "?"
$DatabaseArray[$i][$j - 1] = "N/A"
Case 'Y', 'y', 'T', 't'
$DatabaseArray[$i][$j - 1] = True
Case 'N', 'n', 'F', 'f'
$DatabaseArray[$i][$j - 1] = False
EndSwitch
Case "D"
$DatabaseArray[$i][$j - 1] = StringRegExpReplace($DatabaseArray[$i][$j - 1], "\A(\d{4})(\d\d)(\d\d)\Z", "$1/$2/$3")
Case "M" ; not supportet
EndSwitch
#EndRegion Datentypen konvertieren
Next
Sleep(10)
Next
Else
MsgBox(0, 'Error', "Wrong fielddescriptortable")
EndIf
EndIf
_WinAPI_CloseHandle($DBFFile)
EndIf
; Spalten infos hizugügen zu Feld-Info array
;~ ReDim $databaseFieldInfos[UBound($databaseFieldInfos)+1][5]
;~ $databaseFieldInfos[UBound($databaseFieldInfos)-1][0] = "[[ NAME ]]"
;~ $databaseFieldInfos[UBound($databaseFieldInfos)-1][1] = "[[ TYP ]]"
;~ $databaseFieldInfos[UBound($databaseFieldInfos)-1][2] = "[[ ADRESSE ??? ]]"
;~ $databaseFieldInfos[UBound($databaseFieldInfos)-1][3] = "[[ Byte-Länge ]]"
;~ $databaseFieldInfos[UBound($databaseFieldInfos)-1][4] = "[[ Dezimalstellen ]]"
GUICtrlSetData($Progress1, 100)
Sleep(1000)
GUICtrlSetData($vonDat, $DatabaseArray[1][3])
GUICtrlSetData($bisDat, $DatabaseArray[UBound($DatabaseArray)-1][3])
GUICtrlSetData($lbMsg, 'Konvertierung abgeschlossen - Bereit zum Export')
Sleep(500)
GUICtrlSetData($Progress1, 0)
GUICtrlSetState($bExport, $GUI_ENABLE)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
; Name: OemToChar
; Description: Wandelt einen ASCII- in einen ANSI-String
; Parameter(s): $szSrc = String der umgewandelt werden soll
; Requirement(s): keine
; Return Value(s): bei Erfolg: umgewandelter String
; bei Fehler: "" und @error = 1
; Author(s): bernd670
;===============================================================================
Func OemToChar($szSrc)
;~ Private Declare Function OemToChar Lib "user32.dll" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Local $placeholder
For $i = 0 To StringLen($szSrc)
$placeholder &= " "
Next
Local $lRetVal = DllCall("user32.dll", "long", "OemToChar", "str", $szSrc, "str",$placeholder)
If IsArray($lRetVal) And $lRetVal[0] = 1 Then
Return SetError(0,0,$lRetVal[2])
EndIf

[/autoit] [autoit][/autoit] [autoit]

Return SetError(1,0,"")
EndFunc ;==>OemToChar

[/autoit]