home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbstruct.zip
/
DBDATA.PF3
< prev
next >
Wrap
Text File
|
1990-12-06
|
2KB
|
87 lines
Global FieldNames[100]
Global FieldTypes[100]
Global FieldLengths[100]
Global DbFields()
Global FileName
FileName = Upper(Ask("Enter FileName:"))
quiet off
DbFields()
Function DbFields()
Local NumOfFields Ctr
Local BinHeader BinNumOfFields BinDummy
Local BinFieldLength BinFieldOffset BinFieldType BinFieldName
Local FieldLength FieldOffset FieldType FieldName
Local mydata BinData locat
Local BinRecNum
Local Recs[4]
Local TotalRecs
BUFFER BinRecNum SIZE 1
BUFFER BinHeader SIZE 2080
BUFFER BinNumOfFields SIZE 2
BUFFER BinDummy SIZE 22
BUFFER BinData SIZE 22
BUFFER BinFieldLength SIZE 2
BUFFER BinFieldOffset Size 2
BUFFER BinFieldType Size 2
BUFFER BinFieldName Size 22
clear recs[]
Fopen FileName as 1
Fseek 1 2064
For Ctr = 1 to 4
Fread 1 Binary 1 Into BinRecNum
UnPack BinRecNum "B" Recs[Ctr]
End For
TotalRecs = Recs[1] + (256*Recs[2]) + (256^2*Recs[3]) + (256^3*Recs[4])
Fseek 1 2080
Fread 1 Binary 2 Into BinNumOfFields
UnPack BinNumOfFields "B" NumOfFields
Fread 1 Binary 22 Into BinDummy
For Ctr = 1 to NumOfFields
Fread 1 Binary 2 Into BinFieldLength
UnPack BinFieldLength "B" FieldLengths[Ctr]
Fread 1 Binary 2 Into BinFieldOffset
UnPack BinFieldLength "B" FieldOffset
Fread 1 Binary 2 Into BinFieldType
UnPack BinFieldType "B" FieldTypes[Ctr]
Fread 1 Binary 22 Into BinFieldName
UnPack BinFieldName "S" FieldNames[Ctr]
' All = All & fieldname
End For
locat = (2104+(98*NumOfFields))
Fseek 1 locat+4+NumOfFields
For Ctr = 1 to TotalRecs
Fread 1 Binary FieldLengths[ctr] Into BinData
UnPack BinData "C" MyData
message chr(mydata)
' Fread 1 Binary FieldLengths[2] Into BinData
' UnPack BinData "B" MyData
' Fread 1 Binary 6 Into BinData
' message FieldLengths[Ctr]
End For
fclose 1
End Function