蛙蛙推荐:用VBS写了一个字符串实用函数的类

<!-- 蛙蛙推荐:用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>")
%>

阅读更多

蛙蛙推荐:蛙蛙牌儿IIS备份器

05-18

蛙蛙推荐:蛙蛙牌儿IIS备份器rn把下面所有代码保存成一个.hta文件,然后双击就可以了rnrnrn New Document rn rn rnrnrn备份名称 rnrnrnrnrnrn rn rn 问:这个小软件有什么用?rn 答: 这个小软件用来手工备份和还原IIS配置,如果IIS元数据库严重受损,IIS 将无法启动,这个小软件可以做的小帮手,帮助你在IIS出错的时候选择合适的备份来恢复IIS配置.rn 问:重装机器后如何恢复IIS配置?rn 答: 做虚拟主机的时候如果重装了系统,一般需要手工一个一个的添加网站,网站很多的话,非常费时费力,而象IIS备份精灵,IISExport都需要注册才能无限制使用.其实在Internet 信息服务管理器控制台(也称为 IIS 插件)中所设置的属性和值默认情况都储存在 C:\winnt\system32\inetsrv\metabase.bin (如果是windows 2003+iis6是C:\WINDOWS\system32\inetsrv\MetaBase.xml)文件中。可以简便地使用 xcopy、scopy 或任何其他复制程序来复制这个 文件。但这时最好先停止 Internet 服务(在cmd命令模式下里键入 net stop "IIS Admin Service"来停止Internet服务,net start "IIS Admin Service"来启动IIS服务,或者在服务管理器在界面模式下操作,),以保证元数据库是最新的并且不在使用状态中。 重装系统的时候先停止internet服务,然后覆盖那个目录,IIS配置就恢复了.rn rn rn rn 问:请提供一些关于IIS管理和编程的文章rn rn 答: rn 1.Internet Information Services SDK rn http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iissdk/html/b1073d67-0cfd-42cb-b62b-97e670a4eafb.asp rn 2.Backing Up and Restoring the IIS Metabase rn http://www.windowsitpro.com/Web/Article/ArticleID/9159/Web_9159.htmlrn 3.有关 Internet 信息服务的 5 个热点问题及其解答 rn http://www.microsoft.com/china/technet/community/columns/insider/iisi0602.mspxrn 4.IIS 内幕 rn http://www.microsoft.com/china/technet/community/columns/insider/default.mspxrn 5.Internet Information Services rn http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iissdk/html/cd7a8a8d-dc9d-45be-b5f8-b7d548053b3f.asprn rn rn rnrnrnrn

没有更多推荐了,返回首页