先生您好,我有37个数的原表(37行1列),用代码能将这37个数随机排列后写入"记录表.dbf"中,现在我想将随机排成后这37个数用为一行写入"表.txt"文件中,但这后部分的修改不会了,请先生指点,谢谢


CLEAR
CLOSE  all
SET SAFETY OFF
N=37
 Create table  记录表 ('列1' N(3))
    FOR T=2 TO n
      ALTER table  记录表 ADD ('列'+ALLTRIM(STR(T))) N(3)
    ENDFOR
input '        请输入想搜索的循环次数！：' to 循环次数
*-------------以下一行是最外层循环开始
FOR JJJ=1 TO 循环次数
USE 原表
JS=RECCOUNT()
RAND(-1)
FOR i=1 TO JS
REPLACE 随机数  WITH  RAND()*VAL(SYS(2))*0.0357913
SKIP
ENDFOR
sort to 排序 ON 随机数/A
USE 排序
copy to 排序后.dbf fiel 变量
USE  排序后
 Dimension AB(JS)
select * from 排序后 into array AB
  CLOSE  all   
  *  ----------想把以下部分写入"记录表. dbf"的代码改成写入"表.txt"文件中
USE 记录表
APPEND BLANK
  FOR J=1 TO n
  REPLACE  ('列'+ALLTRIM(STR(J)))  WITH  ab(J)
  ENDFOR
  
  
  ENDFOR
 MESSAGEBOX('本 次 运 行 结 束 ！！',64,'信息提示')

先用
TEXT TO VarName  NOSHOW
      TextLines
ENDTEXT
把你要写的字符串写入变量 VarName  中，再用
STRTOFILE(VarName, cFileName ) 把变量写入 txt 文件中 ，自己看一下帮助文件即可理解。