Delphi XE8中的正则表达式提取日语（平假名，片假名，汉字）

本文整理自网络，侵删。

 
使用Delphi XE8中的正则表达式提取日语（平假名，片假名，汉字）

您可以在正则表达式中使用以下字符：

平假名... \ p {平假名} 
片假名... \ p {假名} 
汉字... \ p {汉}

使用此提取平假名，片假名和汉字。

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, RegularExpressions;

const
  Target = '1あ2い3?ha字bカcナ';
  Pattern = '[\p{Hiragana}|\p{Katakana}|\p{Han}]';

var
  match: TMatch;
  matches: TMatchCollection;
begin
  matches := TRegEx.matches(Target, Pattern);
  for match in matches do
    WriteLn(Format('%s (%d, %d)', [match.Value, match.Index, match.Length]));
end.
执行结果

あ (2, 1)
い (4, 1)
?h (6, 1)
字 (8, 1)
カ (10, 1)
ナ (12, 1)
 

相关阅读 >>

Delphi getmem(mystring,1024);//开辟1024个字节freemem(mystring,1024);//释放

Delphi system 中的数学函数

Delphi dbgrid中实现copy、paste功能

Delphi tdragimage v0.1 Delphi 图片拖拽组件 带有加速度 碰撞效果

Delphi 之 tpagecontrol组件

Delphixe 如何调用stringtojstring

Delphi 获取系统进程列表和进程所在路径

Delphi goto语句用法

Delphi ansiendstext 用法之一(路径结尾自动加\)

Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE8中的正则表达式提取日语（平假名，片假名，汉字）