程式**
functioncloseubb(strcontent)
'*************************************
'自動閉合ubb
'*************************************
dimarrtags,i,openpos,closepos,re,strmatchs,j,match
setre=newregexp'申明re物件
re.ignorecase=true'設定是否區分字元大小寫
re.global=true'設定全域性可用性
arrtags=array("code","quote","list","color","align","font","size","b","i","u","html")'建立陣列，儲存相關需要檢測是否閉合的標籤
fori=0toubound(arrtags)'迴圈對陣列裡的每乙個元素進行檢測
openpos=0'初始化當前標籤開始標記的個數
closepos=0'初始化當前標籤結束標記的個數
re.pattern="\["+arrtags(i)+"(=[^\[\]]+|)\]"'開始分別正則判斷開始與結束標記的個數
setstrmatchs=re.execute(strcontent)
foreachmatchinstrmatchs
openpos
openpos=openpos+1
next
re.pattern="\[/"+arrtags(i)+"\]"
setstrmatchs=re.execute(strcontent)
foreachmatchinstrmatchs
closepos
closepos=closepos+1
next
forj=1toopenpos-closepos'當開始與結束標記數量不一致時，閉合當前標籤
strcontent
strcontent=strcontent+"[/"+arrtags(i)+"]"
next
next
closeubb=strcontent
setre=nothing
endfunction
程式**程式**
functionclosehtml(strcontent)
'*************************************
'自動閉合html
'*************************************
dimarrtags,i,openpos,closepos,re,strmatchs,j,match
setre=newregexp
re.ignorecase=true
re.global=true
arrtags=array("p","div","span","table","ul","font","b","u","i","h1","h2","h3","h4","h5","h6")
fori=0toubound(arrtags)
openpos=0
closepos=0
re.pattern="\<"+arrtags(i)+"([^\<\>]+|)\>"
setstrmatchs=re.execute(strcontent)
foreachmatchinstrmatchs
openpos
openpos=openpos+1
next
re.pattern="\+arrtags(i)+"\>"
setstrmatchs=re.execute(strcontent)
foreachmatchinstrmatchs
closepos
closepos=closepos+1
next
forj=1toopenpos-closepos
strcontent
strcontent=strcontent+""+arrtags(i)+">"
next
next
closehtml=strcontent
setre=nothing
endfunction
Lua學習之閉合函式
閉合函式 closure 看lua程式設定這本書的時候，其實感覺也就lua也就那樣，直到看到閉合函式這乙個塊 首先來說說函式，函式在lua中屬於第一類值，其實對於函式而言，function a end 和 a function end 是等價的，乙個函式的定義實際上就是一條賦值語句，這條語句首先建立...
ASP實現自動發郵件
asp實現自動發郵件 摘錄一 language vbscript email www www.com txt 找回密碼。set jmail server.createobject jmail.tpmail jmail.serveraddress www.www.com 指定傳送郵件的伺服器位址 jm...
ASP自動解壓RAR檔案
想實現這種功能很簡單，首先要上傳乙個rar的解壓程式，就是rar自己的解壓程式，只需要它的核心 程式rar.exe這個檔案就可以了。然後就要上傳乙個執行rar.exe的程式 cmd.exe 這個是windows裡的程式。最後就開始執行這些程式了。看一下下面的 dim ylj,ywj,mlpath,s...