[已解决]一个简单的正则表达式?
本帖最后由 newuser 于 2010-12-10 11:34 编辑刚刚学习,就遇到了问题!!!怎么不显示找到的内容呢?#cs
临时存放.txt内容如下：
干县令，其于大达亦远矣。”“县”乃古“悬”字，高也；“令”，美也，“干”，追求。是说举着细小的钓竿钓绳，奔走于灌溉用的沟渠之间，只能钓到泥鳅之类的小鱼，而想获得大鱼可就难了。靠修饰琐屑的言论以求高名美誉，那和玄妙的大道相比，可就差得远了。春秋战国时，学派林立，百家争鸣，许多学人策士为说服王侯接受其思想学说，往往设譬取喻，征引史事，巧借神话，多用寓言，以便修饰言说以增强文章效果。庄子认为此皆微不足道，故谓之“小说”，即“琐屑之言，非道术所在”“浅识小道”，也就是琐屑浅薄的言论与小道理之意，正是小说之为小说的本来含义。
zgkz zgk
zgkzgkzougk1
#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
#cs
临时存放.txt内容如下：
干县令，其于大达亦远矣。”“县”乃古“悬”字，高也；“令”，美也，“干”，追求。是说举着细小的钓竿钓绳，奔走于灌溉用的沟渠之间，只能钓到泥鳅之类的小鱼，而想获得大鱼可就难了。靠修饰琐屑的言论以求高名美誉，那和玄妙的大道相比，可就差得远了。春秋战国时，学派林立，百家争鸣，许多学人策士为说服王侯接受其思想学说，往往设譬取喻，征引史事，巧借神话，多用寓言，以便修饰言说以增强文章效果。庄子认为此皆微不足道，故谓之“小说”，即“琐屑之言，非道术所在”“浅识小道”，也就是琐屑浅薄的言论与小道理之意，正是小说之为小说的本来含义。
zgkz zgk
zgkzgkzougk1
#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
回复 2# tryhi
谢谢!原来不是正则的事! 学习了， 不错！
页:
[1]