用vb如何去掉重复的行?

用vb建立一个窗体,上面有两个文本框text1、text2(multiline属性都是true)和一个按钮command1。现在在文本框text1中输入如下有重复行的内容... 用vb建立一个窗体,上面有两个文本框text1、text2(multiline属性都是true)和一个按钮command1。现在在文本框text1中输入如下有重复行的内容(输入的行数不限,可能很多),在文本框text2中自动把那些重复的行去掉:
<a href="http://www.haoting.com/hao123/90.htm">追 (马三立)</a>
<a href="http://www.haoting.com/hao123/90.htm">追 (马三立)</a>
<a href="http://www.haoting.com/hao123/236.htm">走向世界 (李伯祥/杜国芝)</a>
<a href="http://www.haoting.com/hao123/236.htm">走向世界 (李伯祥/杜国芝)</a>
<a href="http://www.haoting.com/hao123/256.htm">爱的挫折 (姜昆、李文华)</a>
<a href="http://www.haoting.com/hao123/256.htm">爱的挫折 (姜昆、李文华)</a>
展开
 我来答
Coo_boi
2010-05-15 · TA获得超过1333个赞
知道大有可为答主
回答量:2209
采纳率:50%
帮助的人:236万
展开全部
我觉得这种问题不需要太多代码。
**********************************************************************
Private Sub Command1_Click()
Dim ObjStr, StrTemp, I%
Text2 = ""
StrTemp = Replace(Text1, vbCrLf, "||")
For Each ObjStr In Split(StrTemp, "||")
If InStr(StrTemp, ObjStr) Then StrTemp = Replace(StrTemp, ObjStr, ""): Text2 = Text2 & ObjStr & vbCrLf
Next
End Sub
**********************************************************************
牛A和牛C间徘徊
2010-05-15 · TA获得超过1037个赞
知道小有建树答主
回答量:782
采纳率:0%
帮助的人:600万
展开全部
不用其它组件的话只能放数组,然后一个一个比较....
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
风雨兼程0815
2010-05-15 · TA获得超过169个赞
知道答主
回答量:197
采纳率:0%
帮助的人:213万
展开全部
Private Sub Command1_Click()
Dim a() As String, b As String, i%, j%
b = Text1
Open App.Path & "\1.txt" For Output As #1
Print #1, b
Close
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1) '循环读取数据直到文件末尾
Line Input #1, b '每次读入一行文本数据
ReDim Preserve a(i) '重新定义动态数组
a(i) = b
If i > 1 Then
If a(i) <> a(i - 1) Then
i = i + 1
End If
Else
i = i + 1
End If
Loop
Close
For j = 0 To i - 1
For k = j + 1 To i - 1
If Trim(a(j)) = Trim(a(k)) Then
Exit For
ElseIf k = i - 1 Then
Text2 = Text2 & a(j) & vbCrLf
End If
Next
Next
kill App.Path & "\1.txt"
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式