账号通
    

账号  

密码  

1186

查看

2

回复
主题:管理员显身, [收藏主题]  
aiqidai 当前离线

121

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1856 分
登录次数:167 次
注册时间:2007/8/21
最后登录:2015/11/18
aiqidai 发表于:2009/7/29 16:33:00   | 只看该作者 查看该作者主题 楼主 
做在线知识付费 选科汛云开店
asp中匹配 <%%>的正则表达式怎么写
就是要匹配asp中的 <%...%>
其中会有很多个 <%...%>
Function ReplaceCondition(byval str)
  Dim regEx, Matches, Match, TempStr,Bool
  Dim FieldParam,FieldParamArr,ReturnFieldValue,I
        on error resume next
    Set regEx = New RegExp
    regEx.Pattern = "{\$IF\([^\$]*}"
    regEx.IgnoreCase = True
    regEx.Global = True
    Set Matches = regEx.Execute(str)
    TempStr=str
    For Each Match In Matches
      FieldParam    = Replace(Match.Value,"{$IF(","")
      FieldParam    =mid(FieldParam,1,(len(FieldParam)-2))
      FieldParamArr = Split(FieldParam,"||")
      Bool=eval(trim(FieldParamArr(0)))
      If Bool="True" Then
      ReturnFieldValue=FieldParamArr(1)
      Else
      ReturnFieldValue=FieldParamArr(2)
      End If
          TempStr=Replace(TempStr,"{$IF(" &FieldParam &")}",ReturnFieldValue)
    Next
              ReplaceCondition=TempStr
  End Function
可参考 这个函数,替换文本中的{$if(条件||1||2)}这样标签的
想做到就这个效果,要怎么写如"{\$IF\([^\$]*}" 这个表达式呢?
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
aiqidai 当前离线

121

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1856 分
登录次数:167 次
注册时间:2007/8/21
最后登录:2015/11/18
aiqidai 发表于:2009/7/29 17:21:00   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店
未结束的字符串常量
regEx.Pattern=" <%(.[^ <>]*)
----------------------------^

regEx.Pattern=" <%(.[^ <>]*)%>"
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
aiqidai 当前离线

121

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1856 分
登录次数:167 次
注册时间:2007/8/21
最后登录:2015/11/18
aiqidai 发表于:2009/7/29 16:34:00   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.09180秒 powered by KesionCMS 9.0