Delphi Command模式
这个例子还是比较好理解的, 所以只给出代码.unit pattern;interfaceuses Dialogs;typeTAudioPlayer = class;TCommand = classpublicprocedure execute; virtual; abstract;end;TPlay
这个例子还是比较好理解的, 所以只给出代码.unit pattern;interfaceuses Dialogs;typeTAudioPlayer = class;TCommand = classpublicprocedure execute; virtual; abstract;end;TPlay
Douglas Crockford已经传授了一个有用的单例模式(singleton pattern)实现此规则,我认为他的模式有益于你基于YUI的那些应用。Douglas叫它模块模式(module pattern)。它是如下工作的: 创建一个命名空间对象:如果你使用YUI,可以用YAHOO.name
var patterns = {HYPHEN: /(-[a-z])/i,ROOT_TAG: /^body|html$/i }; var toCamel = function(property) {// 如果没有 -[a-z] 字母,则直接返回if ( !patterns.HYPHEN.test(pr
实现代码如下:Function IsValidUrl(str)Dim regExSet regEx = New RegExpregEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"IsValidUrl = regEx.Tes
'****************************** Function CheckString(strng)CheckString = trueDim regEx, MatchSet regEx = New RegExpregEx.Pattern = "^[A-Za-z0-9]+$"re
实现代码如下:$3")if param="full" thenre.Pattern="(\[html\])(\r\n)?([\s\S]+?)(\[\/html\])"content=re.Replace(content,"$3 [Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]")end
记得以前贴过一个ubb代码转换为html格式的代码,前几天读ubb的源代码。所以有了这个新的版本。注意,这个版本可能还不能正常使用,详细见注。 这段代码将用户输入的ubb代码转化为html格式,注意,需要Script Engine 5.0的支持(使用了RegExp对象)注:pattern中使用()将
实现代码如下:"&tmpStr2&"://"&tmpStr3&"",1,-1,0)Next're.Pattern="(^|\s)(www\.\S+)"'strContent=re.Replace(strContent,"$1$2")End IFIF Not DisUB
'****************************** function bbimg(l1,maximgheight,maximgwidth)dim l2,I2:l2=l1set I2=new regexpI2.global=trueI2.ignorecase=trueI2.pattern
RegExp对象的用法:RegExpTest(patrn, strng)Dim regEx, Match, Matches ' 建立变量。Set regEx = New RegExp ' 建立正则表达式。regEx.Pattern = patrn ' 设置模式。regEx.IgnoreCase =