告别QTP板块，临走吐点心血送给大家（知识是共享和堆积的，不是卖钱的，完全免费）

雨加雪

谢谢      学习了

edwardguo

唯有不断创造和分享，知识才能不断积累。谢谢楼主的贡献，以后也要自己做点东西共享出来呀，哈哈！！
看到有的是操作EXCEL文件的，这个还没有尝试过，以后准备要去试试－－－>

[ 本帖最后由 edwardguo 于 2008-1-31 22:10 编辑 ]

fish_yy

真的挺好，支持一下！

kanebluba

这是我重新编写LZ的去重复字段的代码,可能我不是用VBS的缘故,我直接用VB编译器的,不过应该做相应的小改动就可以了.
有两种方式,先介绍第一种,这种是用户指定重复字段
Private Sub Form_Activate()

Dim i As Integer
Dim str As String
Dim s  As 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

kanebluba

以下是第二种自动检测重复字符的
Private Sub Form_Activate()

Dim str As String
Dim s  As 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

bingdu520

支持楼主！！！！
有这种境界才能又好的发展前途啊！

apoi

无私的人!好人

testkant

谢LZ咯 ！祝工作顺利！！

5555

感谢~

vickywong

汗颜啦，正在学习中，还不会用，下了还不懂怎么用，

希望结识一些，懂了的，或者正在懂的，学习的，或是打算学习的朋友，共同学习互帮互助啊。

我的QQ：290425670

kanebluba

不要只是拿来主义阿，有什么新的想法贴一贴阿，比方说再优化一下什么的

wq0909

先挂个单，他日用时再看

kanebluba

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

Frankwang

我是个初学者，很高兴能在这里认识你哦，虽然我不知道你说的是什么东西，但是我知道这是你呕心之作！
别的不说了，顶下先！

1qazse4

多谢楼主奉献,祝新年快乐,心想事成!

ivon1020

学习中，感谢LZ 的分享！

heqingbluesky

LZ要常回家看看。

WillTerner2

聚沙成塔,集腋成裘,感谢LZ

Lola1123

谢谢LZ

denisye

谢谢分享，呵呵