Nuva 示例代码（每日一帖）之 正则表达式（2）

<..========================================================
==                                                       ==
==                Macrobject Nuva Samples                ==
==                                                       ==
==      Copyright (c) 2004-2006 Macrobject Software      ==
==                                                       ==
==                  ALL RIGHTS RESERVED                  ==
==                                                       ==
==               http://www.macrobject.com               ==
==                                                       ==
========================================================..>
<.
var text = System.File.Load('正则表达式（2）.nuva')
text.RegexMatch('(?P<word>\w+)', Function='DoMatch', Option='s')

function DoMatch(Index, Length, Value, Match)
?? Match['word']
if (Value = 'end')
Match.Abort()
end if
end function
.>

<..
【简介】
本例是一个简单的正则表达式程序。

本例的程序读入一个文件（即本例代码），然后进行正则匹配，打印这些匹配串。

【看点】
1、本例演示了字符串的正则操作，如 RegexMatch：
StringObject.RegexMatch(正则串, [[Function=]函数名称], [选项])，返回字符串
RegexMatch 要求的函数原型如下：
function (Index, Length, Value)
function (Index, Length, Value, Match)
Index: 匹配位置
Length: 匹配长度
Value: 匹配串
Match: 匹配对象，
该对象支持按照 [] 索引器获取分组信息，可以混合使用分组名称或索引，如下：
Match['word'] - 分组名称为 word 的组
Match[0] - 第 0 分组，即整个匹配串
Match[1] - 第 1 分组，即第一个括号的分组串
该对象也支持一个 Abort 操作，执行该函数，将使匹配过程结束

Nuva 语言采用 Perl 兼容的正则表达式（具体是 PCRE，请参见 http://www.pcre.org）

选项是可选的，采用单个字符表示选项，如下（除下面列出的其他 PCRE 选项暂时不可用）：
i：IgnoreCase
m：MultiLine
s：SingleLine
x：IgnorePatternWhitespace
本例中用到的正则操作是为了读出所有的单词（碰到 end 则结束匹配过程）

2、本例用到了文件的操作和集合枚举操作，请参见其他示例的说明。

【扩展】
本例可以进一步扩展以增强其实用性，比如可以匹配运算符或者整条语句等。
..>

本例运行结果如下：

Macrobject
Nuva
Samples
Copyright
c
2004
2006
Macrobject
Software
ALL
RIGHTS
RESERVED
http
www
macrobject
com
var
text
System
File
Load
2
nuva
text
RegexMatch
P
word
w
Function
DoMatch
Option
s
function
DoMatch
Index
Length
Value
Match
Match
word
if
Value
end