如以下4行10列的数据：
1，12，45，623，367，1456，24，4，76，2
2，23，21，21，463，724，21，86，21，5
3，312，12，24，12，612，612，612，612，3
4，42，21，465，32，72，72，72，72，2

现在需要把每行重复出现的数据剔除，只保留一个
希望程序以后数据如下：
1，12 45 623 367 1456 24 4 76 2
2，23 21 463 724 86 5
3，312 12 24 612 3
4，42 21 465 32 72 2

比如第二行21出现了4次，把后面的三个21都剔除，并统计剔除以后该行的数据个数，该如何实现呢

dim ele(4,10) as integer
dim x,y as string

for i =1 to 4
for j=2 to 10
for k = 1 to j-1
if ele(i,j)=ele(i,k) then
ele(i,j)="" 该句运行错误，请问如何实现该数据的剔除
GOTO 100
ENDIF
next k
x=x+str(ele(i,l))+" "

100 next j
y=y+x+chr(13)+chr(10)
next i

还请高手能给解答以下，不胜感激啊！

dim ele(4,10) as integer
dim x,y as string

for i =1 to 4
for j=2 to 10
for k = 1 to j-1
if ele(i,j)=ele(i,k) then
ele(i,j)="" 该句运行错误，请问如何实现该数据的剔除
GOTO 100
ENDIF
next k
x=x+str(ele(i,l))+" "

100 next j
y=y+x+chr(13)+chr(10)
next i

你的数组ele(4,10) 定义的数据类型是integer,在代码里面怎么能让ele(i,j)=""呢? ""是string型的.
自己想一下办法吧,很简单的.

[此贴子已经被作者于2007-3-16 16:30:10编辑过]

还请楼上的老大详细指点一下啊
我的意图是如果某个数据在前面出现过，就用一个空格来代替该数据，还有什么方法能实现呢
我实在是想不出来办法了

这样吧：dim ele(4,10) as string。

[此贴子已经被作者于2007-3-16 16:57:28编辑过]

感谢zsolong老大的热情帮助
我先试一下，有问题再向您请教

另外，还烦请zsolong老大帮我看看我的思路和语句有没有错误，特别是GOTO语句，呵呵
不知道还有没有其他的方法能实现的？或者重新定义一个新数组？

[此贴子已经被作者于2007-3-16 16:56:31编辑过]

你就直接 dim ele(4,10) as string。定义成string型就可以了

谢谢zsolong老大的回复

因为我的数据是保存在记事本文件中的，给数组赋值是通过文件操作语句，input #1来实现的
定义成string类型不会影响吧，呵呵

不会影响的。

非常感谢zsolong老大的帮助，向您学习