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