pb接受参数运行,该如何解决

pb接受参数运行
PB程序运行时用CommandParm()来接受程序运行参数。

例如他们系统中有个类来解析这个参数；
类的名字叫u_suppertclass，解析方法是checkparm()

1、pb运行程序并传递参数例子：

//登陆到器械库
//1:user ;2:ini文件;3：登陆系统；4登录仓库
ls_rfile=uo_support.getuserid()+' '+'his.ini'+' '+'23'+' '+'04'
run("wzgl.exe " + ls_rfile,Maximized!)

2、被调用程序解析参数的例子：

if uo_support.checkparm()=false then
halt close
end if

其中uo_support.checkparm()的方法：

string ls_cmd, ls_arg[]//1:user ;2:ini文件;3：登陆系统；4登录仓库
integer i, li_argcnt
ls_cmd = Trim(CommandParm())
int a

li_argcnt = 1

DO WHILE Len(ls_cmd) > 0
    i = Pos( ls_cmd, " ")
    if i = 0 then i = Len(ls_cmd) + 1
    ls_arg[li_argcnt] = Left(ls_cmd, i - 1)
    li_argcnt = li_argcnt + 1
    ls_cmd = Replace(ls_cmd, 1, i, "")
LOOP

for a=1 to UpperBound(ls_arg)
if trim(ls_arg[a])="" or isnull(trim(ls_arg[a])) then
messagebox('提示信息','参数传递不正确！程序将退出')
return false
exit
end if
next

//为登陆的系统设置一些全局变量
in_SystemID=integer(ls_arg[3])
is_UserID=ls_arg[1]
is_IniFileName=ls_arg[2]
is_Warehouse=ls_arg[4]
//药房code
in_yfcode=integer(ls_arg[4])

return true

------解决方案--------------------
pb接受参数运行,该如何解决

发这段代码的目的是？
------解决方案--------------------
是某家his公司的产品。他们的源代码满天飞。但是没有见到哪家公司使用这些源代码做起来的。关键是理念不一样
------解决方案--------------------
这是给分让我们学习PB怎么执行带命令行参数程序么？
------解决方案--------------------

引用:

主要是自己留个学习记录，大家见笑了。

哦纳尼。楼主可以结贴了。 pb接受参数运行,该如何解决

------解决方案--------------------
结贴吧都分点分吧···
------解决方案--------------------
结贴吧，大家收分，你好我也好
------解决方案--------------------
LZ好人,结贴给分吧...

pb接受参数运行,该如何解决

相关推荐