请协助一下： 有这样一段程序：是打开文档的
 第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 编辑 ]

第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)

Wait

谢谢茵梦湖老师！麻烦再想个更好的句子吧，试了几次还是滑过去。软件服务老师：不要光看着不说话啦，别保守的。你们帮了忙,若有幸见面一定好酒请你们。谢谢！

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

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





[ 本帖最后由 茵梦湖 于 2011-12-29 20:48 编辑 ]

楼主的意思是程序执行到第四句便停止了，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

我已经说啦
不是保守，只是传统。