PB动态脚本解释器

╰+攻爆jí腚メ 2022-09-18 14:47 191阅读 0赞

**PB动态脚本解释器**

当你看到VB、VFP等开发语言提供的强大的宏执行功能，是不是很羡慕呢？当你寻遍PB的帮助、关于PB开发的书籍或网站而不可得的时候，是不是感到有一丝的遗憾？如果你看到这篇文章，你应该感到振奋，因为你终于可以解决这个问题，而且解决问题的思路既是如此简单、代码既是如此简短。如果再加上你的智慧，应该比我的解决方法更漂亮。        先让我们来了解一些基本知识。

一．代码的载体

在PB中，只有三个地方可以存放代码，那就是函数、事件、属性。这里所指的函数包括有返回值的通常意义下的函数和无返回值的过程以及声明的WINAPI函数，所指的事件指在对象中定义的处理程序，所指的属性指PB系统属性之外的实例变量、共享变量、全局变量。函数和事件是可以用来调用执行的，属性则只能用来赋值和取值。通常我们是在函数或事件中编写代码。

二．对象的创建

如果对象类型是已知的，可以使用CREATE o b j e c ttype 来创建对象，如果对象类型是动态的，可以使用CREATE USING o b j e c ttypestring来创建对象。

三．对象函数的调用方式

如果调用一个已知类型的对象的函数或事件，通常采用静态模式，也可采用动态模式，如果调用一个动态创建的对象的函数或事件，则必须采用动态模式，否则编译出错。采用动态模式调用函数是在函数前加dynamic 关键字。读者可查阅PB帮助。

四．库文件的搜索

PB中用于编程的对象是保存在PBL、PBD、DLL中的，如果想要使库文件中的对象在应用程序运行时有效，常用的方法是直接将该PBL编译进去或者说使该PBL在库搜索列表中。如果需要在运行状态下改变库文件搜索列表，PB提供了SetLibraryList和AddToLibraryList两个函数。SetLibraryList函数只能在应用对象的open事件脚本中使用，否则应用程序会崩溃，AddToLibraryList为PB9新增的函数，用于将新文件加入到库文件搜索列表中，这两个函数都是只能在编译环境下有效。

五．PB库文件的创建与销毁

PB提供了LibraryCreate函数用于创建库文件，提供LibraryDelete、FileDelete函数用于删除库文件。

六．PB实体的导入

PB提供了LibraryImport函数用于根据对象语法创建PB实体并导入到库文件中，但该函数目前只支持数据窗口对象类型的导入。不过，PB提供了相应的WINAPI函数支持其它类型实体的导入，这些相关的WINAPI包括在PBORCX0.DLL中（不同的PB版本有不同的文件名称，如PBORC90.DLL、PBORC80.DLL）。有关实体的导入的WINAPI包括PBORCA\_SessionOpen、PBORCA\_SessionClose、PBORCA\_SessionSetLibraryList、PBORCA\_SessionSetCurrentAppl、PBORCA\_CompileEntryImport等，读者可以到Sybase网站找ORCA Guide相应文章寻求支持。

七．PB实体的查找使用FindClassDefinition或FindFunctionDefinition或LibraryDirectory可以在库文件中查找PB实体是否存在，使用FindClassDefinition或FindFunctionDefinition性能要好。

以下讲开发思路。

一．创建临时库文件

1.       取临时目录作为库文件的存放目录

2.       取待创建的临时库文件名称，保证不与已有文件重名

3.       使用LibraryCreate函数创建临时库文件

二．构造用于导入库文件的临时PB实体语法

1． 取临时PB实体名称，保证不与库文件列表中已有PB实体重名

2． 构造临时PB实体语法，区分函数和过程

三．将临时PB实体导入临时库文件

1． 取库文件列表和应用对象所在pbl

2． 将实际不存在的库文件从库文件列表中删除，目的是使调用PBORCA\_SessionSetLibraryList成功

3． 调用PBORCA\_CompileEntryImport将临时PB实体导入临时库文件

四．将临时库文件加入到库文件搜索列表

1．调用AddToLibraryList加入新文件到库文件搜索列表

五．创建临时PB实体所对应的对象并调用其函数以执行动态脚本

1． 使用CREATE USING o b j e c ttypestring语句创建对象

2． 通过动态调用对象的of\_exec函数执行动态脚本，区分返回值类型

六．销毁所有临时对象

1．调用LibraryDelete函数删除创建的临时库文件

以下讲我在开发时遇到的一些矛盾或问题。

一．代码是逐行解释还是让PB编译器去解释有些开发人员试图对动态脚本自行逐行解释，这是很困难的事情。一行代码如果脱离它的语境去执行，可能会产生错误的结果，即便你对PB所支持的函数全部做出解释，使用PB开发出来的对象、函数、事件等，你又如何去解释？这等同于你要花很大力气去编写一个PB编译器，除非你与PB编译器的开发团队合作，否则你很难获得成功。所以你必须想办法让PB编译器去解释。既然每行代码不能脱离其它代码而执行，那就创建一个函数或事件，让这个函数或事件包括你想写的所有代码。而函数或事件又不能脱离对象而存在，所以你必须想办法动态创建对象以及函数或事件，对象的声明必须依赖于库文件中的PB实体，由此推出关键是创建PB实体。

二．如何创建PB实体前面已讲过要使用PBORCX0.DLL中的WINAPI函数来创建并导入实体，这项技术并不难，在sybase的网站或随便狗狗（百度）一下就能出来一大把。

三．创建的PB实体是存放在现有库文件中还是新文件中再导入我最初的想法是放在现有库文件中，这样就不必花费时间在创建库文件和删除库文件的执行上，结果发现，创建是成功，但运行时PB就是不“认识”我创建的PB实体，一创建该实体的对象就报错，想来PB在程序启动时就读取库文件中有哪些实体形成列表，在没有改变库文件列表之前，其实体列表不会改变，这样对新建的实体就视而不见了。所以我不得不试着新建一个PBL，在新建的PBL中创建PB实体，然后使用AddToLibraryList将新建的PBL包括进来，这一试果然成功。

四．使用数据窗口的Describe调用全局函数还是其它方式来取得返回值大家都知道，使用数据窗口的Describe函数可以调用全局函数，但是它有很多的局限性，全局函数必须有简单类型的返回值，所有参数只能是简单数据类型而且不能通过参考传值。如果在需要调用的地方直接使用新建对象的函数将不受这些限制。

五．如何进行垃圾对象的清理既然每次执行动态脚本要创建PB实体，如果执行得多了，就有很多垃圾对象，所以应进行清理。可以通过LibraryDelete函数或FileDelete删除库文件。有意思的是，一旦创建PB实体，即便你删除了，使用FindClassDefinition或FindFunctionDefinition还是能够找到，但你想使用该实体创建对象则失败，这再次说明PB在程序启动时就读取库文件中有哪些实体形成列表，在没有改变库文件列表之前，其实体列表不会改变。

以下是所附代码的几点说明

一．所附代码是在PB9环境下开发的，程序运行时必须有PBORC90.DLL，如果改成PB其它版本，请将nvo\_pbcompiler中WINAPI函数所使用的动态库做相应修改。

二．nvo\_pbcompiler用于创建PB实体，这是PB动态脚本解释器的核心函数；f\_execpbscript()用于执行一段PB脚本的样例代码函数，返回值类型为字符串，如果要使用到其它场合，读者可自行编写函数，思路类似；w\_pbcompiler\_test为一个用来执行PB脚本的样例界面窗口；其它函数有各自功能。

三．如果想运行PB动态脚本编译器，请先将所有代码分对象导入库文件，然后编译，PB动态脚本编译器在PB开发环境下无效。

四．为了程序方面的简化，有些所使用的全局函数请参考作者的其它文章。

五．所附代码仅为脚本没有参数的情况下有效，如果你想代码有参数，只需要简单地对脚本语法作些改变就可，当然前台需要用户定义参数。

六．本PB动态脚本解释器可执行所有有效的PB代码，例如访问全局变量、使用PB所有的系统函数、使用程序员开发的自定义函数、打开窗口、访问菜单、使用数据窗口等。

七．通常将本PB动态脚本解释器嵌入到现有的使用PB开发出来的系统而不是单独使用，这样可以加载很多免编译的外挂程序。

八．如果再拓宽它的应用范围，你甚至可以做到只需要一个框架程序，其它代码全部动态加载和执行，这样就只需一次编译，升级和维护就变得非常简单，不过你要考虑系统的可用性、系统性能和系统的稳定性等。

附完整源代码

一．pbcompiler

$PBExportHeader$pbcompiler.sra

$PBExportComments$PB动态脚本解释器应用对象

forward

global type pbcompiler from application

end type

global transaction sqlca

global dynamicdescriptionarea sqlda

global dynamicstagingarea sqlsa

global error error

global message message

end forward

global variables

end variables

global type pbcompiler from application

string appname = "pbcompiler"

end type

global pbcompiler pbcompiler

on pbcompiler.create

appname="pbcompiler"

message=create message

sqlca=create transaction

sqlda=create dynamicdescriptionarea

sqlsa=create dynamicstagingarea

error=create error

end on

on pbcompiler.destroy

destroy(sqlca)

destroy(sqlda)

destroy(sqlsa)

destroy(error)

destroy(message)

end on

event open;open(w_pbcompiler_test)

end event

二.f_execpbscript

$PBExportHeader$f_execpbscript.srf

$PBExportComments$执行动态脚本的样例函数

global type f_execpbscript from function_object

end type

forward prototypes

global function string f_execpbscript (string as_returntype, string as_pbscript)

end prototypes

global function string f_execpbscript (string as_returntype, string as_pbscript);/*******************************************************************

函数名称：f_execpbscript()

参数:     as_returntype string 返回值类型

as_pbscript string 动态代码

返回值：  string 用户自定义或错误信息

功能描述：执行动态代码(只返回字符串)

创建人：  康剑民

创建日期：2007-02-12

版本号：  V1.0

*******************************************************************/

nvo_pbcompiler lnv_pbcompiler

nonvisualobject luo_pbcompiler

string ls_entryname,ls_libraryname

string ls_return

any la_return

lnv_pbcompiler = create nvo_pbcompiler

//创建实体对象

if lnv_pbcompiler.of_createentry(as_returntype,as_pbscript,ls_libraryname,ls_entryname) = 1 then

if not isnull(FindClassDefinition(ls_entryname) ) then

luo_pbcompiler = create using ls_entryname

choose case lower(as_returntype)

case 'any','blob','boolean','char','character','date','datetime','dec','decimal','double','int','integer','long','real','string','time','uint','ulong','unsignedint','unsignedinteger','unsignedlong'

la_return = luo_pbcompiler.dynamic of_exec()//执行动态代码

ls_return = string(la_return)

case '','none'

luo_pbcompiler.dynamic of_exec()//执行动态代码

ls_return = "none"

case else

luo_pbcompiler.dynamic of_exec()//执行动态代码

ls_return = "result is disabled"

end choose

if isvalid(luo_pbcompiler) then destroy luo_pbcompiler

else

ls_return = "error"

end if

else

ls_return = "error"

end if

if isvalid(lnv_pbcompiler) then destroy lnv_pbcompiler

LibraryDelete(ls_libraryname)

return ls_return

end function

三.f_parse

$PBExportHeader$f_parse.srf

$PBExportComments$分解字符串到数组

global type f_parse from function_object

end type

forward prototypes

global function long f_parse (readonly string as_text, readonly string as_sep, ref string as_list[])

end prototypes

global function long f_parse (readonly string as_text, readonly string as_sep, ref string as_list[]);/*******************************************************************

函数名称：f_parse()

参数:     as_text string 来源字符串

as_sep string 分隔字符

as_list[] ref string 分析后形成的字符串数组

返回值：  long 分析后形成的数组元素个数

功能描述：分析字符串到一个数组中

创建人：  康剑民

创建日期：2002-11-19

版本号：  V1.0

*******************************************************************/

long i,ll_pos

string ls_null[],ls_text

ls_text = as_text

as_list = ls_null

i=0

ll_pos = posw(lower(ls_text),lower(as_sep))

do while ll_pos > 0

i ++

as_list[i]=leftw(ls_text,ll_pos - 1)

ls_text=midw(ls_text,ll_pos + lenw(as_sep),lenw(ls_text))

ll_pos = posw(lower(ls_text),lower(as_sep))

loop

as_list[i + 1] = ls_text

return upperbound(as_list[])

end function

四.f_replacetext

$PBExportHeader$f_replacetext.srf

$PBExportComments$替换字符串

global type f_replacetext from function_object

end type

forward prototypes

global function string f_replacetext (readonly string as_source, readonly string as_oldtag, readonly string as_newtag, readonly long al_seq)

end prototypes

global function string f_replacetext (readonly string as_source, readonly string as_oldtag, readonly string as_newtag, readonly long al_seq);/*******************************************************************

函数名称：f_replacetext()

参数:     as_source string 源字符串

as_oldtag string 待替换特征字符串

as_newtag string 替换后特征字符串

al_seq long 第几个特征替换字符串需替换，0表示全部

返回值：  string 替换后字符串

功能描述：用一特征字符串替换指定字符串中的特征字符串,参数al_seq=0时表示全部替换

创建人：  康剑民

创建日期：2002-11-19

版本号：  V1.0

*******************************************************************/

long ll_start_pos=1,ll_len_old_tag,i = 0

string ls_left,ls_return='',ls_source=''

ls_source = as_source

ll_len_old_tag = lenw(as_oldtag)

ll_start_pos = posw(lower(ls_source),lower(as_oldtag),1)

if al_seq = 0 then

DO WHILE ll_start_pos > 0

ls_left = leftw(ls_source,ll_start_pos - 1) + as_newtag

ls_return = ls_return + ls_left

ls_source = midw(ls_source,ll_start_pos + lenw(as_oldtag),lenw(ls_source))

ll_start_pos = posw(lower(ls_source),lower(as_oldtag),1)

LOOP

elseif al_seq > 0 then

DO WHILE ll_start_pos > 0

i ++

if al_seq = i then

ls_left = leftw(ls_source,ll_start_pos - 1) + as_newtag

ls_return = ls_return + ls_left

ls_source = midw(ls_source,ll_start_pos + lenw(as_oldtag),lenw(ls_source))

ll_start_pos = posw(lower(ls_source),lower(as_oldtag),1)

end if

loop

end if

ls_return = ls_return + ls_source

return ls_return

end function

五.nvo_pbcompiler

$PBExportHeader$nvo_pbcompiler.sru

$PBExportComments$PB动态脚本解释器

forward

global type nvo_pbcompiler from nonvisualobject

end type

end forward

global type nvo_pbcompiler from nonvisualobject

end type

global nvo_pbcompiler nvo_pbcompiler

type prototypes

//打开一个会话

Function long SessionOpen () Library "PBORC90.DLL" Alias for "PBORCA_SessionOpen"

//关闭一个会话

Subroutine SessionClose ( long hORCASession ) Library "PBORC90.DLL" Alias for "PBORCA_SessionClose"

//设置当前会话的库清单

Function int SessionSetLibraryList ( long hORCASession, ref string pLibNames[], int iNumberOfLibs) Library "PBORC90.DLL" Alias for "PBORCA_SessionSetLibraryList"

//设置当前会话对应的应用

Function int SessionSetCurrentAppl ( long hORCASession, string lpszApplLibName, string lpszApplName ) Library "PBORC90.DLL" Alias for "PBORCA_SessionSetCurrentAppl"

//导入并编译实体

Function int CompileEntryImport ( long hORCASession, string lpszLibraryName, string lpszEntryName, long otEntryType, string lpszComments, string lpszEntrySyntax, long lEntrySyntaxBuffSize, long pCompErrorProc, long pUserData ) Library "PBORC90.DLL" Alias for "PBORCA_CompileEntryImport"

//取临时目录

Function long GetTempPath(long nBufferLength, ref string lpBuffer)  Library "kernel32" Alias for "GetTempPathA"

//获取一个已装载模板的完整路径名称

FUNCTION ulong GetModuleFileName(ulong hModule,ref string lpFileName,ulong nSize) LIBRARY "kernel32.dll" ALIAS FOR "GetModuleFileNameA"

end prototypes

type variables

end variables

forward prototypes

public function string of_gettemppath ()

public function string of_getapppath ()

public function integer of_createentry (string as_returntype, string as_pbscript, ref string as_libraryname, ref string as_entryname)

end prototypes

public function string of_gettemppath ();/*******************************************************************

函数名称：of_gettemppath()

参数:     无

返回值：  string 临时路径

功能描述：取临时路径

创建人：  康剑民

创建日期：2006-12-26

版本号：  V1.0

*******************************************************************/

string ls_path

ulong lu_size=256

ls_path=space(256)

GetTempPath(lu_size,ls_path)

return trimw(ls_path)

end function

public function string of_getapppath ();/*******************************************************************

函数名称：of_getapppath()

参数:     无

返回值：  string 应用程序路径

功能描述：取应用程序路径

创建人：  康剑民

创建日期：2002-11-22

版本号：  V1.0

*******************************************************************/

string ls_apppath

ls_apppath=space(256)

GetModuleFileName(Handle(GetApplication()),ls_apppath,256)

ls_apppath=Reverse(ls_apppath)

ls_apppath=Reverse(midw(ls_apppath,posw(ls_apppath,'\',1)))

return ls_apppath

end function

public function integer of_createentry (string as_returntype, string as_pbscript, ref string as_libraryname, ref string as_entryname);/*******************************************************************

函数名称：of_createentry()

参数:     as_returntype string 返回值类型

as_pbscript string 动态代码

as_libraryname ref string 创建的库文件名称

as_entryname ref string 创建的实体名称

返回值：  long 是否成功(1表示成功,-1表示失败)

功能描述：根据动态代码创建实体

创建人：  康剑民

创建日期：2007-02-12

版本号：  V1.0

*******************************************************************/

long ll_sid//会话编号

long ll_index//对象序号

string ls_librarylist[]//库文件列表

string ls_librarylist_tmp[]//库文件列表(临时)

string ls_temp_libraryname//临时库文件名称

string ls_temp_path//临时目录

string ls_syntax//实体语法

string ls_app_libraryname//应用程序所在库文件名称

integer li_result//结果

string ls_entryname//对象名称

classdefinition lcd_app//应用程序类定义对象

string ls_librarylist_files//库文件

integer i,j//临时变量

//开发环境下直接退出

if handle(GetApplication()) <= 0 then return -1

//取库文件列表

ls_librarylist_files = getlibrarylist ()

//取应用对象所在pbl

lcd_app = getapplication().classdefinition

ls_app_libraryname = lcd_app.libraryname

ls_temp_path = this.of_gettemppath( )//取临时目录

//取待创建的临时库文件名称

ll_index = 1

ls_temp_libraryname = ls_temp_path + "temp"+string(ll_index) + ".pbl"

do while fileexists(ls_temp_libraryname) or posw(","+ls_librarylist_files+",",","+ls_temp_libraryname+",") > 0

ll_index ++

ls_temp_libraryname = ls_temp_path + "temp"+string(ll_index) + ".pbl"

loop

//创建临时库文件

LibraryCreate(ls_temp_libraryname,"临时库文件")

f_parse(ls_librarylist_files,',',ls_librarylist)//分解字符串到数组

//判断库文件是否存在并形成新列表

j = 0

for i = 1 to upperbound(ls_librarylist)

if fileexists(ls_librarylist[i]) then

j ++

ls_librarylist_tmp[j] = ls_librarylist[i]

end if

ls_librarylist = ls_librarylist_tmp

ls_librarylist[upperbound(ls_librarylist)+1] = ls_temp_libraryname

ll_sid = SessionOpen()//打开一个会话

//设置当前会话的库清单

li_result = SessionSetLibraryList (ll_sid, ls_librarylist, upperbound(ls_librarylist))

if li_result = 0 then

//设置当前会话对应的应用

li_result = SessionSetCurrentAppl (ll_sid, ls_app_libraryname, getapplication().appname )

if li_result = 0 then

//取实体名称(保证不重复)

ll_index = 1

do while not isnull(FindClassDefinition("nvo_"+string(ll_index)))

ll_index ++

loop

ls_entryname = "nvo_"+string(ll_index)

//实体声明

ls_syntax = "$PBExportHeader$"+ls_entryname+".sru"+"~r~n"&

+ "forward"+"~r~n"&

+ "global type "+ls_entryname+" from nonvisualobject"+"~r~n"&

+ "end type"+"~r~n"&

+ "end forward"+"~r~n"&

+ "~r~n"&

+ "global type "+ls_entryname+" from nonvisualobject"+"~r~n"&

+ "end type"+"~r~n"&

+ "global "+ls_entryname+" "+ls_entryname+""+"~r~n"&

+ "~r~n"&

+ "forward prototypes"+"~r~n"

//区分函数还是过程

if trimw(lower(as_returntype)) = 'none' or trimw(lower(as_returntype)) = '' then

ls_syntax = ls_syntax + "public subroutine of_exec ()"+"~r~n"&

+ "end prototypes"+"~r~n"&

+ "~r~n"&

+ "public subroutine of_exec ();"+as_pbscript+"~r~n"&

+ "end subroutine"

else

ls_syntax = ls_syntax + "public function " + as_returntype + " of_exec ()"+"~r~n"&

+ "end prototypes"+"~r~n"&

+ "~r~n"&

+ "public function " + as_returntype + " of_exec ();"+as_pbscript+"~r~n"&

+ "end function"

end if

//实体语法尾部

ls_syntax = ls_syntax + "~r~n" + "on " + ls_entryname + ".create"+"~r~n"&

+ "call super::create"+"~r~n"&

+ "TriggerEvent( this, ~"constructor~" )"+"~r~n"&

+ "end on"+"~r~n"&

+ "~r~n"&

+ "on " + ls_entryname + ".destroy"+"~r~n"&

+ "TriggerEvent( this, ~"destructor~" )"+"~r~n"&

+ "call super::destroy"+"~r~n"&

+ "end on"

//导入并编译实体

li_result = CompileEntryImport (ll_sid, ls_temp_libraryname, ls_entryname, 6 , "comment - new object", ls_syntax, len(ls_syntax), 0, 0 )

end if

SessionClose(ll_sid)//关闭一个会话

as_libraryname = ls_temp_libraryname

as_entryname=ls_entryname

//加入新文件到库文件搜索列表

AddToLibraryList(ls_temp_libraryname)

if li_result = 0 then

return 1

else

return -1

end if

end function

on nvo_pbcompiler.create

call super::create

TriggerEvent( this, "constructor" )

end on

on nvo_pbcompiler.destroy

TriggerEvent( this, "destructor" )

call super::destroy

end on

六.w_pbcompiler_test

$PBExportHeader$w_pbcompiler_test.srw

$PBExportComments$PB动态脚本解释器测试窗口

forward

global type w_pbcompiler_test from window

end type

type st_returnvalue from statictext within w_pbcompiler_test

end type

type st_returntype from statictext within w_pbcompiler_test

end type

type st_script from statictext within w_pbcompiler_test

end type

type sle_returnvalue from singlelineedit within w_pbcompiler_test

end type

type cb_exit from commandbutton within w_pbcompiler_test

end type

type sle_returntype from singlelineedit within w_pbcompiler_test

end type

type mle_script from multilineedit within w_pbcompiler_test

end type

type cb_ok from commandbutton within w_pbcompiler_test

end type

end forward

global type w_pbcompiler_test from window

integer width = 1979

integer height = 1100

boolean titlebar = true

string title = "PB脚本解释器(测试)"

boolean controlmenu = true

boolean minbox = true

boolean maxbox = true

boolean resizable = true

long backcolor = 67108864

string icon = "AppIcon!"

boolean center = true

st_returnvalue st_returnvalue

st_returntype st_returntype

st_script st_script

sle_returnvalue sle_returnvalue

cb_exit cb_exit

sle_returntype sle_returntype

mle_script mle_script

cb_ok cb_ok

end type

global w_pbcompiler_test w_pbcompiler_test

type prototypes

end prototypes

type variables

end variables

on w_pbcompiler_test.create

this.st_returnvalue=create st_returnvalue

this.st_returntype=create st_returntype

this.st_script=create st_script

this.sle_returnvalue=create sle_returnvalue

this.cb_exit=create cb_exit

this.sle_returntype=create sle_returntype

this.mle_script=create mle_script

this.cb_ok=create cb_ok

this.Control[]={this.st_returnvalue,&

this.st_returntype,&

this.st_script,&

this.sle_returnvalue,&

this.cb_exit,&

this.sle_returntype,&

this.mle_script,&

this.cb_ok}

end on

on w_pbcompiler_test.destroy

destroy(this.st_returnvalue)

destroy(this.st_returntype)

destroy(this.st_script)

destroy(this.sle_returnvalue)

destroy(this.cb_exit)

destroy(this.sle_returntype)

destroy(this.mle_script)

destroy(this.cb_ok)

end on

type st_returnvalue from statictext within w_pbcompiler_test

integer x = 9

integer y = 608

integer width = 297

integer height = 60

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Arial"

long textcolor = 33554432

long backcolor = 67108864

string text = "返回值:"

boolean focusrectangle = false

end type

type st_returntype from statictext within w_pbcompiler_test

integer x = 9

integer y = 476

integer width = 297

integer height = 60

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Arial"

long textcolor = 33554432

long backcolor = 67108864

string text = "返回值类型:"

boolean focusrectangle = false

end type

type st_script from statictext within w_pbcompiler_test

integer x = 9

integer y = 12

integer width = 206

integer height = 60

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Arial"

long textcolor = 33554432

long backcolor = 67108864

string text = "PB脚本:"

boolean focusrectangle = false

end type

type sle_returnvalue from singlelineedit within w_pbcompiler_test

integer x = 334

integer y = 608

integer width = 1582

integer height = 104

integer taborder = 30

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Arial"

long textcolor = 33554432

borderstyle borderstyle = stylelowered!

end type

type cb_exit from commandbutton within w_pbcompiler_test

integer x = 1664

integer y = 856

integer width = 242

integer height = 104

integer taborder = 50

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Arial"

string text = "退出"

end type

event clicked;close(parent)

end event

type sle_returntype from singlelineedit within w_pbcompiler_test

integer x = 334

integer y = 476

integer width = 1582

integer height = 104

integer taborder = 20

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Arial"

long textcolor = 33554432

borderstyle borderstyle = stylelowered!

end type

type mle_script from multilineedit within w_pbcompiler_test

integer x = 334

integer y = 12

integer width = 1582

integer height = 432

integer taborder = 10

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Arial"

long textcolor = 33554432

boolean vscrollbar = true

boolean autovscroll = true

borderstyle borderstyle = stylelowered!

end type

type cb_ok from commandbutton within w_pbcompiler_test

integer x = 1417

integer y = 856

integer width = 242

integer height = 104

integer taborder = 40

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Arial"

string text = "执行"

end type

event clicked;sle_returnvalue.text = f_execpbscript(sle_returntype.text,mle_script.text)

end event

写作日期：2007-03-31

PB动态脚本解释器

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关 Shell-基础（一）：Shell解释器、Shell脚本

相关 shell编程 | 脚本调用脚本，通过不同的解释器运行

相关 JVM 解释器

相关 PB动态脚本解释器

相关 Ch/CINT — C/C++语言脚本解释器

相关 PB datawindows 动态创建数据窗口

相关【PB】动态SQL语句

相关【PB】在PB中动态调用函数

相关 KALDI脚本文件解释

相关【PB】动态创建数据窗口