1.不喜歡使用模塊的朋友福利，代碼在下方，可以直接復制，首先需要在易語言源代碼里面創建一個：新類模塊
如下圖：
下圖為代碼復制全部替換剛剛創建的新類模塊：
.版本 2.程序集 正則表達式類.程序集變量 RegExp, 對象.程序集變量 MatchCollection, 對象.程序集變量 Match_Count, 整數型.子程序 _初始化, , , 當基于本類的對象被創建后，此方法會被自動調用.子程序 _銷毀, , , 當基于本類的對象被銷毀前，此方法會被自動調用RegExp.清除 ().子程序 創建, 邏輯型, 公開, 根據指定的正則表達式文本創建一個正則表達式對象。本對象中的原有內容將被釋放.參數 正則表達式文本, 文本型, , <html>(.*?)</html>.參數 忽略大小寫, 邏輯型, 可空, 可以被省略。默認值為真。本參數指定這個正則表達式在創建成功后進行匹配、搜索、替換時，是否區分大小寫。.參數 匹配多行, 邏輯型, 可空, 可以被省略。默認值為真。如果本成員值為真，字符“^”不僅匹配目標文本的開頭，而且匹配目標文本中換行符（字符(10)，字符(13)或 #換行符）的后面；字符“$”不僅匹配目標文本的結尾，而且匹配目標文本中換行符的前面。否則字符“^”僅僅匹配目標文本的開頭，“$”也僅僅匹配目標文本的結尾。RegExp.清除 ()RegExp.創建 (“VBScript.RegExp”, ).如果真 (RegExp.是否為空 ()) 輸出調試文本 (“對象創建失敗:VBScript.RegExp”) 返回 (假).如果真結束.如果真 (是否為空 (忽略大小寫)) 忽略大小寫 ＝ 真.如果真結束.如果真 (是否為空 (匹配多行)) 匹配多行 ＝ 真.如果真結束Match_Count ＝ 0RegExp.寫屬性 (“IgnoreCase”, 忽略大小寫)RegExp.寫屬性 (“Multiline”, 匹配多行)RegExp.寫屬性 (“Global”, 真)RegExp.寫屬性 (“Pattern”, 正則表達式文本)返回 (真).子程序 取文本, 文本型, 公開, 返回以文本形式表示的正則表達式。如果該對象尚未創建，則返回空文本。本命令為高級對象成員命令。.如果真 (RegExp.是否為空 ()) 返回 (“”).如果真結束返回 (RegExp.讀文本屬性 (“Pattern”, )).子程序 替換, 文本型, 公開, 替換在正則表達式查找中找到的文本。.參數 欲被替換的文本, 文本型, , 將要進行文本替換的字符串.參數 用作替換的文本, 文本型, 可空, 用作替換的文本返回 (RegExp.文本方法 (“Replace”, 欲被替換的文本, 用作替換的文本)).子程序 搜索全部, 整數型, 公開, 使用指定的正則表達式搜索指定文本中與該表達式匹配的所有子文本。返回匹配結果數量.參數 欲被搜索的文本, 文本型MatchCollection ＝ RegExp.對象型方法 (“Execute”, 欲被搜索的文本)Match_Count ＝ MatchCollection.讀數值屬性 (“Count”, )返回 (Match_Count).子程序 取匹配數量, 整數型, 公開返回 (Match_Count).子程序 取匹配文本, 文本型, 公開.參數 匹配索引, 整數型, , 第幾個匹配文本，索引值從1開始.局部變量 Match, 對象.局部變量 Value, 文本型Match ＝ MatchCollection.讀對象型屬性 (“Item”, 匹配索引 － 1)Value ＝ Match.讀文本屬性 (“Value”, )返回 (Value).子程序 取子匹配文本, 文本型, 公開.參數 匹配索引, 整數型, , 第幾個匹配文本，索引值從1開始.參數 子表達式索引, 整數型, , 欲取其值的子表達式。該參數對應與正則表達式中的一個子表達式（以圓括號標記）。索引從1開始。.局部變量 Match, 對象.局部變量 SubMatches, 對象.局部變量 Ret, 變體型Match ＝ MatchCollection.讀對象型屬性 (“Item”, 匹配索引 － 1)SubMatches ＝ Match.讀對象型屬性 (“SubMatches”, )Ret ＝ SubMatches.讀屬性 (“Item”, 子表達式索引 － 1)返回 (Ret.取文本 ())
新聞熱點
疑難解答
