正则表达式处理重复字符串时出现的问题

版权声明:本文为博主原创文章,遵循 CC 4.0 by-sa 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/baidu_38760069/article/details/80015596

定义一个组,引用第一个组(因为“+”,所以处理成 aaaaaaa(......全是a))所有含有a的串都被切



定义两个组,引用第一个组(因为“+”,处理成bbbbbbbb{......全是b})在所有字符串中,以a开始,与b相连的子串中,对b的重复进行切割。

再来一个与上面对比:


我把上面的主串改了一下,就显而易见了。

======================================================================================================================================================

定义两个组,引用第二个组(这里处理成(ab{+}),ab中,b多次,就是abbbbbbbbbbb(......后面全是b))在所有字符串中,以a开始,与b相连的子串中,对abbbbbb......进行重复切割(看到a被切一次,这是可以理解的)。



更改主串看看:


======================================================================================================================================================

定义两个组,引用第一个组(把点当作a并和前面的a连起来,切掉重复a,加上点(a),输出)【解释下就是a(.)被处理成了:在字符串中的所有含a的串中,切掉重复并加上a】在所有字符串中,以a开始,与“.”相连的子串中,切掉重复的“.”。这里把“.”当作“a”。



更改主串:


与上面a(b)再做个对比,就更加明了了。

(a.)就是切第一次出现的a重复,再加上a。(a(.))是切所有含有a的重复,再加上a。

======================================================================================================================================================

定义两个组,引用第二个组(把点当作a,切掉重复a,输出)在所有字符串中,以a开始,与“.”相连的子串中,切掉重复的

a“.”“.”“.”......(前面的a被切一次)



更改主串:


连a一块切。

展开阅读全文

正则表达式处理 字符串

10-10

Tag (0[0,0],6[0,6]): htmlrn Tag (6[0,6],12[0,12]): headrn Tag (12[0,12],19[0,19]): titlern Txt (19[0,19],23[0,23]): 这是标题rn End (23[0,23],31[0,31]): /titlern End (31[0,31],31[0,31]): /headrn Tag (31[0,31],37[0,37]): headrn End (37[0,37],37[0,37]): /headrn Tag (37[0,37],43[0,43]): bodyrn Txt (43[0,43],49[0,49]): body部分rn Tag (49[0,49],56[0,56]): tablern Tag (56[0,56],60[0,60]): thrn Txt (60[0,60],63[0,63]): 表头1rn End (63[0,63],68[0,68]): /thrn Tag (68[0,68],72[0,72]): tdrn Txt (72[0,72],78[0,78]): 表内容1.1rn End (78[0,78],83[0,83]): /tdrn Tag (83[0,83],87[0,87]): tdrn Txt (87[0,87],93[0,93]): 表内容1.2rn End (93[0,93],98[0,98]): /tdrn Txt (98[0,98],104[0,104]): 表内容1.3rn Tag (104[0,104],108[0,108]): tdrn Txt (108[0,108],112[0,112]): 表内容三rn End (112[0,112],117[0,117]): /tdrn Tag (117[0,117],124[0,124]): tablern Tag (124[0,124],128[0,128]): thrn Txt (128[0,128],131[0,131]): 表头2rn End (131[0,131],136[0,136]): /thrn Tag (136[0,136],140[0,140]): tdrn Txt (140[0,140],146[0,146]): 表内容2.1rn End (146[0,146],151[0,151]): /tdrn Tag (151[0,151],155[0,155]): tdrn Txt (155[0,155],161[0,161]): 表内容2.2rn End (161[0,161],166[0,166]): /tdrn Txt (166[0,166],172[0,172]): 表内容2.3rn Tag (172[0,172],176[0,176]): tdrn Txt (176[0,176],180[0,180]): 表内容三rn End (180[0,180],185[0,185]): /tdrn End (185[0,185],193[0,193]): /tablern End (193[0,193],201[0,201]): /tablern End (201[0,201],208[0,208]): /bodyrn End (208[0,208],215[0,215]): /htmlrn谁给个正则表达式rn可以得到只剩下冒号以后的东西:rn如rnhtml rnhead rntitle 论坛

vb重复生成word时出现问题

06-18

上次在网友的帮助下,帮我解决了vb调用word重复生成文件的问题,非常感谢大家的帮忙!(上次的帖子见下面的连接)rnhttp://topic.csdn.net/u/20081125/14/90869f35-2ee8-417b-a90c-c07b546bb8d5.htmlrn但现在面临另一个奇怪的问题。就是我第一次运行程序的时候,生成了第一个word文件,如果我接着生成第二个时,就会出现rn:“实时错误‘462’,远程服务器不在或不能使用!”。的错误提示rn但我退出程序重新运行之后就,重复运行,重复生成word文档就不会出现错误提示,程序一切运行正常。这是怎么回事呀?恳请大家帮忙看看,不胜感激!rn代码如下:rnPrivate Sub Word_Click()rnDim WordApp As Word.Application '<-避免使用 As New 定义rn Dim NewDoc As Word.Document '<-要显示定义局部变量rn Set WordApp = New Word.Applicationrn Set NewDoc = WordApp.Documents.AddrnrnCommonDialog1.CancelError = Falsern CommonDialog1.ShowSavern CommonDialog1.Filter = "(*.doc)|*.doc"rn strFileName = CommonDialog1.FileNamern If Dir(strFileName) <> "" Thenrn If MsgBox("文件已经存在,是否覆盖?", vbInformation + vbOKCancel, "提示") = vbCancel Thenrn Exit Subrn End Ifrn End Ifrn With WordApp.Selection rn……rn…… ' 生成的文本内容rnrnEnd WithrnrnNewDoc.SaveAs (CommonDialog1.FileName)rnIf NewDoc.Saved = True ThenrnUnload ShowPlanFrmrnrnMsgBox "计算书已经生成,保存于目录" & CommonDialog1.FileName & "下!"rnEnd IfrnrnWordApp.Selection.ParagraphFormat.CloseUprnNewDoc.ClosernSet NewDoc = NothingrnWordApp.QuitrnSet WordApp = NothingrnrnEnd Subrnrn后来我发现每次开机第一次运行程序时重复生成word文档会出现“远程服务器不在或不能使用”的错误提示。以后运行一切正常。重复生成文档也不会出现错误,恳请大家帮我找找原因。rn 论坛

sql插入新列时出现重复情况处理

05-27

select a.studentno,rn a.studentname,rn d.depname,rn b.classname,rn b.specialityname,rn --e.TERMYEAR,rn (casern when a.politycode = '01' then '中国共产党员'rn when a.politycode = '02' then '中国共产党预备党员'rn when a.politycode = '03' then '中国共产主义青年团团员'rn when a.politycode = '04' then '中国国民党革命委员会'rn when a.politycode = '05' then '中国民主同盟盟员'rn else '群众'rn end)rn as zzmm,rn c.codelabel,rn a.birthday,rn a.nationplace,rn (casern when a.studentstatus = '1' then '有籍在校'rn when a.studentstatus = '2' then '休学'rn when a.studentstatus = '3' then '有籍不在校'rn else '结束学业'rn end)rn as ztrn from xj_student a,rn xj_classes b,rn fw_codelist c,rn fw_department drn --UP_TERM ern where a.classid = b.classidrn and b.trainlevel = c.codevaluern and c.codelabel = '士官职业技术教育'rn and b.enroldate like '%16%'rn and b.classname like '%16%'rn --and e.TERMYEAR like '%16%'rn and a.depid= d.depidrn结果如下表:rn10086 jjjl 信息工程系办公室 16班 计算机编程技术 中国国民党革命委员会 士官职业技术教育 2016/3/1 sadad 有籍在校rnrn20160001 张三 信息工程系办公室 16班 计算机编程技术 中国共产党预备党员 士官职业技术教育 1997/1/5 陕西汉中 有籍在校rnrn20160002 李四 基础系办公室 16班 计算机编程技术 中国共产主义青年团团员 士官职业技术教育 1998/2/5 陕西宝鸡 有籍在校rnrn20160005 王薇薇 信息工程系办公室 16班 计算机编程技术 中国共产党预备党员 士官职业技术教育 1997/5/15 陕西西安 有籍在校rnrn当查询里加入这一项时:rn --e.TERMYEAR, --UP_TERM e , --and e.TERMYEAR like '%16%'rnrn结果表数据重复了,不知道什么原因:rnrn①10086 jjjl 信息工程系办公室 16班 计算机编程技术 2016 中国国民党革命委员会 士官职业技术教育 2016/3/1 sadad 有籍在校rnrn②20160001 张三 信息工程系办公室 16班 计算机编程技术 2016 中国共产党预备党员 士官职业技术教育 1997/1/5 陕西汉中 有籍在校rnrn③20160002 李四 基础系办公室 16班 计算机编程技术 2016 中国共产主义青年团团员 士官职业技术教育 1998/2/5 陕西宝鸡 有籍在校rnrn④20160005 王薇薇 信息工程系办公室 16班 计算机编程技术 2016 中国共产党预备党员 士官职业技术教育 1997/5/15 陕西西安 有籍在校rnrn①10086 jjjl 信息工程系办公室 16班 计算机编程技术 2016 中国国民党革命委员会 士官职业技术教育 2016/3/1 sadad 有籍在校rnrn②20160001 张三 信息工程系办公室 16班 计算机编程技术 2016 中国共产党预备党员 士官职业技术教育 1997/1/5 陕西汉中 有籍在校rnrn③20160002 李四 基础系办公室 16班 计算机编程技术 2016 中国共产主义青年团团员 士官职业技术教育 1998/2/5 陕西宝鸡 有籍在校rnrn④20160005 王薇薇 信息工程系办公室 16班 计算机编程技术 2016 中国共产党预备党员 士官职业技术教育 1997/5/15 陕西西安 有籍在校rnrnrnrn rn 论坛

处理输入数据重复问题

12-16

Private Sub cmdAdd_Click()rnOn Error GoTo Error:rn rs.AddNew '添加新书rn rs.Fields.Item("图书编号").Value = Trim(txtNo.Text)rn rs.Fields.Item("图书作者").Value = Trim(txtAuthor.Text)rn rs.Fields.Item("图书价格").Value = FormatCurrency(Trim(txtPrice.Text))rn rs.Fields.Item("图书书名").Value = Trim(txtName.Text)rn rs.Fields.Item("图书类别").Value = Trim(cmbCategory.Text)rn rs.Updatern MsgBox "已经将该书添加到数据库!", vbInformation, "添加新书"rn txtNo.Text = txtNo.Text + 1rn txtAuthor.Text = ""rn txtPrice.Text = ""rn txtName.Text = ""rn Exit SubrnError:rn If txtNo.Text = "" Thenrn MsgBox "图书编号不能为空", vbInformation, "数据不完整"rn txtNo.SetFocusrn End Ifrn If Err.Number = -2147467259 Thenrn MsgBox "编号为" & Trim(txtNo.Text) & "的图书信息已经存在,请重新输入", vbInformation, "编号重复"rn txtNo.SetFocusrn End Ifrn If cmbCategory.Text = "" Thenrn MsgBox "图书类别不能为空", vbInformation, "数据不完整"rn End Ifrn If txtPrice.Text = "" Thenrn MsgBox "图书价格不能为空", vbInformation, "数据不完整"rn End Ifrn If txtAuthor.Text = "" Thenrn MsgBox "图书作者不能为空", vbInformation, "数据不完整"rn End Ifrn If txtName.Text = "" Thenrn MsgBox "图书书名不能为空", vbInformation, "数据不完整"rn End IfrnEnd Subrn有两个问题:rn1、不论输入的编号是否重复始终提示rnMsgBox "编号为" & Trim(txtNo.Text) & "的图书信息已经存在,请重新输入", rnvbInformation, "编号重复"rn2、添加图书按钮必须按两次才执行(第一次不起作用)rn不知该如何解决? 论坛

没有更多推荐了,返回首页