由给定的字符串生成关键字

作者：字体：[增加减小] 来源：互联网时间：2017-05-11

通过本文主要向大家介绍了给定一个字符串,求解给定字符串的前缀,给定关键字不在字典中,给定关键词不在字典中,遥控盒给定电位器等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com

'函数名：CreateKeyWord
'作  用：由给定的字符串生成关键字
'参  数：Constr---要生成关键字的原字符串
'返回值：生成的关键字
'**************************************************
Function CreateKeyWord(byval Constr,Num)
   If Constr="" or IsNull(Constr)=True or Constr="$False$" Then
      CreateKeyWord="$False$"
      Exit Function
   End If
   If Num="" or IsNumeric(Num)=False Then
      Num=2
   End If
   Constr=Replace(Constr,CHR(32),"")
   Constr=Replace(Constr,CHR(9),"")
   Constr=Replace(Constr," ","")
   Constr=Replace(Constr," ","")
   Constr=Replace(Constr,"(","")
   Constr=Replace(Constr,")","")
   Constr=Replace(Constr,"<","")
   Constr=Replace(Constr,">","")
   Constr=Replace(Constr,"""","")
   Constr=Replace(Constr,"?","")
   Constr=Replace(Constr,"*","")
   Constr=Replace(Constr,"|","")
   Constr=Replace(Constr,",","")
   Constr=Replace(Constr,".","")
   Constr=Replace(Constr,"/","")
   Constr=Replace(Constr,"\","")
   Constr=Replace(Constr,"-","")
   Constr=Replace(Constr,"@","")
   Constr=Replace(Constr,"#","")
   Constr=Replace(Constr,"$","")
   Constr=Replace(Constr,"%","")
   Constr=Replace(Constr,"&","")
   Constr=Replace(Constr,"+","")
   Constr=Replace(Constr,":","")
   Constr=Replace(Constr,"：","")
   Constr=Replace(Constr,"‘","")
   Constr=Replace(Constr,"“","")
   Constr=Replace(Constr,"”","")
   Dim i,ConstrTemp
   For i=1 To Len(Constr)
      ConstrTemp=ConstrTemp & "|" & Mid(Constr,i,Num)
   Next
   If Len(ConstrTemp)<254 Then
      ConstrTemp=ConstrTemp & "|"
   Else
      ConstrTemp=Left(ConstrTemp,254) & "|"
   End If
   CreateKeyWord=ConstrTemp
End Function </div>

分享到：QQ空间新浪微博腾讯微博微信百度贴吧 QQ好友复制网址打印

您可能想查找下面的文章:

由给定的字符串生成关键字

2017-05-11超精华的asp代码大全第1/2页
2017-05-11实例讲解ASP实现抓取网上房产信息
2017-05-11ASP中用select case代替其他语言中的switch case, default用case else
2017-05-11在asp中使用js的encodeURIComponent方法
2017-05-11asp最常用的分页函数
2017-05-11asp 判断是否为搜索引擎蜘蛛的代码
2017-05-11asp汉字中文图片验证码的实现代码
2017-05-11【先锋海盗类】Ver2005 最终版
2017-05-11最小asp后门程序
2017-05-11构建免受 FSO 威胁虚拟主机（三）

由给定的字符串生成关键字

您可能想查找下面的文章:

相关文章

文章分类

最近更新的内容