189 8069 5689
要用递归的方法才行,首先构建一个带有treeview1和button1的基本窗体，在treeview1中添加一些节点，保持默认的名字即可。程序将搜寻节点带有j"节点1"的节点，包括节点10，节点11....,然后按照你的要求添加新节点。代码如下:
创新互联建站是一家专业提供梁园企业网站建设,专注与网站设计制作、成都网站建设、HTML5建站、小程序制作等业务。10年已为梁园众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
Public Class Form1
Dim a() As String = {"节点1", "a(1)节点"}
Dim mnodes As New ArrayList
Dim cnodes As TreeNode
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
get_n(TreeView1.Nodes)
For Each ntxt As TreeNode In mnodes
If ntxt.Text.IndexOf(a(0)) = 0 Then
ntxt.Nodes.Add(New TreeNode(a(1)))
Else
ntxt.Nodes.Add(New TreeNode("新节点"))
End If
Next
End Sub
Private Sub get_n(ByVal cn As TreeNodeCollection)
For Each ma As TreeNode In cn
If ma.Nodes.Count 0 Then
mnodes.Add(ma)
cnodes = ma
get_n(cnodes.Nodes)
Else
mnodes.Add(ma)
End If
Next
End Sub
End Class
可以用默认的浅红色标记重复值,也可以自定义填充色,见下图
最后手动删除重复值
[扩展]清除该规则[条件格式]--[清除格式]
[扩展]如何自动删除重复值
选中单元格--[数据]---[删除重复值]--勾选数据范围
如上图,重复的1和6被excel自动删除
我还在床上，就只给你思路吧
我是自己写了个函数，将数组传入并返回一个新数组列表
子函数中，先将数组排序sort函数，然后有两个循环，外循环从0到Length，变量i，内循环从i到Length，判断第i个数是否与包括自身的后续数相同，相同就有变量加1，内循环结束条件是找到第一个不同的数，并将外循环i复植为内循环中第一个不同的数的下表。。。
这个是思路，如果不能理解再再追加我给你代码，不过建议自己试试
你看写这个，和你的要求差不多。。。;oldq=1
有程序的~~~你可以参考下~~~
比如数组a。里面有5个值，其中有3个是重复的？
如果这样的话，很好办哦。
新建一个数组b，然后遍历要去除的数组a，
从a中把每一个都取出来，和新建的b里面的去比，如果有相同的，则不放入b，
否则就放入数组b，直到循环结束。
画一个按键，在按钮click事件写下：
For each item1 as listviewitem in ListView1.Items
For each item2 as listviewitem in listivew2.items
If item1.Text=Item2.Text Then
msgbox("列表有重复值，名称为：" item1.text)
End if
Next
Next
先把strA排序，
ind = 2
if len(strA) = 0 then return
strB(1) = strA(1)
for each s in strA
if (strA(ind) strA(ind - 1) then
count = 0
strB(ind) = strA(ind)
else
strB(ind) = strA(ind - 1)
end if
ind = ind + 1
next s
vb语法忘了。。。大概是这么个意思吧。。。。 排序N LOG N，后面是线性的N，所以总共是NLOGN