for each KeyWord in KeyWords do
KeyWordGroups[KeyWord[0]].Append(KeyWord);
end for
for each Line:String in Text do
for each Ch:Char in String do
for each KeyWord:String in KeyWordGroups[Ch] do
if KeyWord = Ch位置开始长度与KeyWord相等的子串 then
匹配成功。
end if
end for
end for
end for