'*****************************************************
'기능 이름 : CreateKeyword
'효과 : 주어진 문자열에서 키워드를 생성합니다
'인수 : 컨트리 --- 키워드를 생성하려면 원래 문자열입니다
'반환 값 : 생성 키워드
'*****************************************************
functioncreatekeyword (byvalconst, num)
ifconsted = ""orisnull (constr) = trueorconsted = "$ false $"
createkeyword = "$ false $"
종료 기능
endif
ifnum = ""orisnumeric (num) = falsethen
num = 2
endif
constr = replace (constr, chr (32), "")
constr = replace (constr, chr (9), "")
constr = replace (constrs "," "," ")
constr = replace (constrs "," "," ")
constr = replace (constrs, "(", "")
constr = replace (constr, ")", "")
constr = replace (constrs, "<", "")
constr = replace (constrs ","> "," ")
constr = replace (constrs "," "" "," ")
constr = replace (constrs ","? "," ")
constr = replace (constrs, "*", "")
constr = replace (constrs ","| "," ")
constr = replace (constrs, ",", "")
constr = replace (constr, ".", "")
constr = replace (constrs, "/", "")
constr = replace (constrs, "/", "")
constr = replace (constrs, "-", "")
constr = replace (constrs, "@", "")
constr = replace (constrs "#", "")
constr = replace (constrs, "$", "")
constr = replace (constrs, "%", "")
constr = replace (constrs, "&", "")
constr = replace (constrs, "+", "")
constr = replace (constrs ",": "," ")
constr = replace (constrs ",": "," ")
constr = replace (constrs "," ' "," ")
constr = replace (constrs "," "", "")
constr = replace (constrs "," "", "")
constr = replace (constrs, "&", "")
constr = replace (constrs, "gt;", "")
Dimi, Constrtemp
fori = 1tolen (구속)
setstemp = constrtemp & "|"& mid (culst, i, num)
다음
iflen (posstemp) <254then
constrtemp = constrtemp & "|"
또 다른
constrtemp = left (constrtemp, 254) & "|"
endif
setstemp = left (constrtemp, len (constrtemp) -1)
setstemp = right (constrtemp, len (constrtemp) -1)