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

时间:2021-05-18

'函数名:CreateKeyWord
'作用:由给定的字符串生成关键字
'参数:Constr---要生成关键字的原字符串
'返回值:生成的关键字
'**************************************************
FunctionCreateKeyWord(byvalConstr,Num)
IfConstr=""orIsNull(Constr)=TrueorConstr="$False$"Then
CreateKeyWord="$False$"
ExitFunction
EndIf
IfNum=""orIsNumeric(Num)=FalseThen
Num=2
EndIf
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,"”","")
Dimi,ConstrTemp
Fori=1ToLen(Constr)
ConstrTemp=ConstrTemp&"|"&Mid(Constr,i,Num)
Next
IfLen(ConstrTemp)<254Then
ConstrTemp=ConstrTemp&"|"
Else
ConstrTemp=Left(ConstrTemp,254)&"|"
EndIf
CreateKeyWord=ConstrTemp
EndFunction

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章