把一句话拆解成多关键字的函数

'作 用：由给定的字符串生成关键字
'参 数：Constr---要生成关键字的原字符串；Num---每个关键字的字符数
'返回值：生成的关键字
'**************************************************
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
    If Left(ConstrTemp,1)="," Then ConstrTemp=Right(ConstrTemp,Len(ConstrTemp)-1)
    If Right(ConstrTemp,1)="," Then ConstrTemp=Left(ConstrTemp,Len(ConstrTemp)-1)
    CreateKeyWord=ConstrTemp
End Function

转载于:https://www.cnblogs.com/see7di/archive/2008/04/28/2239985.html