能自由阅读两种不同结构数据库的小工具 求知 1997-01-01 　　因为工作上的需要，我经常要查寻硬盘上的数据库，其中一些程序是以前用Ｆｏｘｂａｓｅ编制的，虽然现在我已经改用Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ　３．０　ｆｏｒ　Ｗｉｎｄｏｗｓ了，但为了与以前的数据库及基层单位的库衔接上，ＤＯＳ下的程序还是没有改动。 　　如果要对两种不同版本的数据库进行查寻，总免不了要在ＤＯＳ和Ｗｉｎｄｏｗｓ两种状态之间进进出出，而且还要反复进入Ｆｏｘｂａｓｅ和Ｆｏｘｐｒｏ环境。总感觉太麻烦了，也太浪费时间，于是我自编了一个可同时看两种版本数据库的小工具，用了一年多，感觉很好，因此奉献出来，好让大家也方便方便。 　　由于版面关系，我在这里只列出了大家常用的字符型和数值型两种数据的读法，其它几种数据的读法留给各位读者，做为一个小小的启发吧。 　　下面这个小工具就叫ＶＩＥＷ－ＤＢＦ．Ｃ吧！ #3　　使用方法为：ＶＩＥＷ－ＤＢＦ　欲查寻的库名 　　＃ｉｎｃｌｕｄｅ　＂ｓｔｄｉｏ．ｈ＂ 　　ｍａｉｎ（ａｒｇｃ，ａｒｇｖ） 　　ｉｎｔ　ａｒｇｃ； 　　ｃｈａｒ　＊ａｒｇｖ［］； 　　｛ＦＩＬＥ　＊ｆｐ；／＊定义指针＊／ 　　ｃｈａｒ　ｓｔｒ［１１］，ｓ，＊ｚｄｍ［１２８］［１１］，ｊｌ［１２８］；／＊定义字段名及记录内容的数组＊／ 　　ｌｏｎｇ　ｉｎｔ　ｉ＝１，ｊ＝１，＊ｚｄｃ［１２８］，ｌ＝１，ｂｂｈ，ｌｓ；／＊定义字段长度及各计数器变量＊／ 　　ｉｆ（（ｆｐ＝ｆｏｐｅｎ（ａｒｇｖ［１］，＂ａ＋ｂ＂））＝＝ＮＵＬＬ）｛ 　　ｐｒｉｎｔｆ（＂不能打开文件＼ｎ＂）； 　　ｅｘｉｔ（１）；｝ｅｌｓｅ 　　｛ｂｂｈ＝ｇｅｔｃ（ｆｐ）；／＊从打开的文件中读字符，检测版本号，如果是Ｆｏｘｂａｓｅ的库则ｂｂｈ为０３，如果是Ｆｏｘｐｒｏ　ｆｏｒ　Ｗｉｎｄｏｗｓ的库则ｂｂｈ为３０＊／ 　　ｆｓｅｅｋ（ｆｐ，３２Ｌ，０）；／＊跳过库文件头，直接找各字段名＊／ 　　ｉｆ（ｇｅｔｃ（ｆｐ）！＝０ｘ０Ｄ）／＊找第一个字段名＊／ 　　｛ｆｓｅｅｋ（ｆｐ，－１Ｌ，１）；／＊指到地址０处，读第一个字段名＊／ 　　ｆｇｅｔｓ（ｚｄｍ［ｉ］，１１，ｆｐ）； 　　ｆｓｅｅｋ（ｆｐ，６Ｌ，１）；／＊查找第一个字段的长度＊／ 　　ｚｄｃ［ｉ］＝ｆｇｅｔｃ（ｆｐ）＋１；／＊读单字节，把字段长度赋予数组＊／｝ 　　ｗｈｉｌｅ（（ｓ！＝０ｘ０ｄ）＆＆！ｆｅｏｆ（ｆｐ））｛／＊依次找其它字段名＊／ 　　ｉ＝ｉ＋１； 　　ｆｓｅｅｋ（ｆｐ，１５Ｌ，１）；／＊找第一个字节，看是否为０ｘ０Ｄ，因为０Ｄ是字段名与各记录之间的分界标志＊／ 　　ｓ＝ｆｇｅｔｃ（ｆｐ）； 　　ｆｓｅｅｋ（ｆｐ，－１Ｌ，１）；／＊返回到第一个字节＊／ 　　ｉｆ（ｓ！＝０ｘ０Ｄ）｛ 　　ｆｇｅｔｓ（ｚｄｍ［ｉ］，１１，ｆｐ）；／＊读字段名并赋值给数组＊／ 　　ｆｓｅｅｋ（ｆｐ，６Ｌ，１）；／＊找这个字段的长度＊／ 　　ｚｄｃ［ｉ］＝ｆｇｅｔｃ（ｆｐ）＋１；／＊将长度赋值给数组＊／｝｝ 　　ｆｏｒ（ｊ＝１，ｊ＜ｉ；ｊ＋＋）；／＊计数器计数，以便控制＊／｝ 　　ｆｆｌｕｓｈ（ｆｐ）；／＊以下显示字段及记录的内容＊／ 　　ｉ＝１； 　　｛ｉｆ（ｂｂｈ＝＝０ｘ０３）　ｆｓｅｅｋ（ｆｐ，１ｌ，１）；／＊如果ｂｂｈ是０３，那么这个库是Ｆｏｘｂａｓｅ数据库，指针从当前位置向后移动１位＊／ 　　ｅｌｓｅ　ｆｓｅｅｋ（ｆｐ，２５４ｌ，１）；／＊如果ｂｂｈ是３０，那么这个库为Ｆｏｘｐｒｏ　ｆｏｒ　Ｗｉｎｄｏｗｓ数据库，指针从当前位置向后移动２５４位＊／｝ 　　ｗｈｉｌｅ（！ｆｅｏｆ（ｆｐ）＆＆（ｆｇｅｔｃ（ｆｐ）！＝０ｘ１Ａ））｛／＊１Ａ是数据库的记录结束标志，应令指针到此停止，以免显示出无用的信息来＊／ 　　ｃｈａｒ　ｇ； 　　ｉ＝１； 　　ｐｒｉｎｔｆ（＂记录号：％ｄ＼ｎ＝＝＝＝＝＼ｎ＂，ｌ）； 　　ｗｈｉｌｅ（ｉ＜ｊ）｛ 　　ｆｇｅｔｓ（ｊｌ，（ｉｎｔ）ｚｄｃ［ｉ］，ｆｐ）；／＊注意文件指示器的位置在本字串的下一位置＊／ 　　ｐｒｉｎｔｆ（＂％－１２ｓ＝％ｓ＼ｎ＂，ｚｄｍ［ｉ］，ｊｌ）；／＊字段名长度取１２个字符宽，并以右空格补齐，使屏幕更加清晰＊／ 　　ｉ＝ｉ＋＋；｝ 　　ｐｒｉｎｔｆ（＂＼ｎ＼ｎ回车＝＞继续显示，ＥＳＣ退出……＂）； 　　ｗｈｉｌｅ（ｂｉｏｓｋｅｙ（１）！＝０）　ｂｉｏｓｋｅｙ（０）；／＊清除键盘缓冲区内容＊／ 　　ｇ＝ｂｉｏｓｋｅｙ（０）；／＊读键盘Ｓ是ｉｎｔ＊／ 　　ｉｆ（ｇ＝＝０ｘ１ｂ）　ｅｘｉｔ（０）； 　　ｐｒｉｎｔｆ（＂＼ｎ＼ｎ＂）； 　　ｌ＝ｌ＋＋；｝ 　　ｆｃｌｏｓｅ（ｆｐ）；｝ 　　以上程序用Ｔｕｒｂｏ　Ｃ　２．０编译通过，在３８６以上机器上运行无误。