*!*
以下是 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]]