Foxtable(狐表)用户栏目专家坐堂 → [求助]如何调用命令窗口写代码,并将写下来的代码保存出来?


  共有2419人关注过本帖树形打印复制链接

主题:[求助]如何调用命令窗口写代码,并将写下来的代码保存出来?

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1486 积分:10582 威望:0 精华:0 注册:2018/10/16 11:42:00
[求助]如何调用命令窗口写代码,并将写下来的代码保存出来?  发帖心情 Post By:2019/6/17 17:24:00 [显示全部帖子]

[求助]如何调用命令窗口写代码(表格内)或者修改代码(表格内),并将写下来的代码保存出来?

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1486 积分:10582 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/6/18 14:15:00 [显示全部帖子]

将代码编辑器里面的保存下来会了。问下打开命令窗口后我怎么把指定内容自动输入进去呢?


 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1486 积分:10582 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/6/18 14:18:00 [显示全部帖子]

代码保存到表格:

 

'CodeRichTextBox.SelectAll
'Dim Proc As New Process
'Proc.WaitForClose = True
'Proc.File = "notepad"
'Proc.Arguments = ProjectPath & "Code.Fox"
'Proc.Start
Dim CodeStr As String = FileSys.ReadAllText(ProjectPath & "Code.Fox")
Dim d As Row = Tables("表A").AddNew()
d("第一列")=CodeStr
'If CodeStr = CodeRichTextBox.Text Then Return Nothing
'CodeRichTextBox.Text = CodeStr

 

 

更换为:    .Text = "保存代码"

 

 

现在只有反向不会了,让表格内容自动输入命令窗口


 回到顶部