佳木斯湛栽影视文化发展公司
主頁 > 知識庫 > CreateKeyWord asp實現(xiàn)的由給定的字符串生成關鍵字的代碼

CreateKeyWord asp實現(xiàn)的由給定的字符串生成關鍵字的代碼
熱門標簽：團購網(wǎng)站 阿里云 科大訊飛語音識別系統(tǒng) 服務器配置 銀行業(yè)務 Linux服務器 電子圍欄 Mysql連接數(shù)設置
'**************************************************
'函數(shù)名：CreateKeyWord
'作  用：由給定的字符串生成關鍵字
'參  數(shù)：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,"nbsp;","")
   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,"","")  
   Constr=Replace(Constr,"gt;","")      
   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
   ConstrTemp=left(ConstrTemp,len(ConstrTemp)-1)
   ConstrTemp= Right(ConstrTemp,len(ConstrTemp)-1)
   CreateKeyWord=ConstrTemp
End Function

標簽：江蘇 廣元 棗莊 萍鄉(xiāng) 蚌埠 衢州 大理 衡水

巨人網(wǎng)絡通訊聲明：本文標題《CreateKeyWord asp實現(xiàn)的由給定的字符串生成關鍵字的代碼》，本文關鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡，涉及言論、版權(quán)與本站無關。
  • 相關文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    长岛县| 白水县| 红桥区| 玉环县| 金寨县| 靖州| 荆门市| 辛集市| 黄平县| 临江市| 镇雄县| 宁津县| 密山市| 砚山县| 广元市| 富锦市| 邹城市| 黔东| 南昌县| 南昌市| 鲁山县| 盘山县| 徐水县| 盐城市| 台南市| 香格里拉县| 即墨市| 云龙县| 东平县| 盈江县| 江都市| 龙陵县| 新沂市| 平泉县| 南平市| 酒泉市| 临武县| 县级市| 西乌珠穆沁旗| 乌鲁木齐市| 洪湖市|