Public Function GetCustomFromTemplate(strValue) '得到自定义列表的版面设计的HTML代码 Dim strCustom, strParameter strCustom = strValue regEx.Pattern = "【ArticleList/((.*?)/)】([/s/S]*?)【//ArticleList】" Set Matches = regEx.Execute(strCustom) For Each Match In Matches strParameter = Replace(Match.SubMatches(0), Chr(34), " ") strCustom = PE_Replace(strCustom, Match.Value, GetCustomFromLabel(strParameter, Match.SubMatches(1))) Next GetCustomFromTemplate = strCustom End Function Public Function GetListFromTemplate(ByVal strValue) Dim strList strList = strValue regEx.Pattern = "/{/$GetArticleList/((.*?)/)/}" Set Matches = regEx.Execute(strList) For Each Match In Matches strList = PE_Replace(strList, Match.Value, GetListFromLabel(Match.SubMatches(0))) Next GetListFromTemplate = strList End Function Public Function GetPicFromTemplate(ByVal strValue) Dim strPicList strPicList = strValue regEx.Pattern = "/{/$GetPicArticle/((.*?)/)/}" Set Matches = regEx.Execute(strPicList) For Each Match In Matches strPicList = PE_Replace(strPicList, Match.Value, GetPicFromLabel(Match.SubMatches(0))) Next GetPicFromTemplate = strPicList End Function Public Function GetSlidePicFromTemplate(ByVal strValue) Dim strSlidePic, InitSlideJS InitSlideJS = False strSlidePic = strValue regEx.Pattern = "/{/$GetSlidePicArticle/((.*?)/)/}" Set Matches = regEx.Execute(strSlidePic) For Each Match In Matches If InitSlideJS = False Then strSlidePic = PE_Replace(strSlidePic, Match.Value, JS_SlidePic & GetSlidePicFromLabel(Match.SubMatches(0))) InitSlideJS = True Else strSlidePic = PE_Replace(strSlidePic, Match.Value, GetSlidePicFromLabel(Match.SubMatches(0))) End If Next GetSlidePicFromTemplate = strSlidePic End Function