关于正则表达式的两个问题

jchang

假设文本1.txt的内容有多行，形式如下：
1."," ","E:\TA-UMA-GGR.jsm","E:\ABC.jsm",May-22-2009 17:32:51,May-22-2009
.......
20.Z - 11800'"," "," ","E:\TA-UMA-GGR.jsm","E:\DFE.jsm",May-22-2009 17:32:51,

现需要提取其中以"E:\TA-UMA-GGR.jsm","E:\ABC.jsm"形式的内容写入另一个文本2.txt，我尝试了两种方法：
方法一、使用$T = StringRegExpReplace，脚本如下：
$file2 = FileOpen("1.TXT", 0)
If $file2 = -1 Then
MsgBox(0, "错误", "不能打开文件.")
Exit
EndIf
FileDelete("test-zx.txt")
$file3 = FileOpen("test-zx.txt", 1)
If $file3 = -1 Then
MsgBox(0, "错误", "不能打开文件.")
Exit
EndIf

While 1
$line2 = FileReadline($file2)
If @error = -1 Then ExitLoop
$T = StringRegExpReplace($line2, '.*\"E:\\.*\"E.*', '\"E:\\.*\"E.*(jsm)', 0)
FileWrite($file3,$T& @CRLF)
If @error  Then
MsgBox(0,'',"X")
EndIf
Wend

问题：使用StringRegExpReplace函数后把每行都替换成了字符“\"E:\\.*\"E.*(jsm)'”，而不是：E:\TA-UMA-GGR.jsm","E:\ABC.jsm，请我有没有什么设定使得StringRegExpReplace ( "test", "pattern", "replace", [ count ] )中，"replace"的内容也可以用正则表达式？


方法二：使用StringRegExp函数：
$file2 = FileOpen("1.TXT", 0)
If $file2 = -1 Then
MsgBox(0, "错误", "不能打开文件.")
Exit
EndIf
FileDelete("test-zx.txt")
$file3 = FileOpen("test-zx.txt", 1)
If $file3 = -1 Then
MsgBox(0, "错误", "不能打开文件.")
Exit
EndIf


While 1
$line2 = FileReadline($file2)
If @error = -1 Then ExitLoop
$T = StringRegExp($line2, '\"E:\\.*\"E.*(jsm)', 2)
MsgBox(0,'',$T[0])
FileWrite($file3,$T[0]& @CRLF)
If @error  Then
MsgBox(0,'',"X")
EndIf
Wend

运行出错，请我这个脚本哪里有问题呢？

pcbar

$file2 = FileOpen("1.TXT", 0)
If $file2 = -1 Then
        MsgBox(0, "错误", "不能打开文件.")
        Exit
EndIf
$file3 = FileOpen("test-zx.txt", 2)
If $file3 = -1 Then
        MsgBox(0, "错误", "不能打开文件.")
        Exit
EndIf

While 1
        $line2 = FileReadLine($file2)
        If @error = -1 Then ExitLoop
        $T = StringRegExp($line2, '"E:\\.*"E.*(jsm)"', 2)
        if IsArray($T) Then        FileWrite($file3, $T[0] & @CRLF)
WEnd
FileClose($file2)
FileClose($file3)
ShellExecute("test-zx.txt")

按照楼主的意思改了一下
提示：楼主的程序需考虑兼容性，stringregexp这句，你确定所有的路径都是E开头，在此处可用一个标准文件路径的正则代替。

jchang

非常感谢pcbar的回复，请问标准文件路径的正则表达式是怎样的？谢谢

jchang

还请问：有没有什么设定使得StringRegExpReplace ( "test", "pattern", "replace", [ count ] )中，"replace"的内容也可以用正则表达式？