求一句正则语句

[changechange]

从字符串

xkdkamsdfk askdfaksdlf asdkfao 上海黄丽快递公司(运营部) 85 1111111111 2222222222 wlsr665

中找出 1111111111 和 2222222222 这两个都是数字的字符串。
规则是 这两个字符串都是10位的数字，数字的内容会变的，且一定要以 空格上海黄丽快递公司(运营部) 开头+位数不确定的数字（比如上面的85）， 空格wlsr 结尾


再举几个例子

asdfak asad392393 sdallz9303923 上海黄丽快递公司(运营部) 1 1111111111 2222222222 wlsr0
dkk3i23j 855155 iki3f xkdkamsdfk askdfaksdlf asdkfao 上海黄丽快递公司(运营部) 85 1111111111 2222222222 wlsr665

[changechange]

[Quote=引用 3 楼 的回复:]
\s*上海黄丽快递公司\(运营部\)\s*\d+\s*(\d{10}\s*)+wlsr
[/Quote]


Function Instr3(ByVal regExPattern As String, ByVal s As String) As String
Dim reg As New RegExp
Dim varMatch As Variant
Dim m As Variant

reg.Pattern = regExPattern
reg.IgnoreCase = True
reg.Global = True
Set varMatch = reg.Execute(s)
For Each m In varMatch
'Debug.Print m.Value, m.FirstIndex
'Instr3 = Instr3 & m.Value
Debug.Print m.SubMatches(0)
Next

End Function

Function dddddd()
Debug.Print Instr3("\s*上海黄丽快递公司\(运营部\)\s*\d+\s*(\d{10}\s*)+wlsr", "a 上海黄丽快递公司(运营部) 8 1111111111 2222222222 3333333333 wlsr")
End Function

只返回 3333333333，实际上我要返回 1111111111 2222222222 3333333333 3组字符串

[changechange]

Function Instr3(ByVal regExPattern As String, ByVal s As String) As String
Dim reg As New RegExp
Dim varMatch As Variant
Dim m As Variant

reg.Pattern = regExPattern
reg.IgnoreCase = True
reg.Global = False
Set varMatch = reg.Execute(s)
For Each m In varMatch
'Debug.Print m.Value, m.FirstIndex
'Instr3 = Instr3 & m.Value
Debug.Print m.SubMatches(0), m.Value
Next

End Function

Function dddddd()
'Debug.Print Instr3("\s*上海黄丽快递公司\(运营部\)\s*\d+\s*(\d{10}\s*)+wlsr", "a 上海黄丽快递公司(运营部) 8 1111111111 2222222222 3333333333 wlsr")
Debug.Print Instr3("上海黄丽快递公司(运营部)\s\d{1,2}\s(\d{10}\s\d{10})\swlsr", "a 上海黄丽快递公司(运营部) 8 1111111111 2222222222 3333333333 wlsr")

End Function


则没有结果

[q107770540]

 foreach(Match m in Regex.Matches(html,@"(?i)\s*上海黄丽快递公司\(运营部\)\s*\d+\s*(\d{10}\s*)+wlsr"))
      {
        foreach(Capture c in m.Groups[1].Captures)
        {
            Console.Write("{0}\t",c.Value);
        }
        Console.WriteLine();
      }

 For Each m In varMatch
   'VBScript内的正则也应该有Capture 这个吧。。。
  	For Each cp in m.Groups(1).Captures
	   Debug.Print cp.Value
	Next
  'Debug.Print m.Value, m.FirstIndex
  'Instr3 = Instr3 & m.Value
  Debug.Print m.SubMatches(0)
  Next

[changechange]

再举几个例子

asdfak asad392393 sdallz9303923 上海黄丽快递公司(运营部) 1 1111111111 2222222222 wlsr0
dkk3i23j 855155 iki3f xkdkamsdfk askdfaksdlf asdkfao 上海黄丽快递公司(运营部) 85 1111111111 2222222222 3333333333 wlsr665

asdfak asad392393 sdallz9303923 上海黄丽快递公司(运营部) 1 1111111111 2222222222 wlsr0
dkk3i23j 855155 iki3f xkdkamsdfk askdfaksdlf asdkfao 上海黄丽快递公司(运营部) 85 1111111111 2222222222 3333333333 4444444444 wlsr665

注意，10位数字有可能是一组，也有可能是多组的。

[mingfish2]

上海黄丽快递公司(运营部)\s\d{1,2}\s(\d{10}\s\d{10})\swlsr
括号中的就是结果了

[q107770540]

\s*上海黄丽快递公司\(运营部\)\s*\d+\s*(\d{10}\s*)+wlsr

[q107770540]

//不会vbscript,给你写个C# 版本的，思路参考吧
void Main()
{
var html = @"xkdkamsdfk askdfaksdlf asdkfao 上海黄丽快递公司(运营部) 85 1111111111 2222222222 wlsr665

asdfak asad392393 sdallz9303923 上海黄丽快递公司(运营部) 1 1111111111 2222222222 wlsr0
dkk3i23j 855155 iki3f xkdkamsdfk askdfaksdlf asdkfao 上海黄丽快递公司(运营部) 85 1111111111 2222222222 wlsr665

asdfak asad392393 sdallz9303923 上海黄丽快递公司(运营部) 1 1111111111 2222222222 wlsr0
dkk3i23j 855155 iki3f xkdkamsdfk askdfaksdlf asdkfao 上海黄丽快递公司(运营部) 85 1111111111 2222222222 3333333333 wlsr665

asdfak asad392393 sdallz9303923 上海黄丽快递公司(运营部) 1 1111111111 2222222222 wlsr0
dkk3i23j 855155 iki3f xkdkamsdfk askdfaksdlf asdkfao 上海黄丽快递公司(运营部) 85 1111111111 2222222222 3333333333 4444444444 wlsr665";
	  foreach(Match m in Regex.Matches(html,@"(?i)\s*上海黄丽快递公司\(运营部\)\s*\d+\s*(\d{10}\s*)+wlsr"))
	  {
	    foreach(Capture c in m.Groups[1].Captures)
		{
			Console.Write("{0}\t",c.Value);
		}
		Console.WriteLine();
	  }
	  
	  /*
	1111111111 	2222222222 	
	1111111111 	2222222222 	
	1111111111 	2222222222 	
	1111111111 	2222222222 	
	1111111111 	2222222222 	3333333333 	
	1111111111 	2222222222 	
	1111111111 	2222222222 	3333333333 	4444444444 
	  */
}

[你的选择H]

string str = @"asdfak asad392393 sdallz9303923 上海黄丽快递公司(运营部) 1 1111111111 2222222222 wlsr0
dkk3i23j 855155 iki3f xkdkamsdfk askdfaksdlf asdkfao 上海黄丽快递公司(运营部) 85 1111111111 2222222222 3333333333 wlsr665
";
List<string[]> list = new List<string[]>();
MatchCollection collec = Regex.Matches(str, @"(?<= 上海黄丽快递公司\(运营部\) \d+)( \d{10}){1,}(?= wlsr)");
foreach (Match item in collec)
{
string[] strs = Regex.Split(item.Value, " ");
list.Add(strs);
}

[changechange]

[Quote=引用 8 楼 的回复:]
C# code


foreach(Match m in Regex.Matches(html,@"(?i)\s*上海黄丽快递公司\(运营部\)\s*\d+\s*(\d{10}\s*)+wlsr"))
{
foreach(Capture c in m.Groups[1].Captures)
{
Console.Wr……
[/Quote]


.NET 才支持 Captures ， VBS 里面没有的。