- '**************************************************
- '函數名：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,"”","")
- 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
CreateKeyWord asp實現的由給定的字符串生成關鍵字的代碼
2019-10-09 14:11asp代碼網 ASP教程
CreateKeyWord asp實現的由給定的字符串生成關鍵字的代碼
延伸 · 閱讀
- 2022-03-11C語言實現將double/float 轉為字符串(帶自定義精度
- 2022-03-11Python全棧之字符串和列表相關操作
- 2022-03-10Java關鍵字之instanceof詳解
- 2022-03-09詳解C++中inline關鍵字的作用
- 2022-03-07c++11多種格式時間轉化為字符串的方法實現
- 2022-03-06MySQL怎么給字符串字段加索引
精彩推薦
- ASP教程
asp 標記字符串中指定字符變色不區分大小寫
今天遇到這種問題，單純的使用replace函數不行，他會改變原有的字符串的大小寫,在網上找到相關的代碼，自己備份下...
- ASP教程
asp之基于adodb.stream的文件操作類
asp之基于adodb.stream的文件操作類...
- ASP教程
JScript中遍歷Request表單參數集合的方法
這篇文章主要介紹了JScript中遍歷Request表單參數集合的方法,本文以遍歷Request.QueryString集合為例給出了實現代碼,需要的朋友可以參考下...
- ASP教程
asp 采集實戰代碼
最近實在是太流行采集了，本人是不喜歡采集的，但對采集的原理我卻很有興趣進行研究，拿到了網上采集常用函數，對其進行了一番研究，并實戰，結果...
- ASP教程
ASP.NET 數據源
數據源 一個 data sourse 控件與數據綁定的控件相互作用，并隱藏了復雜的數據的聯編過程。這些是提供數據給 data bound 控件的工具，并且支持如插入，刪除...
- ASP教程
asp+javascript實現404頁的處理轉換
asp+javascript實現404頁的處理轉換...
- ASP教程
ASP常用函數:getpy()
ASP常用函數:getpy()...
- ASP教程
asp Access數據備份,還原,壓縮類代碼
asp Access數據備份,還原,壓縮類實現代碼，大家可以參考下。...
