[求助]ft可以做生成工具吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]ft可以做生成工具吗？

共有6286人关注过本帖树形打印复制链接主题：[求助]ft可以做生成工具吗？

huhu

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/5/4 16:50:00 [只看该作者]

以下是引用大红袍01在2015/5/4 16:31:00的发言：

没你说的那么复杂，你可以用 shell 直接写命令，或者直接用 process 也可以。

比如 shell("ping www.baidu.com", 2)

或者

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口

p.Start()

p.StandardInput.WriteLine("ping www.baidu.com")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)

这个好像执行有点那个效果。p.StandardInput.WriteLine("ping www.baidu.com")就是这里面的"ping www.baidu.com" 咋样才能更换rom_convert.exe的后面3个参数。还有这个也没有指定目录吧。那如何才能找rom_convert.exe呢？请不吝赐教。

huhu

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/5/4 16:50:00 [只看该作者]

以下是引用Bin在2015/5/4 16:44:00的发言：
你可以动态拼接字符串啊.不用写死啊.可以用文本框输入.或者获取.怎么样控制都行

哦。对，应该动态合成字符串。我试试啊。看看效果能否实现。

大红袍01

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：518 威望：0 精华：0 注册：2015/5/3 21:12:00

Post By：2015/5/4 16:54:00 [只看该作者]

1、看楼上

2、你可以写全路径，或者把rom_convert.exe放在和项目一起的目录下，然后用 p.StartInfo.FileName = projectPath & "rom_convert.exe"

huhu

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/5/4 17:24:00 [只看该作者]

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()

p.StandardInput.WriteLine("C:\Users\基永\Desktop\bootrom(0.3.7)_2108POE(920-7472)\rom_convert.exe " & e.Form.Controls("TextBox1").Text & " " & e.Form.Controls("TextBox2").Text & " " & e.Form.Controls("DropBox1").Text, 1)-----显示命令了，但为啥没执行rom_convert命令？，没结果。

p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)

此主题相关图片如下：没执行exe.png

Bin

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/4 17:25:00 [只看该作者]

用SHELL命令更简便

huhu

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/5/4 17:32:00 [只看该作者]

以下是引用Bin在2015/5/4 17:25:00的发言：
用SHELL命令更简便

Shell("C:\Users\基永\Desktop\bootrom(0.3.7)_2108POE(920-7472)\rom_convert.exe " & e.Form.Controls("TextBox1").Text & " " & e.Form.Controls("TextBox2").Text & " " & e.Form.Controls("DropBox1").Text, 1)---我试过了啊。可是不知咋地，闪了一下框，然后啥也没有了，也没生成结果。

大红袍01

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：518 威望：0 精华：0 注册：2015/5/3 21:12:00

Post By：2015/5/4 17:36:00 [只看该作者]

加入此代码 output.show(("C:\Users\基永\Desktop\bootrom(0.3.7)_2108POE(920-7472)\rom_convert.exe " & e.Form.Controls("TextBox1").Text & " " & e.Form.Controls("TextBox2").Text & " " & e.Form.Controls("DropBox1").Text)

然后在foxtable的命令窗口，拷贝对应的字符串，到cmd窗口执行看看