正则表达式、匹配、搜索例程

起始位置 ＝ 1 ' 从第一个位置开始搜索
' 搜索结果 ＝ 表达式.搜索 (文件内容, 起始位置, ) ' 搜索第一个
.' 判断循环首 (搜索结果.是否为空 () ＝ 假) ' 循环寻找所有的有效E-Mail地址
' 找到的文本 ＝ 搜索结果.取匹配文本 (文件内容, 起始位置)
' 文本长度 ＝ 取文本长度 (找到的文本)
.' 如果真 (文本长度 ≠ 0)
' 列表框1.加入项目 (找到的文本 ＋ “ 用户名：” ＋ 搜索结果.取子匹配文本 (文件内容, 1, ), )
.如果真结束
' 起始位置 ＝ 起始位置 ＋ 文本长度 ' 从本次找到的E-Mail地址文本的下一个字符开始继续搜索
' 搜索结果 ＝ 表达式.搜索 (文件内容, 起始位置, )
' 处理事件 ()
' '在这里可以进行判断，如果找到了所需要的信息即可跳出循环。这一点比“搜索全部”更灵活
.' 判断循环尾 ()