我写了一个函数，去关于去除重复字符串的，但是处理出来的结果是错误的，有哪位高手指点一下
需要这样处理：
传进来一个字符串，
比如"000001,000001,000001",最后返回"000001";
比如"000001,000002,000001",最后返回"000001,000002";
比如"000001,000001,000002",最后返回"000001,000002";
等等，就是重复的字符串合为一个，不重复的就保留，而且字符串之间用,号隔开
VB code:
'去除重复字符串
Public Function RemoveRepeat(ByVal AStr As String) As String
Dim arrTemp() As String
Dim I As Long
Dim J As Long
Dim LStr As String
LStr = ""
arrTemp = Split(AStr, ",")
For I = 0 To UBound(arrTemp)
For J = I + 1 To UBound(arrTemp)
If arrTemp(I) = arrTemp(J) Then
arrTemp(J) = ""
End If
Next J
Next I
For I = 0 To UBound(arrTemp)
If arrTemp(I) <> "" Then
LStr = LStr & arrTemp(I)
If I < UBound(arrTemp) Then
LStr = LStr & ","
End If
End If
Next I
RemoveRepeat = LStr
End Function
我对VB代码不是很熟，不知道可以怎么处理
Public Function RemoveRepeat(ByVal AStr As String) As String
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
