求一句正则语句

2012-04-27 09:13:15 3.5k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

使用正则表达式解析一般sql语句（C++）趁这个时候把之前写过的代码都贴上来吧。正则表达式一用，整个人都感觉神清气爽了，会了正则表达式，表示字符串解析什么的，顿时轻松了不少啊。不过C和C++现存的大部分编译器是不支持正则表达式的，最新出来的C++10标准（貌似是C++10）中新加入了正则表达式，但是支持最新标准的编译器较少，VS最新版本的应该是支持的。不过博主一直对CodeBlocks情有独钟，忠心不二啊。这就得给编译器装boost函数阅读详情

从字符串

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

...全文

Intouch间接变量（扩展）间接变量只是Intouch提供给开发者的便捷方式之一，并不是所有情况都一定要使用间接变量，有时候用条件语句或者内存变量的方式也能起到类似的作用。阅读详情

changechange

vbScript 4,008 成员 3,512 内容

+ 关注 + 加入社区

切换为时间正序

changechange 2012-04-30

打赏
举报

[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 里面没有的。

你的选择H 2012-04-27

打赏
举报

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);
}

q107770540 2012-04-27

打赏
举报



//不会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 

	  */

}

q107770540 2012-04-27

打赏
举报

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

mingfish2 2012-04-27

打赏
举报

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

changechange 2012-04-27

打赏
举报

再举几个例子

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位数字有可能是一组，也有可能是多组的。

q107770540 2012-04-27

打赏
举报



 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 2012-04-27

打赏
举报

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

则没有结果

changechange 2012-04-27

打赏
举报

[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组字符串

求一句正则语句

相关推荐