以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]新建记事本名等于当前行第一列的值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186476)

--  作者:miaoqingqing
--  发布时间:2023/5/6 9:34:00
--  [求助]新建记事本名等于当前行第一列的值
[求助]新建记事本名等于当前行第一列的值,记事本录入当前单元格的字符

Dim s As String = CurrentTable.value
Dim str  As String = "D:\\"  &   Tables("表A").Current("第一列") & ".txt"
If FileSys.DirectoryExists(str) = False Then
    FileSys.WriteAllText("D:\\记事本名等于表A的第一列值.txt", s, False)
End  If

例如当前位置在表A的第一行的第二列(物资部
           第一列   第二列
第一行   记账     物资部

求助,生成  
1、 记账.txt 
2、 记账.txt  记事本里录入 物资部
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:1.foxdb
狐表不能升级,高版本打不开,代码辛苦贴出来,感谢




[此贴子已经被作者于2023/5/6 9:37:57编辑过]

--  作者:有点蓝
--  发布时间:2023/5/6 9:40:00
--  
这些都是最基础的功能,多看看帮助吧http://www.foxtable.com/webhelp/topics/1592.htm

1、http://www.foxtable.com/webhelp/topics/0331.htm,自行看看DirectoryExistsFileExists的区别

2、FileSys.WriteAllText(strTables("表A").Current("第二列"), False)