PB代码动态解析执行器

 

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

先让咱们来了解一些基本知识。

一．代码的载体

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

二．对象的建立

若是对象类型是已知的，可使用CREATE objecttype 来建立对象，若是对象类型是动态的，可使用CREATE USING objecttypestring来建立对象。

三．对象函数的调用方式

若是调用一个已知类型的对象的函数或事件，一般采用静态模式，也可采用动态模式，若是调用一个动态建立的对象的函数或事件，则必须采用动态模式，不然编译出错。采用动态模式调用函数是在函数前加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 objecttypestring语句建立对象
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动态脚本解释器应用对象forwardglobal type pbcompiler from applicationend typeglobal transaction sqlcaglobal dynamicdescriptionarea sqldaglobal dynamicstagingarea sqlsaglobal error errorglobal message messageend forwardglobal variablesend variablesglobal type pbcompiler from applicationstring appname = "pbcompiler"end typeglobal pbcompiler pbcompileron pbcompiler.createappname="pbcompiler"message=create messagesqlca=create transactionsqlda=create dynamicdescriptionareasqlsa=create dynamicstagingareaerror=create errorend onon pbcompiler.destroydestroy(sqlca)destroy(sqlda)destroy(sqlsa)destroy(error)destroy(message)end onevent open;open(w_pbcompiler_test)end event二.f_execpbscript$PBExportHeader$f_execpbscript.srf$PBExportComments$执行动态脚本的样例函数global type f_execpbscript from function_objectend typeforward prototypesglobal function string f_execpbscript (string as_returntype, string as_pbscript)end prototypesglobal 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_pbcompilernonvisualobject luo_pbcompilerstring ls_entryname,ls_librarynamestring ls_returnany la_returnlnv_pbcompiler = create nvo_pbcompiler//建立实体对象if lnv_pbcompiler.of_createentry(as_returntype,as_pbscript,ls_libraryname,ls_entryname) = 1 thenif not isnull(FindClassDefinition(ls_entryname) ) thenluo_pbcompiler = create using ls_entrynamechoose 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 elseluo_pbcompiler.dynamic of_exec()//执行动态代码ls_return = "result is disabled"end chooseif isvalid(luo_pbcompiler) then destroy luo_pbcompilerelsels_return = "error"end ifelsels_return = "error"end ifif isvalid(lnv_pbcompiler) then destroy lnv_pbcompilerLibraryDelete(ls_libraryname)return ls_returnend function三.f_parse$PBExportHeader$f_parse.srf$PBExportComments$分解字符串到数组global type f_parse from function_objectend typeforward prototypesglobal function long f_parse (readonly string as_text, readonly string as_sep, ref string as_list[])end prototypesglobal 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_posstring ls_null[],ls_textls_text = as_textas_list = ls_nulli=0ll_pos = posw(lower(ls_text),lower(as_sep))do while ll_pos > 0i ++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))loopas_list[i + 1] = ls_textreturn upperbound(as_list[])end function四.f_replacetext$PBExportHeader$f_replacetext.srf$PBExportComments$替换字符串global type f_replacetext from function_objectend typeforward prototypesglobal function string f_replacetext (readonly string as_source, readonly string as_oldtag, readonly string as_newtag, readonly long al_seq)end prototypesglobal 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 = 0string ls_left,ls_return='',ls_source=''ls_source = as_sourcell_len_old_tag = lenw(as_oldtag)ll_start_pos = posw(lower(ls_source),lower(as_oldtag),1)if al_seq = 0 thenDO WHILE ll_start_pos > 0ls_left = leftw(ls_source,ll_start_pos - 1) + as_newtagls_return = ls_return + ls_leftls_source = midw(ls_source,ll_start_pos + lenw(as_oldtag),lenw(ls_source))ll_start_pos = posw(lower(ls_source),lower(as_oldtag),1)LOOPelseif al_seq > 0 thenDO WHILE ll_start_pos > 0i ++if al_seq = i thenls_left = leftw(ls_source,ll_start_pos - 1) + as_newtagls_return = ls_return + ls_leftls_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 ifloopend ifls_return = ls_return + ls_sourcereturn ls_returnend function五.nvo_pbcompiler$PBExportHeader$nvo_pbcompiler.sru$PBExportComments$PB动态脚本解释器forwardglobal type nvo_pbcompiler from nonvisualobjectend typeend forwardglobal type nvo_pbcompiler from nonvisualobjectend typeglobal nvo_pbcompiler nvo_pbcompilertype 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 prototypestype variablesend variablesforward prototypespublic 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 prototypespublic function string of_gettemppath ();/*******************************************************************函数名称：of_gettemppath()参数: 无返回值： string 临时路径功能描述：取临时路径建立人： 康剑民建立日期：2006-12-26版本号： V1.0*******************************************************************/string ls_pathulong lu_size=256ls_path=space(256)GetTempPath(lu_size,ls_path)return trimw(ls_path)end functionpublic function string of_getapppath ();/*******************************************************************函数名称：of_getapppath()参数: 无返回值： string 应用程序路径功能描述：取应用程序路径建立人： 康剑民建立日期：2002-11-22版本号： V1.0*******************************************************************/string ls_apppathls_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_apppathend functionpublic 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 ()//取应用对象所在pbllcd_app = getapplication().classdefinitionls_app_libraryname = lcd_app.librarynamels_temp_path = this.of_gettemppath( )//取临时目录//取待建立的临时库文件名称ll_index = 1ls_temp_libraryname = ls_temp_path + "temp"+string(ll_index) + ".pbl"do while fileexists(ls_temp_libraryname) or posw(","+ls_librarylist_files+",",","+ls_temp_libraryname+",") > 0ll_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 = 0for i = 1 to upperbound(ls_librarylist)if fileexists(ls_librarylist[i]) thenj ++ls_librarylist_tmp[j] = ls_librarylist[i]end ifnextls_librarylist = ls_librarylist_tmpls_librarylist[upperbound(ls_librarylist)+1] = ls_temp_librarynamell_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 = 1do while not isnull(FindClassDefinition("nvo_"+string(ll_index)))ll_index ++loopls_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)) = '' thenls_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"elsels_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 ifend ifSessionClose(ll_sid)//关闭一个会话as_libraryname = ls_temp_librarynameas_entryname=ls_entryname//加入新文件到库文件搜索列表AddToLibraryList(ls_temp_libraryname)if li_result = 0 thenreturn 1elsereturn -1end ifend functionon nvo_pbcompiler.createcall super::createTriggerEvent( this, "constructor" )end onon nvo_pbcompiler.destroyTriggerEvent( this, "destructor" )call super::destroyend on六.w_pbcompiler_test$PBExportHeader$w_pbcompiler_test.srw$PBExportComments$PB动态脚本解释器测试窗口forwardglobal type w_pbcompiler_test from windowend typetype st_returnvalue from statictext within w_pbcompiler_testend typetype st_returntype from statictext within w_pbcompiler_testend typetype st_script from statictext within w_pbcompiler_testend typetype sle_returnvalue from singlelineedit within w_pbcompiler_testend typetype cb_exit from commandbutton within w_pbcompiler_testend typetype sle_returntype from singlelineedit within w_pbcompiler_testend typetype mle_script from multilineedit within w_pbcompiler_testend typetype cb_ok from commandbutton within w_pbcompiler_testend typeend forwardglobal type w_pbcompiler_test from windowinteger width = 1979integer height = 1100boolean titlebar = truestring title = "PB脚本解释器(测试)"boolean controlmenu = trueboolean minbox = trueboolean maxbox = trueboolean resizable = truelong backcolor = 67108864string icon = "AppIcon!"boolean center = truest_returnvalue st_returnvaluest_returntype st_returntypest_script st_scriptsle_returnvalue sle_returnvaluecb_exit cb_exitsle_returntype sle_returntypemle_script mle_scriptcb_ok cb_okend typeglobal w_pbcompiler_test w_pbcompiler_testtype prototypesend prototypestype variablesend variableson w_pbcompiler_test.createthis.st_returnvalue=create st_returnvaluethis.st_returntype=create st_returntypethis.st_script=create st_scriptthis.sle_returnvalue=create sle_returnvaluethis.cb_exit=create cb_exitthis.sle_returntype=create sle_returntypethis.mle_script=create mle_scriptthis.cb_ok=create cb_okthis.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 onon w_pbcompiler_test.destroydestroy(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 ontype st_returnvalue from statictext within w_pbcompiler_testinteger x = 9integer y = 608integer width = 297integer height = 60integer textsize = -9integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Arial"long textcolor = 33554432long backcolor = 67108864string text = "返回值:"boolean focusrectangle = falseend typetype st_returntype from statictext within w_pbcompiler_testinteger x = 9integer y = 476integer width = 297integer height = 60integer textsize = -9integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Arial"long textcolor = 33554432long backcolor = 67108864string text = "返回值类型:"boolean focusrectangle = falseend typetype st_script from statictext within w_pbcompiler_testinteger x = 9integer y = 12integer width = 206integer height = 60integer textsize = -9integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Arial"long textcolor = 33554432long backcolor = 67108864string text = "PB脚本:"boolean focusrectangle = falseend typetype sle_returnvalue from singlelineedit within w_pbcompiler_testinteger x = 334integer y = 608integer width = 1582integer height = 104integer taborder = 30integer textsize = -9integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Arial"long textcolor = 33554432borderstyle borderstyle = stylelowered!end typetype cb_exit from commandbutton within w_pbcompiler_testinteger x = 1664integer y = 856integer width = 242integer height = 104integer taborder = 50integer textsize = -9integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Arial"string text = "退出"end typeevent clicked;close(parent)end eventtype sle_returntype from singlelineedit within w_pbcompiler_testinteger x = 334integer y = 476integer width = 1582integer height = 104integer taborder = 20integer textsize = -9integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Arial"long textcolor = 33554432borderstyle borderstyle = stylelowered!end typetype mle_script from multilineedit within w_pbcompiler_testinteger x = 334integer y = 12integer width = 1582integer height = 432integer taborder = 10integer textsize = -9integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Arial"long textcolor = 33554432boolean vscrollbar = trueboolean autovscroll = trueborderstyle borderstyle = stylelowered!end typetype cb_ok from commandbutton within w_pbcompiler_testinteger x = 1417integer y = 856integer width = 242integer height = 104integer taborder = 40integer textsize = -9integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Arial"string text = "执行"end typeevent clicked;sle_returnvalue.text = f_execpbscript(sle_returntype.text,mle_script.text)end event