<!-- 蛙蛙推荐:用VBS写了一个字符串实用函数的类,不知道实用不实用 -->
<%
Class wawa_str '创建一个名为wawa的类
'*********************************************************
' 目的:字符串实用函数,每个方法做了相应的注释,我没有用正则表达式来判断要
' 搜索字符串的边界,只是简单了写了一下函数,如果要判断边界的话要用/b,
' 主要是vbs的政则表达式不好用,所以就没写,下次有时间再把这个类完善一下
' 并把它改写成C#版本的
' 作者:天极.蛙蛙王子
' 变量:WawaValue(私有变量)
' 属性:
' 方法:
'*********************************************************
private WawaValue '创建一个内部私有变量
Private Sub Class_Initialize() '定义类的初始化事件
End Sub
Private Sub Class_Terminate ' 设置 Terminate 事件。 '定义类的清空事件
End Sub
Public Property Let propertywawa(ByVal wawa_arg) '定义类的一个let属性
WawaValue=wawa_arg
End Property
Public Property Get propertywawa() '定义一个类的get属性
propertywawa=WawaValue
End Property
Public Function GetFront(ByVal mainStr,ByVal searchStr ) '获取要搜索字符串左边的字符
dim FoundOffset
FoundOffset=instr(mainStr,searchStr)
If FoundOffset=1 Then
getfront= ""
End If
getfront= mid(mainStr,1,foundoffset-1)
End Function
Public Function getend(ByVal mainStr,ByVal searchStr ) '获取要搜索字符串右边的字符
dim FoundOffset
FoundOffset=instr(mainStr,searchStr)
If FoundOffset=1 Then
getend= null
End If
getend=mid(mainstr,len(searchstr)+1)
End Function
Public Function insertString(ByVal mainStr,ByVal searchStr,ByVal insertStr ) '在要搜索的字符串前插入一个字符串
dim front,endwawa
front=getfront(mainstr,searchstr)
endwawa=getend(mainstr,searchstr)
insertstring=(front&insertstr&endwawa)
End Function
Public Function deleteString(ByVal mainStr,ByVal deletestr) '删除要搜索的字符串
deletestring=replace(mainstr,deletestr,"")
End Function
Public Function replaceString(ByVal mainStr,ByVal searchstr,ByVal replacestr) '替换要搜索的字符串
dim front,endwawa
front=getfront(mainstr,searchstr)
endwawa=getend(mainstr,searchstr)
replacestring=(front&replacestr&endwawa)
End Function
End Class
set temp=new wawa_str
response.write(temp.getfront("hellowawa","wawa"))
response.write("<br>")
response.write(temp.getend("wawabyebye","wawa"))
response.write("<br>")
response.write(temp.insertstring("tianwawa","wawa","cai"))
response.write("<br>")
response.write(temp.deletestring("wawatiancai","wawa"))
response.write("<br>")
response.write(temp.replacestring("wawatiancai","wawa","hello"))
response.write("<br>")
'response.write("<br>")
%>