| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 421 人关注过本帖
标题:请教随机排序结果写入txt文件
只看楼主 收藏
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:195
专家分:0
注 册:2014-4-10
结帖率:76.74%
  已结贴   问题点数:20  回复次数:1   
请教随机排序结果写入txt文件
先生您好,我有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,'信息提示')
附件: 您没有浏览附件的权限,请 登录注册
2017-05-13 21:17
厨师王德榜
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:426
专家分:1493
注 册:2013-2-16
  得分:14 
先用
TEXT TO VarName  NOSHOW
      TextLines
ENDTEXT
把你要写的字符串写入变量 VarName  中,再用
STRTOFILE(VarName, cFileName ) 把变量写入 txt 文件中 ,自己看一下帮助文件即可理解。
 
2017-05-14 00:23







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.076766 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved