TC官方合作论坛

标题: 继续问路径问题【必须采纳，望前诶不吝赐教】 [打印本页]

作者: hqy576331411 时间: 2012-5-16 07:52
标题: 继续问路径问题【必须采纳，望前诶不吝赐教】

空间 ansys_apdl_helper
字符型路径
字符型文本
字符型创建路径
整型文件句柄

//创建文件
功能逻辑型按钮1_点击()

路径=浏览框.获得("浏览框0")
文本=编辑框.获得文本("编辑框1")
如果(字符串.长度(路径)==0)
辅助.消息框("请输入文件路径！")
返回假
如果结束
如果(字符串.长度(文本)==0)
辅助.消息框("请输入文件名！")
返回假
否则
创建路径=字符串.连接(路径,文本)
创建路径=字符串.连接(创建路径,".txt")
如果结束
文件句柄=文件.创建(创建路径,"读写")

如果(文件句柄==0)
辅助.消息框("文件创建失败")
返回假
否则
辅助.消息框("文件创建成功")
返回真
如果结束

返回真
功能结束
//创建文件
空间结束

代码如上，经过前辈的指教，我已经会在用户指定路径创建一个指定的文件名的.txt文件了，现在的问题是，如何在创建之后打开这个.txt文件
早上发帖，上午三节课，回来马上采纳，望各位前辈教教我，学了一周，真的很小白

作者: tyuyan 时间: 2012-5-16 08:56
路径是通过浏览框获得的,这个路径地址和文件名称你都是知道的。
你说的打开是你关闭程序之后,你要打开这个文件,还是说,你创建之后,就打开文件。

作者: xuhekkll 时间: 2012-5-16 09:01
整型进程句柄
进程句柄=进程.打开("D:\\MF\\Wow.exe")
如果(进程句柄==0)
辅助.消息框("进程打开失败")
如果结束
//改成你自已的路径和文件名。

作者: TC管理员 时间: 2012-5-16 09:37
如果别人的回复可以帮你解决问题或者提供思路,请采纳为最佳回复。

作者: jlklove 时间: 2012-5-16 09:56
潜水

作者: 战地之王 时间: 2012-5-16 10:25
混分的说

作者: 花开花落 时间: 2012-5-16 10:57
不懂楼主是要干嘛

作者: 无情的冷风 时间: 2012-5-16 11:12
来看下。。

作者: hqy576331411 时间: 2012-5-16 11:19
回复 2楼tyuyan的帖子

通过点击按钮1 来实现创建并打开的功能，创建之后就打开

作者: TakeBobo 时间: 2012-5-16 11:26
打开是打开记事本还是就内容哦！

作者: tyuyan 时间: 2012-5-16 11:29
辅助.命令("D:\\记录.txt",真) 这个就可以了。把路径修改为你自己的路径

作者: hqy576331411 时间: 2012-5-16 11:34
回复 10楼TakeBobo的帖子

打开记事本

作者: hqy576331411 时间: 2012-5-16 11:38
回复 11楼tyuyan的帖子

空间 ansys_apdl_helper
字符型路径
字符型文本
字符型创建路径
整型文件句柄
//创建文件
功能逻辑型按钮1_点击()
路径=浏览框.获得("浏览框0")
文本=编辑框.获得文本("编辑框1")
如果(字符串.长度(路径)==0)
辅助.消息框("请输入文件路径！")
返回假
如果结束
如果(字符串.长度(文本)==0)
辅助.消息框("请输入文件名！")
返回假
否则
创建路径=字符串.连接(路径,文本)
创建路径=字符串.连接(创建路径,".txt")
如果结束
文件句柄=文件.创建(创建路径,"读写")
如果(文件句柄==0)
辅助.消息框("文件创建失败")
返回假
否则
辅助.消息框("文件创建成功")
返回真
如果结束
整型进程句柄
进程句柄=进程.打开(创建路径)
如果(进程句柄==0)
辅助.消息框("进程打开失败")
如果结束
辅助.命令(创建路径,真)
返回真
功能结束
//创建文件
空间结束

改成这样了，依然是只能创建但是没有打开

作者: tyuyan 时间: 2012-5-16 11:42
你要创建路径+你的文件名称。
你自己看下你路径是否自己弄错了。命令是觉得没问题。不信,自己手动建个文件打开试下。

作者: 落叶归根 时间: 2012-5-16 11:47
命令应该是没问题的。看下你路径是否有问题

作者: hqy576331411 时间: 2012-5-16 11:47
回复 14楼tyuyan的帖子

师傅，好用了，是我弄错了，解决了这个问题，大概也就还剩下两三个问题了，多多关注我啊，编出来这个，我就能把这个软件给全班用啦

作者: 战斗之神 时间: 2012-5-16 14:15
来看看。。学习下。。

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)