text1中删除与text2相同的数字

主题：text1中删除与text2相同的数字

888zzz [专家分：0] 发布于 2009-04-06 13:53:00

text1中有一些数字,中间用空格分开.text2中也有一些数字,中间用空格分开
现在想在text1中删掉text1与text2相同的数字,请各位高手指教.

沙发

btxdlibin [专家分：2430] 发布于 2009-04-06 15:38:00

Dim a$, b$
a = " " & trim(Text1.Text) & " "
b = trim(Text2.Text)
For Each s In Split(b, " ")
a = Replace(a, " " & s & " ", " ")
Next
MsgBox Trim(a)

板凳

糊涂大虫 [专家分：580] 发布于 2009-04-06 19:21:00

从各文本框中判别空格位置并标记，读两空格之间的字符，判断是否为数据，并将数据记录。再将两个文本框中识别出的数据比较，若相同则从中删除。

3 楼

888zzz [专家分：0] 发布于 2009-04-07 12:49:00

非常感谢

您尚未登录，请登录后再回复。点此登录或注册