[已解决]一个简单的正则表达式?

newuser

刚刚学习,就遇到了问题!!!怎么不显示找到的内容呢?

#cs
临时存放.txt内容如下：
干县令，其于大达亦远矣。”“县”乃古“悬”字，高也；“令”，美也，“干”，追求。是说举着细小的钓竿钓绳，奔走于灌溉用的沟渠之间，只能钓到泥鳅之类的小鱼，而想获得大鱼可就难了。靠修饰琐屑的言论以求高名美誉，那和玄妙的大道相比，可就差得远了。春秋战国时，学派林立，百家争鸣，许多学人策士为说服王侯接受其思想学说，往往设譬取喻，征引史事，巧借神话，多用寓言，以便修饰言说以增强文章效果。庄子认为此皆微不足道，故谓之“小说”，即“琐屑之言，非道术所在”“浅识小道”，也就是琐屑浅薄的言论与小道理之意，正是小说之为小说的本来含义。
zgkz zgk
zgk  zgk  zougk1
#ce
#include<array.au3>
Local  $Contents,$i
_OpenFile(@ScriptDir&"\临时存放.txt")
MsgBox(0,"",$Contents)
$Results=StringRegExp($Contents,"\bzgk\b",3)
;For $i=1 To UBound($Results)
;    MsgBox(0,"利用正则表达式读取的符合条件的字符串","第"&$i&"个符合正则条件的是:"&$Results[$i]&@CRLF)
;Next        
_ArrayDisplay($Results)

Func _OpenFile($txtfile)
        $File=FileOpen($txtfile)
        If $File=-1 Then
                MsgBox(0,"错误","文件没有打开,即将退出...")
                Exit
        EndIf 
        While 1
        $Contents=FileRead($File)
        If @error = -1 Then ExitLoop
    Wend
        FileClose($File)
EndFunc
        

tryhi

#cs
        临时存放.txt内容如下：
        干县令，其于大达亦远矣。”“县”乃古“悬”字，高也；“令”，美也，“干”，追求。是说举着细小的钓竿钓绳，奔走于灌溉用的沟渠之间，只能钓到泥鳅之类的小鱼，而想获得大鱼可就难了。靠修饰琐屑的言论以求高名美誉，那和玄妙的大道相比，可就差得远了。春秋战国时，学派林立，百家争鸣，许多学人策士为说服王侯接受其思想学说，往往设譬取喻，征引史事，巧借神话，多用寓言，以便修饰言说以增强文章效果。庄子认为此皆微不足道，故谓之“小说”，即“琐屑之言，非道术所在”“浅识小道”，也就是琐屑浅薄的言论与小道理之意，正是小说之为小说的本来含义。
        zgkz zgk
        zgk  zgk  zougk1
#ce
#include<array.au3>
Local $Contents, $i
_OpenFile(@ScriptDir & "\临时存放.txt")
MsgBox(0, "", $Contents)
$Results = StringRegExp($Contents, "\bzgk\b", 3)
;For $i=0 To UBound($Results)-1
;    MsgBox(0,"利用正则表达式读取的符合条件的字符串","第"&$i&"个符合正则条件的是:"&$Results[$i]&@CRLF)
;Next
_ArrayDisplay($Results)

Func _OpenFile($txtfile)
        $File = FileOpen($txtfile)
        If $File = -1 Then
                MsgBox(0, "错误", "文件没有打开,即将退出...")
                Exit
        EndIf
        $Contents = FileRead($File)
        MsgBox(0, 0, @error)

        FileClose($File)
EndFunc   ;==>_OpenFile

newuser

回复 2# tryhi
谢谢!原来不是正则的事!

syhw222

学习了， 不错！