0
我正试图从在DOS系统上运行的传统销售点数据库中提取数据。这个数据库是什么格式?
56 KB DATABASE.DA0 - binary data
232 KB DATABASE.DA1 - binary data
192 KB DATABASE.DA2 - binary data
396 KB DATABASE.DA3 - binary data
224 KB DATABASE.DA4 - binary data
316 KB DATABASE.DA5 - binary data
60 KB DATABASE.DAS - magic number "MPROS" - some kind of data format specification
2.8 MB DATABASE.DAT - magic number "MPROD1" - some kind of flatfile
12 KB DATABASE.DPL - magic number "MPRO2" - some kind of UI script
数据文件的行中的二进制已指定字段的大小,就像这样:
\03Mrs\03XXX\03XXX\0cXXXX Street
规范文件有看起来像这样的内容:
Export $001=CLIENT NUMBER ,TYPE=C,WI=13,CASE=U,SERIAL
$002=DATE ,TYPE=D(dd-mm-yy)
$003=TITLE ,TYPE=C,wi=7
$004=FIRST NAME ,wi=12
$005=SURNAME ,wi=30
$006=STREET ,wi=30
$007=SUBURB/TOWN ,wi=25
$008=POSTCODE ,wi=8
$009=TELEPHONE ,wi=15
$010=PURCHASE ,TYPE=N,pr=2,ju=r,wi=9
$011=2ND LAST CONTACT ,TYPE=D(dd-mm-yy)
$012=3RD LAST CONTACT ,TYPE=D(dd-mm-yy)
$013=4TH LAST CONTACT ,TYPE=D(dd-mm-yy)
$014=MAILING LIST (Y/N) ,wi=1
...
\PROG
dc init,nameline,lastline,streetline,figs,wk,line,nacase,sequence
dc nad
getpar 'nacase',nacase
leftstr first,1,init
ifa contact
nameline=title+' '+init+' '+surname
else
nameline=surname
endif
unline nameline
streetline=property+' '+street_no+' '+street
unline streetline
if nacase bw 'l'
setcase nameline,w
setcase streetline,w
endif
lastline=suburb
;; unline lastline
if nacase bw 'l'
setcase lastline,w
endif
gosub towJnpostcode
nad=nameline
ifp contact
nad=contact+CR+nad
endif
nad=nad+CR+streetline+CR+lastline
ifnotf then notf
if $display='a'
wk='Records: '+$trc+' '
endif
if $display='s'
wk='Records: '+$src+' from '+$trc+' '
endif
a=51-len(wk)
fillstr line,'ƒ',a
figs=wk+line
if $index=1
sequence='customer ref'
endif
if $index=2
sequence='postcode
是否有人k现在是什么类型的系统,以及是否有任何可以读取它的现成库或转换器?
上发现的类似语法算出来了,请您通过TrID传递二进制文件,并让我们知道您得到了什么回复?它可以帮助我们弄清楚。 –
bugmagnet