论坛 › 已解决问题区 › [已解决]正则问题 !撷取文件档

t895073 发表于 2011-11-12 14:26:34

[已解决]正则问题 !撷取文件档

本帖最后由 t895073 于 2011-11-13 20:05 编辑

文件档内容:
C:\CreateFile\atu\mcc\gpi_1.ch
C:\CreateFile\input\mcc1\gpio_matrix.ch
C:\CreateFile\star\1154\sta0\gpio_output.ch
C:\CreateFile\input\mcc3\xts\estr\gpio_switch.ch
C:\CreateFile\input\mcc4\sta1\keychord.ch
C:\CreateFile\input\mcc5\est\etc\lighr_smd.ch
C:\CreateFile\input\mcc6\uinput.ch
C:\CreateFile\imoter\screen\cat.ch
C:\CreateFile\imoter\screen1\eas_22a4e.ch
C:\CreateFile\input\m101\lighr_smd.ch
C:\CreateFile\input\mcc\uinput.ch
C:\CreateFile\input\screen\cat.ch
C:\CreateFile\input\screen1\eas_22a4e.ch

我要抓出所有的　特定文件路径
然后用Msgbox 一次一个显示出来要怎么弄呢?
如: Msgbox 第一次显示 atu\mcc
案确定后 在显示input\mcc1
案确定后 在显示star\1154\sta0
案确定后 在显示input\mcc3\xts\estr
一直显示完谢谢!!

lixiaolong 发表于 2011-11-12 14:41:05

这样行不行？

用StringRegExp.
(?i)CreateFile\\(.+)\\.+\.

afan 发表于 2011-11-12 14:50:48

:\\.+?\\(.+)\\

gzh888666 发表于 2011-11-12 15:09:03

本帖最后由 gzh888666 于 2011-11-12 15:21 编辑

Local $Str = _
                'C:\CreateFile\atu\mcc\gpi_1.ch' & @CRLF & _
                'C:\CreateFile\input\mcc1\gpio_matrix.ch' & @CRLF & _
                'C:\CreateFile\star\1154\sta0\gpio_output.ch' & @CRLF & _
                'C:\CreateFile\input\mcc3\xts\estr\gpio_switch.ch' & @CRLF & _
                'C:\CreateFile\input\mcc4\sta1\keychord.ch' & @CRLF & _
                'C:\CreateFile\input\mcc5\est\etc\lighr_smd.ch' & @CRLF & _
                'C:\CreateFile\input\mcc6\uinput.ch' & @CRLF & _
                'C:\CreateFile\imoter\screen\cat.ch' & @CRLF & _
                'C:\CreateFile\imoter\screen1\eas_22a4e.ch' & @CRLF & _
                'C:\CreateFile\input\m101\lighr_smd.ch' & @CRLF & _
                'C:\CreateFile\input\mcc\uinput.ch' & @CRLF & _
                'C:\CreateFile\input\screen\cat.ch' & @CRLF & _
                'C:\CreateFile\input\screen1\eas_22a4e.ch' & @CRLF
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExp($str, '(?i):\\.+?\\(.*)\\.+?\.ch', 3)
For $i=0 To UBound($Test)-1
If Not @Error Then MsgBox(0, '匹配UBound数量: ' & UBound($Test), '其中['&$i&']元素为: ' & $Test[$i])
Next

xms77 发表于 2011-11-12 17:54:25

StringRegExp($text, 'CreateFile\\(.+)\\.+\.ch',3)

autt 发表于 2011-11-12 20:59:49

这个要用到正则吗???

xms77 发表于 2011-11-12 21:40:49

回复 6# autt
还有比正则更有效简单的方法吗？

autt 发表于 2011-11-12 22:21:53

回复 7# xms77


    我错了{:face (229):}

xms77 发表于 2011-11-13 19:52:32

回复 8# autt
我原以为你有更好的解决方法呢！

t895073 发表于 2011-11-13 20:03:14

感谢大家帮忙!
学习了!!

查看完整版本: [已解决]正则问题 !撷取文件档