数据导出到TXT,怎样让每条记录连续起来(比如用逗号隔开),而不是换行啊?

发现代码 2013-06-19 04:24:25
数据导出到TXT,怎样让每条记录连续起来(比如用逗号隔开),而不是换行啊?还有能不能不要其中的空格呢?我问的不是字段间用什么符号隔开的噢。用间接的方法有没有?
...全文
470 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
发现代码 2013-06-20
  • 打赏
  • 举报
回复
感谢各位老师!
十豆三 2013-06-19
  • 打赏
  • 举报
回复
将文本文件转到字符串,再将字符串中的回车[chr(30)]及换行[chr(10)],替换成你要求的字符[逗号],然后将字符串还原成文本文件。 Strtofile(Strtran(Filetostr("文件名.txt"),Chr(13)+Chr(10),","),'新文件名.txt')
lygcw9602 2013-06-19
  • 打赏
  • 举报
回复
CREATE CURSOR T (T1 C(10),T2 N(4),T3 D)
INSERT INTO T VALUES([11],21,DATE()-2)
INSERT INTO T VALUES([12],22,DATE()-1)
INSERT INTO T VALUES([13],23,DATE())
CSTR=[]
SCAN
   CSTR=CSTR+T1+[ ]+TRANSFORM(T2,[@ 9999])+[ ]+TRANSFORM(T3)+IIF(RECNO()<RECCOUNT(),[,],[]) && 不换行
   *CSTR=CSTR+T1+[ ]+TRANSFORM(T2,[@ 9999])+[ ]+TRANSFORM(T3)+IIF(RECNO()<RECCOUNT(),CHR(13)+CHR(10),[]) && 换行 
ENDSCAN
STRTOFILE(CSTR,[AT.TXT])
MODIFY FILE AT.TXT
wwwwb 2013-06-19
  • 打赏
  • 举报
回复
=STRTOFILE(STRTRAN(FILETOSTR("r:\temp\a.txt"),CHR(10),","),"r:\temp\1.txt")
taohua300 2013-06-19
  • 打赏
  • 举报
回复
? Strtran(Filetostr("文件名"),Chr(13) + Chr(10),",")
发现代码 2013-06-19
  • 打赏
  • 举报
回复
导出的txt换行有没有什么特殊的标志,如换行符,如果有把替换并删除不知可以吗?
发现代码 2013-06-19
  • 打赏
  • 举报
回复
如: aaaaaaaaaaaaaaaa bbbbbbbbbbbbbbbb cccccccccccccccc …… 变成: aaaaaaaaaaaaaaaa,bbbbbbbbbbbbbbbb,cccccccccccccccc,…… 导出的txt有没有什么特殊的标志,如换行符,如果有把替换并删除不知可以吗?

2,749

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧