低级函数FWRITE()用法
最好是用低级函数,有一表如下字段结构,注意:表不能有空白记录,
姓名 时间 科室 医师 房号
C型 D型 C型 C型 C型
eff=fcreate("d:\1xx\ok.txt") && d:\1xx\ok.txt 为路径和文件名,也可用字符变量
select tmp &&tmp为要转换的表
goto top
scan
za=alltrim(姓名) &&去前后空格
zb=DTOC(时间) &&转成字符类型
zc=alltrim(科室) &&数值类型用zc=alltrim(str(应发合计,10,2)),请看最后的说明
zd=alltrim(医师)
ze=alltrim(房号)
fwrite(eff,za+","+zb+","+zd+","+ze+chr(13)+chr(10)) &&chr(13)为回车,chr(10)为换行
endscan
=fclose(eff)
生成的“ok.txt”如下:
张三,2009-06-01,杨止痛,1001
李四,2002-01-01,顺风耳,1002
王五,2003-01-01,张无忌,1003
刘六,2004-01-01,李查清,1004
林七,2005-01-01,龙大民,1005
张三,2009-06-01,杨止痛,1001
另:数值类型保留2位小数:
zc=alltrim(str(应发合计,10,2)) &&10是包括整数、小数点和小数在内的最大长度,2是保留两位小数