| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 600 人关注过本帖
标题:请协助一下:
只看楼主 加入收藏
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:7 
请协助一下:

 请协助一下: 有这样一段程序:是打开文档的
 第1行:close all
 第2行:DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGER hwnd,STRING lpVerb,....&& api声明(略)
 第3行:=Shellexecute(0,"Open","word文档文件","","",1) && 打开一个文档  
 第4行: 这一行什么语句好?
第5行:将这个修改的word文档文件,存入表中。
 
 我的意思是:只寻求第4行的语句。
 能够让文档,暂时停留在第4行的位置上,不影响修改后的文档能在第5行存放。即:不让程序直接滑到第5行。能有好语句吗?
 (read event 不太合适。不想更换整个程序段。放在控件里试过,界面不理想) 谢谢!
 
  
 


[ 本帖最后由 qingfameng 于 2011-12-27 22:32 编辑 ]
搜索更多相关主题的帖子: 声明 close word 
2011-12-27 22:18
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:1 

第5行: word文档保存时, 会自动产生1个.bak文件~ 你将这个.bak文件 转换(rename)为 你第4行的文件名~

1.txt 保存-->1.txt(暂rename为2.txt),1.bak -->1.bak(rename为1.txt) --> 退出时2.txt(rename为1.txt)
2011-12-27 22:52
软件服务
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:344
专家分:736
注 册:2011-12-23
收藏
得分:8 
Wait
2011-12-28 20:15
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
谢谢茵梦湖老师!麻烦再想个更好的句子吧,试了几次还是滑过去。软件服务老师:不要光看着不说话啦,别保守的。你们帮了忙,若有幸见面一定好酒请你们。谢谢!
2011-12-29 20:00
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 

说实话, 我不是很明白 你到底要达到怎样的目的~

一般这类问题, 大都 要么利用备份文件, 要么利用 selText/selStart/selLenth 来实现相关要求~





[ 本帖最后由 茵梦湖 于 2011-12-29 20:48 编辑 ]
2011-12-29 20:46
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:5 
楼主的意思是程序执行到第四句便停止了,3楼给出的是wait命令。

认真看书学习,弄通Fox主义。
2011-12-29 21:03
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:6 
以下是引用wzxc在2011-12-29 21:03:13的发言:

楼主的意思是程序执行到第四句便停止了,3楼给出的是wait命令。


哦, 明白了, 原来是这个意思~

如果是这样, 我个人喜欢用messagebox()~


**
strto(lsc,"&temp\ls源.txt")
if file(lssoft)
   strto(repl(chr(10)+"*(簡繁)*",9),"&temp\ls源.txt",.t.)
   run/n3 "&lssoft" &temp\ls源.txt
      messageb(" ( 简/繁转换 )后, 存盘退出word或简繁转换器... "," ( 简/繁转换 )提示窗")
else
   decl inte ShellExecute in shell32.dll inte hwnd,stri, stri tmFile, stri,stri,inte
   ShellExecute(0,"open","ls源.txt",0,0,1)
      messageb(" ( 源文本 )处理后, 存盘退出编辑器... "," ( 源文本.编辑 )提示窗")
endif
2011-12-29 21:34
软件服务
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:344
专家分:736
注 册:2011-12-23
收藏
得分:0 
回复 4楼 qingfameng
我已经说啦
不是保守,只是传统。
2011-12-30 23:17
快速回复:请协助一下:
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043385 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved