从字符串中提取单词、从字符串中提取汉字的函数

最新推荐文章于 2025-02-01 16:55:14 发布

weixin_30419799

最新推荐文章于 2025-02-01 16:55:14 发布

阅读量174

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/longqcc/archive/2013/05/18/3084875.html

本文介绍了一种从字符串中提取单词和汉字的方法，通过定义特定的函数实现文本内容的有效解析。

{从字符串中提取单词的函数}
procedure StrToWordList(str: string; var List: TStringList); var
p: PChar;
i: Integer;
begin
if List = nil then List := TStringList.Create;
List.Clear;
{去除重复}
List.Sorted := True;
List.Duplicates := dupIgnore;

p := PChar(str);

{把单词以外的字符转为空格, 并把大写字母转小写}
while p^ <> #0 do
begin
case p^ of
'A'.. 'Z': p^ := Chr(Ord(p^) + 32);
'a'.. 'z', '0'.. '9', '' '', '-': ;
else p^ := #32;
end;
Inc(p);
end;

{用空格分离单词到列表}
List.Delimiter := #32;
List.DelimitedText := str;

{单词的开头应该是字母, 去除其他}
for i := List.Count - 1 downto 0 do
begin
if CharInSet(List[i][ 1], [ '0'.. '9', '-', '' '']) then
List.Delete(i);
end;
end;

{从字符串中提取汉字的函数}
procedure StrToHanZiList(str: string; var List: TStringList);
var
p: PWideChar;
begin
if List = nil then List := TStringList.Create;
List.Clear;
{去除重复}
List.Sorted := True;
List.Duplicates := dupIgnore;

p := PWideChar(str);
while p^ <> #0 do
begin
case p^ of
#$4E00.. #$9FA5: List.Add(p^);
end;
Inc(p);
end;
end;

菊子曰：我在用着的博客编辑软件

转载于:https://www.cnblogs.com/longqcc/archive/2013/05/18/3084875.html