华南俳烁实业有限公司

　　Internet的WWW網(wǎng)頁(yè)中有大量的二維表格，這些表格有的從數(shù)據(jù)庫(kù)轉(zhuǎn)化而來(lái)。筆者在將數(shù)據(jù)庫(kù)文件轉(zhuǎn)化為超文本表格時(shí)編寫了一段程序來(lái)自動(dòng)實(shí)現(xiàn)，效率很高，現(xiàn)介紹給讀者朋友。程序的設(shè)計(jì)思想很簡(jiǎn)單：打開.DBF數(shù)據(jù)庫(kù)，按記錄順序分別讀取數(shù)據(jù)庫(kù)的各字段，然后加上HTML文件的表格控制符，寫到超文本格式的.html文件中。筆者的程序用Visual FoxPro5.0寫成，可在Foxpro各版本下使用。樣例數(shù)據(jù)庫(kù)為Taxed.dbf,源程序清單和生成的超文本文件TAX.HTM清單附后。

　　*Pragram: dbf2htm.prg

　　*表結(jié)構(gòu): Taxed.dbf

　　*字段名類型寬度小數(shù)位*swdjzh字符型9

　　(稅務(wù)登記證號(hào))*qymc字符型20 (企業(yè)名稱)*tbrq日期型8

　　(填表日期)*sz字符型10 (稅種)*ynsk數(shù)值型8 2(應(yīng)納稅種)

　　set talk off

　　set safe off

　　cr=chr(13)+chr(10)

　　text=″〈!--A HTML table convented from Taxed.dbf--〉″+cr

　　text=text+″〈Html〉″+cr

　　text=text+″〈Head〉″+cr+″〈Title〉納稅情況統(tǒng)計(jì)表〈/Title〉″+cr;

　　+″〈/Head〉″+cr

　　text=text+″〈Body〉″+cr+″〈Table border=1〉″+cr

　　text=text+″〈Caption〉納稅情況統(tǒng)計(jì)表〈/Caption〉″+cr

　　text=text+″〈Tr〉″+cr;