回复 1# t895073 Local $Str = _
'C:\abc\bisc\psm' & @CRLF & _
'C:\abc\bisc\stat' & @CRLF & _
'C:\abc\ac\host\msmed' & @CRLF & _
'C:\abc\net\file\204\ails' & @CRLF & _
'C:\abc\net\file\204\bcmsdh' & @CRLF & _
'C:\abc\net\file\204\116\bc' & @CRLF & _
'C:\abc\infer\file2004\201\1160\bcommal_ca' & @CRLF & _
'C:\abc\net\file\ext\110\bocm' & @CRLF
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExp($str, '\\(\w+)\s', 3)
If Not @Error Then
For $i = 0 To UBound($test)-1
MsgBox(0,"提取的字符",$test[$i])
next
EndIf
|