看到有的是操作EXCEL文件的，这个还没有尝试过，以后准备要去试试－－－>
[ 本帖最后由 edwardguo 于 2008-1-31 22:10 编辑 ] 真的挺好，支持一下！ 这是我重新编写LZ的去重复字段的代码,可能我不是用VBS的缘故,我直接用VB编译器的,不过应该做相应的小改动就可以了.
有两种方式,先介绍第一种,这种是用户指定重复字段
Private Sub Form_Activate()
Dim i As Integer
Dim str As String
Dim sAs String
Dim sign As Integer
Dim ArrayStr() As String, n As Integer, repeat As String
'str 为原始字符串，之后为修改后的字符串
'repeat为指定的需要去除的重复字符串
'ArrayStr为字符串数组 为中间变量
str = InputBox("请输入初始字符串")
repeat = InputBox("请输入想要去掉的重复的字符或字符串")
ArrayStr = Split(str, repeat)
For i = 0 To UBound(ArrayStr)
Next i
str = ArrayStr(0) + repeat
For i = 1 To UBound(ArrayStr)
str = str + ArrayStr(i)
'str为最终处理后的字符串
Next i
Print str
End Sub 以下是第二种自动检测重复字符的
Private Sub Form_Activate()
Dim str As String
Dim sAs String
Dim ArrayStr() As String, n As Integer, repeat As String, length As Integer, tempstr As String
'此程序是带自检重复字段的程序，但自检的只能是单个字符，重复字符段检查可以再此程序上再完善，有兴趣的朋友可以自己试试
'str 为原始字符串，之后为修改后的字符串
'repeat为指定的需要去除的重复字符串
'ArrayStr为字符串数组 为中间变量
'tempstr 是中间字符串变量
str = InputBox("请输入初始字符串")
tempstr = str
length = Len(str)
For n = 1 To length
repeat = Left(tempstr, 1)
tempstr = Right(tempstr, length - n) '返回字符串右边总长减n个字符
ArrayStr = Split(str, repeat)
str = ArrayStr(0) + repeat
For i = 1 To UBound(ArrayStr)
str = str + ArrayStr(i)
Next i
Next n
Print str
End Sub
支持楼主！！！！
支持楼主！！！！:victory: :handshake有这种境界才能又好的发展前途啊！ 无私的人!好人 谢LZ咯 ！祝工作顺利！！ 感谢~ 汗颜啦，正在学习中，还不会用，下了还不懂怎么用，
希望结识一些，懂了的，或者正在懂的，学习的，或是打算学习的朋友，共同学习互帮互助啊。
我的QQ：290425670 不要只是拿来主义阿，有什么新的想法贴一贴阿，比方说再优化一下什么的 先挂个单，他日用时再看 LZ的ASC2 码是冒泡排序，下面这段是选择排序法，感兴趣的可以自己看看。
Private Sub Form_Activate()
Dim str As String, n As Integer, arrayStr() As String, lenth As Integer, fStr As String, compareStr As String, j As Integer, exChange As Integer
str = InputBox("请输入想要排序的字符串")
lenth = Len(str)
For n = 1 To lenth - 1
fStr = fStr + Left(str, 1) + ","
str = Right(str, lenth - n)
Next n
fStr = fStr + Right(str, 1)
arrayStr = Split(fStr, ",")
For n = 0 To UBound(arrayStr)
compareStr = arrayStr(n)
For j = n To UBound(arrayStr)
If (Asc(arrayStr(j)) < Asc(compareStr)) Then
exChange = j
compareStr = arrayStr(j)
arrayStr(exChange) = arrayStr(n)
arrayStr(n) = compareStr
End If
Next j
Next n
For n = 0 To UBound(arrayStr)
Print arrayStr(n)
Next n
End Sub
现在才开始学QTP
我是个初学者，很高兴能在这里认识你哦，虽然我不知道你说的是什么东西，但是我知道这是你呕心之作！别的不说了，顶下先！ 多谢楼主奉献,祝新年快乐,心想事成! 学习中，感谢LZ 的分享！ LZ要常回家看看。 聚沙成塔,集腋成裘,感谢LZ:)
