| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何用代码去掉相同的字符串？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104944) |
| -- 作者：zyl19810322 -- 发布时间：2017/8/8 20:50:00 -- [求助]如何用代码去掉相同的字符串？ 比如：“我喜欢玩，我喜欢学习。”换成“我喜欢玩，学习。” 谢谢老师
|
| -- 作者：有点蓝 -- 发布时间：2017/8/8 20:54:00 -- 有规则么。如果没有，需要做语义分析，这已经属于AI的范畴…… |
| -- 作者：zyl19810322 -- 发布时间：2017/8/8 21:04:00 -- 回复：（有点蓝）有规则么。如果没有，需要做语义分析... Dim t As Table = Tables("基本信息") Dim tm As String = ProjectPath & "Attachments\\试验.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\试验.doc" \'指定目标文件 Dim wrt As New WordReport(t,tm,fl) \'定义一个WordReportTable: 要打印的表(Table)或表的名称 For i As Integer = t.TopPosition To t.BottomPosition Dim stra As String = "" Dim strb As String = "" Dim stry As String = "" Dim dr As DataRow For Each dr In t.Rows(i).DataRow.GetChildRows("违法及处理情况") For Each cdra As DataRow In dr.GetChildRows("违法依据") Dim lstra As String = "" For Each ldra As DataRow In cdra.GetChildRows("法律条文") lstra &= ldra("书目") & ldra("条") & ldra("条内容") & ldra("款项") & ldra("款项内容") & "和" Next stra &= lstra Next For Each cdrb As DataRow In dr.GetChildRows("处罚依据") Dim lstrb As String = "" For Each ldrb As DataRow In cdrb.GetChildRows("法律条文") lstrb &= ldrb("书目") & ldrb("条") & ldrb("条内容") & ldrb("款项") & ldrb("款项内容") & "和" Next strb &= lstrb Next Next stry &= "依据" & strb.trim("和") & "的规定,拟对你公司作出" & dr("其他处罚") & "罚款人民币" & dr("罚款金额") & "元(" & CUMoney(dr("罚款金额")) & ")的行政处罚." wrt.ReplaceOne("[全部具体违法依据]", stra.trim("和")) wrt.ReplaceOne("[全部具体处罚依据及处罚情况]", stry.trim("和")) wrt.BuildOne(t.Rows(i)) Next wrt.Show() \'显示报表 因为有可能用到相同的法律条文，所以想去掉后面相同的条内容，可能是我表达有问题，这绝对不是AI问题，没那么高端，嘿嘿
[此贴子已经被作者于2017/8/8 21:04:38编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2017/8/8 21:07:00 -- 不明白你要做什么，截图说明 |
| -- 作者：zyl19810322 -- 发布时间：2017/8/8 21:13:00 -- 好吧，我再研究研究，有点思路了，用iif和Contains试试看 |