今天有个想法:编写一个带命令行参数的程序,可以直接打开后缀名为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也可行!