{从字符串中提取单词的函数}
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;
【附带一个提取字符串内容的函数】
用下面函数:
function getstr(str:string):string;
var
beginpos,endpos:integer;
substr:string;
begin
result:='';
endpos:=pos('>',str);
substr:=copy(str,endpos+1,length(str)-endpos);
beginpos:=pos('<',substr);
result:=copy(substr,1,beginpos-1);
end;
调用时就写
getstr('<title>9.9</title>');
得到的是9.9
分享到:
相关推荐
Halcon学习-算子/基于组件的匹配/find_text提取字符,摘自KKK5的博客,希望对大家有所帮助
******************以下摘自csdn****************************** 其实是要返回一个有效的指针,尾部变量退出后无效了。 使用分配的内存,地址是有效 char *fun() { char* s = (char*)calloc...
本文摘自VC知识库 原著:Michael Dunn 翻译:Chengjie Sun 对C++字符串非常详尽的解释,我看完后对以前比较模糊的多字符集、宽字节等概念有种豁然开朗的感觉。特地分享给大家。
缠师心法荟萃(摘自悟多整理的缠中说禅博客回复).doc
本帮助文件由个人整理后出版,内容全摘自网络。版权归实际作者所有。 为了让网友们能更好的... 本帮助文件中的Windows API 函数大约有774个,共分十二大类,基本上包括了大部分的常用和非常用的Windows API 函数。
java 数组 函数 可以简易的对数组进行输出等。引用包import com.bruceeckel.util.*;即可。摘自JAVA编程思想。
C/C++语言函数 中文参考手册。 此文档英文原文摘自www.cppreference.com 以下C-Free的支持者,为文档的翻译做出贡献,特此感谢: Dreamby , sirius , Vic Zhang , Lauren.Jc , Rexzhou , power , littlestone
web程序将get或post来的id、整数等值强制经过转化函数转化为整数,过滤掉危险字符,尽可能降低系统本身被Sql注入的可能性。 现如今,虽然Sql注入已经逐渐淡出历史舞台,但是,为了保证web程序的正常运行,减少...
它没有使用回溯或有限自动机来匹配字符串,而是使用了派生函数。 这个想法和算法摘自的博客文章。 安装 git clone https://github.com/dwnusbaum/regex-derivatives.git cd regex-derivatives cabal update && ...
声明: 本帮助文件由陈国强个人整理后出版,内容全摘自网络。版权归实际作者所有。... 本帮助文件中的Windows API 函数大约有774个,共分十二大类,基本上包括了大部分的常用和非常用的Windows API 函数。
本帮助文件中的Windows API 函数大约有774个,共分十二大类,基本上包括了大部分的常用和非常用的Windows API 函数。 作者简介: 姓名:陈国强 网名:Sealife E-mail:Subchen@kali.com.cn 网名:Visual ...
允许使用简单的字符串语法遍历对象和数组。 摘自Peridot的匹配库: 。 用法 $ data = [ 'name' => 'Brian' , 'hobbies' => [ 'reading' , 'programming' , 'lion taming' ], 'address' => [ 'street' => ...
Excel VBA函数参考手册,摘自Excel2003VBA帮助.
本帮助文件中的Windows API 函数大约有774个,共分十二大类,基本上包括了大部分的常用和非常用的Windows API 函数,按分类编排,具有索引功能,支持全文检索,可添加到收藏夹。 声明:本帮助文件由Raise Belling...
Windows API 函数 for Visual Basic 声明: 本帮助文件由陈国强个人整理后出版,内容全摘自... 本帮助文件中的Windows API 函数大约有774个,共分十二大类,基本上包括了大部分的常用和非常用的Windows API 函数。
C语言读取汉字字模 摘自网络
本帮助文件由陈国强个人整理后出版,内容全摘自网络。版权归实际作者所有。... <br> 本帮助文件中的Windows API 函数大约有774个,共分十二大类,基本上包括了大部分的常用和非常用的Windows API 函数
// 这一部分的函数摘自其他作者处.姓名不详 //============================================================================== function GetDisplayFrequency: Integer; //获取显示刷新率 function ...