今天有个想法：编写一个带命令行参数的程序，可以直接打开后缀名为EPR的的文件？

有了想法就开始做吧，以前没做过，上网查查，噢，原来都用的是CommandParm()或CommandLine

自己试验下，建立一个项目test,在Application.Open中加入下边一段语句：

string ls_command

ls_command = CommandParm()

if  isnull(ls_command) or (ls_command='') then

else

   OpenWithParm(w_test,ls_command)

end if

Ok！开始测试，

(1)在开始->运行中输入: test a.epr 成功！

(2)双击a.epr，报错：文件路径有错误！

反复测试，还是一样，郁闷了好长时间

后来发现双击时CommandParm()获取的变量内容是：

空格+双引号+文件的完整路径+双引号，

将上边语句修改成：

string ls_command

ls_command = Trim(CommandParm())

if  not (isnull(ls_command) or (ls_command='')) then

   if Pos(ls_command,'"')=1 then

      ls_command = Replace(ls_command,1,1,'')

   end if

   if Mid(ls_command,Len(ls_command),1) ='"' then

      ls_command = Replace(ls_command,Len(ls_command),1,'')

   end if

   OpenWithParm(w_test,ls_command)

end if

再次测试，Ok!成功！

将测试代码中的CommandParm()改成CommandLine也可行！

发表于 @ 2008年06月14日　12:12:00 | 评论( loading... ) | 编辑| 举报| 收藏