*!* 以下是 test2.txt 文件的内容。每14个字符为1个数据,每行3个数据为1个记录,共3个记录
*!* 123.00 123,456.78 1,234,567.89
*!* 123,456,789.01123,456,789.01123,456,789.01
*!* 111,222,333.44555,666,777.88999,000,111.22
*!* 以下是将 test2.txt 文件的内容转换到 test2.dbf 文件的程序
CLEAR
CREATE CURSOR test2 (sl1 c(14),sl2 c(14),sl3 c(14))
APPEND FROM test2 SDF &&以字符方式转换到 test2.dbf 文件
LIST
*!* 以下是显示的结果
*!* 记录号 SL1 SL2 SL3
*!* 1 123.00 123,456.78 1,234,567.89
*!* 2 123,456,789.01 123,456,789.01 123,456,789.01
*!* 3 111,222,333.44 555,666,777.88 999,000,111.22
UPDATE test2 SET sl1=CHRTRAN(sl1,',',''),;
sl2=CHRTRAN(sl2,',',''),;
sl3=CHRTRAN(sl3,',','') &&将每个字符型数据的逗号去掉
LIST
*!* 以下是显示的结果
*!* 记录号 SL1 SL2 SL3
*!* 1 123.00 123456.78 1234567.89
*!* 2 123456789.01 123456789.01 123456789.01
*!* 3 111222333.44 555666777.88 999000111.22
ALTER TABLE test2 ALTER sl1 N(14,2) &&修改字段的数据类型为 数值型
ALTER TABLE test2 ALTER sl2 N(14,2)
ALTER TABLE test2 ALTER sl3 N(14,2)
LIST
*!* 以下是显示的结果
*!* 记录号 SL1 SL2 SL3
*!* 1 123.00 123456.78 1234567.89
*!* 2 123456789.01 123456789.01 123456789.01
*!* 3 111222333.44 555666777.88 999000111.22
[[italic] 本帖最后由 Tiger5392 于 2008-1-8 22:55 编辑 [/italic]]