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

原创 2004年07月07日 08:38:00

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

C++面向对象

小知识1 #include尽量不写到头文件中 因为在预编译时, 头文件会展开 在展开后, 如果头文件中包含了过多的头文件, 编译速度会变慢 尤其是自己编写的本地头文件​ 小知识2 可以使用预声明(前置声明)来解决不在头文件中include的问题 注意:预声明之后, 只能使用该类型的指针或者引用.
  • 2018年03月05日 21:21

蛙蛙推荐:写了个一个vbs类的模板

********************************************************* 目的:vbs类的模板,写类的时候直接套用就可以了. 作者:天极.蛙蛙王子 变量:Wa...
  • onlytiancai
  • onlytiancai
  • 2004-07-07 08:28:00
  • 920

蛙蛙推荐:VBS的数据库操作类,

蛙蛙推荐:VBS的数据库操作类,这个类实现了平时主要的数据库操作,因为我们天天都在和数据库打交道,有时候用这样一个类也挺方便的,但是不知道实用性怎么样,因为在性能和错误处理方面没有做很多考虑,所以不知...
  • onlytiancai
  • onlytiancai
  • 2004-07-23 15:07:00
  • 1468

蛙灵桌面。蛙灵桌面。蛙灵桌面

  • 2009年10月14日 14:37
  • 535KB
  • 下载

管理寓言:蛙鼠殒命

蛙鼠殒命                                           一只老鼠在河边玩耍的时候,遇见了英俊的青蛙。青蛙口若悬河地向老鼠介绍游泳的快乐、漂流的趣味以及沼泽地...
  • citizen2yy
  • citizen2yy
  • 2004-11-09 17:50:00
  • 1734

搜蛙导航(WAP网址站).rar

  • 2010年06月24日 09:10
  • 2.5MB
  • 下载

全国首个OMO模式——美特好旗下全球蛙新零售

转载请注明出自CSDN——全球最大中文IT社区一、OMO模式是什么?中文名:OMO商业模式;外文:Online-Merge-Offline;含义:行业平台型商业模式;作用:最终实现品牌传播与实际交易。...
  • weixin_41609669
  • weixin_41609669
  • 2018-01-17 14:23:33
  • 564

蛙蛙推荐:怎么使用js脚本理的timer控件

setTimeout是脚本种常用的一个函数,它用来让特定的函数执行之前等待一定的毫秒数,利用它我们可以在首页上的做到定时的无刷新更新数据等众多效果,我做了个小程序来演示这个函数的使用。-->var t...
  • onlytiancai
  • onlytiancai
  • 2004-07-26 14:00:00
  • 1266

蛙蛙推荐:蛙蛙牌firefox插件

上次给大家演示了抓取IE内核浏览器的网页,这次和大家一起写一个抓取firefox页面文本的例子。Firefox有自身的一套结构良好的插件机制,但要深入开发Firefox插件的话要了解javascri...
  • onlytiancai
  • onlytiancai
  • 2008-11-12 00:37:00
  • 916

蛙蛙推荐:蛙蛙教你文本聚类

蛙蛙推荐:蛙蛙教你文本聚类摘要:文本聚类是搜索引擎和语义web的基本技术,这次本蛙和大家一起学习一下简单的文本聚类算法,可能不能直接用于实际应用中,但对于想学搜索技术的初学者还是有一定入门作用的。这...
  • onlytiancai
  • onlytiancai
  • 2008-05-10 20:40:00
  • 744
收藏助手
不良信息举报
您举报文章:蛙蛙推荐:用VBS写了一个字符串实用函数的类
举报原因:
原因补充:

(最多只允许输入30个字)