以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]批量生成TXT文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=188876)

--  作者:bzqlyj
--  发布时间:2023/10/27 11:06:00
--  [求助]批量生成TXT文件
如何通过表格批量生成TXT文件并按每条记录导出一个TXT
--  作者:有点蓝
--  发布时间:2023/10/27 11:21:00
--  
遍历处理即可,http://www.foxtable.com/webhelp/topics/1438.htmhttp://www.foxtable.com/webhelp/topics/0345.htm

比如

For Each r As Row In Tables("订单").Rows
FileSys.WriteAllText("C:\\data\\" & r("编号") & ".Txt"r("第一列") & "," & r("第二列") & ...........True)
Next

--  作者:bzqlyj
--  发布时间:2023/10/30 17:37:00
--  回复:(有点蓝)遍历处理即可,http://www.foxtable....
FileSys.WriteAllText("C:\\data\\" & r("编号") & ".Txt"r("第一列") & "," & r("第二列") &r("第三列") & "," & r("第四列") & ...........True)
r("第一列")={
r("第二列")="h": "2023/10/26",
r("第三列")="me": "1.TXT"
r("第四列")=}

插入的内容在TXT内显示为{"h": "2023/10/26","me": "1.TXT"}

如何修改为以下格式,(如何换行)
{
  "h": "2023/10/26",
  "me": "1.TXT"  
}

--  作者:有点蓝
--  发布时间:2023/10/30 19:57:00
--  
vbcrlf:http://www.foxtable.com/webhelp/topics/0347.htm

FileSys.WriteAllText("C:\\data\\" & r("编号") & ".Txt"r("第一列") & vbcrlf & r("第二列") & "," &  vbcrlf r("第三列")............

--  作者:有点蓝
--  发布时间:2023/10/30 19:57:00
--  
如果要合成json数据,建议使用这种方法:http://www.foxtable.com/mobilehelp/topics/0167.htm