2013-07-07 60 views
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现在是什么类型的系统,以及是否有任何可以读取它的现成库或转换器?

+0

上发现的类似语法算出来了,请您通过TrID 传递二进制文件,并让我们知道您得到了什么回复?它可以帮助我们弄清楚。 – bugmagnet

回答