'**************************************************

'函数名：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,"”","")

Constr=Replace(Constr,"&","")

Constr=Replace(Constr,"gt;","")

Dimi,ConstrTemp

Fori=1ToLen(Constr)

ConstrTemp=ConstrTemp&"|"&Mid(Constr,i,Num)

Next

IfLen(ConstrTemp)<254Then

ConstrTemp=ConstrTemp&"|"

Else

ConstrTemp=Left(ConstrTemp,254)&"|"

EndIf

ConstrTemp=left(ConstrTemp,len(ConstrTemp)-1)

ConstrTemp=Right(ConstrTemp,len(ConstrTemp)-1)

CreateKeyWord=ConstrTemp

EndFunction