遇到奇怪的问题，请各位帮忙看看 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 遇到奇怪的问题，请各位帮忙看看

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1122 人关注过本帖

标题：遇到奇怪的问题，请各位帮忙看看

只看楼主加入收藏

pjtyzyq

等　级：业余侠客
威　望：6
帖　子：232
专家分：240
注　册：2016-2-14
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：6

遇到奇怪的问题，请各位帮忙看看

FOR i1=1 TO 60
sj2="data"+LTRIM(STR(i1,2))+".txt"
data_linshi=STR(j（i1）*8-2,4)+"_"+ALLTRIM(Substr(Ttoc(Datetime(),1),5,8))+"," &&j1为全局变量 0<j（i1）<1000
Strtofile(data_linshi,"D:\data\&sj2",1)
ENDFOR
程序多次运行后，在形成的txt文件中有的可以正常显示数据，有的出现乱码。所有txt文件开始都是空的（0字节）
用下面语句反读回来后，数据均正常。
?Filetostr("D:\data\data1.txt" )
?Filetostr("D:\data\data9.txt" )

图片附件: 游客没有浏览图片的权限，请登录或注册

[此贴子已经被作者于2016-10-22 14:30编辑过]

2016-10-22 14:14

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 2 楼

得分:20

STR(j（i1）这是什么意思

FOR i1=1 TO 60
sj2="data"+LTRIM(STR(i1,2))+".txt"
data_linshi=STR(j（i1）*8-2,4)+"_"+ALLTRIM(Substr(Ttoc(Datetime(),1),5,8))+"," &&j1为全局变量 0<j（i1）<1000
Strtofile(data_linshi,"D:\data\&sj2",1)
ENDFOR
上面代码中那里有j1

贴上完整代码

坚守VFP最后的阵地

2016-10-22 15:00

pjtyzyq

等　级：业余侠客
威　望：6
帖　子：232
专家分：240
注　册：2016-2-14

第 3 楼

得分:0

以下是引用sdta在2016-10-22 15:00:56的发言：

STR(j（i1）这是什么意思

FOR i1=1 TO 60
sj2="data"+LTRIM(STR(i1,2))+".txt"
data_linshi=STR(j（i1）*8-2,4)+"_"+ALLTRIM(Substr(Ttoc(Datetime(),1),5,8))+"," &&j1为全局变量 0<j（i1）<1000
Strtofile(data_linshi,"D:\data\&sj2",1)
ENDFOR
上面代码中那里有j1

贴上完整代码

笔误，是j（i1）

2016-10-22 15:04