雨加雪 2008-1-31 16:02
谢谢 学习了
edwardguo 2008-1-31 22:08
唯有不断创造和分享，知识才能不断积累。谢谢楼主的贡献，以后也要自己做点东西共享出来呀，哈哈！！
看到有的是操作EXCEL文件的，这个还没有尝试过，以后准备要去试试－－－>
[[i] 本帖最后由 edwardguo 于 2008-1-31 22:10 编辑 [/i]]
fish_yy 2008-1-31 22:30
真的挺好，支持一下！
kanebluba 2008-1-31 23:20
这是我重新编写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 2008-1-31 23:21
以下是第二种自动检测重复字符的
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 2008-2-1 11:16
支持楼主！！！！
支持楼主！！！！:victory: :handshake
有这种境界才能又好的发展前途啊！
apoi 2008-2-1 11:33
无私的人!好人
testkant 2008-2-1 13:41
谢LZ咯 ！祝工作顺利！！
vickywong 2008-2-4 15:53
汗颜啦，正在学习中，还不会用，下了还不懂怎么用，
希望结识一些，懂了的，或者正在懂的，学习的，或是打算学习的朋友，共同学习互帮互助啊。
我的QQ：290425670
kanebluba 2008-2-5 11:54
不要只是拿来主义阿，有什么新的想法贴一贴阿，比方说再优化一下什么的
wq0909 2008-2-5 17:33
先挂个单，他日用时再看
kanebluba 2008-2-7 16:16
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 2008-2-10 11:03
现在才开始学QTP
我是个初学者，很高兴能在这里认识你哦，虽然我不知道你说的是什么东西，但是我知道这是你呕心之作！
别的不说了，顶下先！
1qazse4 2008-2-11 12:11
多谢楼主奉献,祝新年快乐,心想事成!
ivon1020 2008-2-13 14:38
学习中，感谢LZ 的分享！
heqingbluesky 2008-2-14 15:19
LZ要常回家看看。
WillTerner2 2008-2-15 15:32
聚沙成塔,集腋成裘,感谢LZ:)
Lola1123 2008-2-18 11:15
收藏收藏
谢谢LZ
denisye 2008-2-18 11:42
谢谢分享，呵呵
leilei222 2008-2-19 15:31
谢谢楼主无私奉献:D :D
vivianlemon 2008-2-19 17:16
:victory:
qicyt1812 2008-2-20 11:05
:P
atao 2008-2-20 14:53
多谢分享~
小雨不停 2008-2-20 16:57
谢谢楼主无私奉献的精神
walker1020 2008-2-28 23:13
不错的资料，值得学习！
feidifd 2008-3-4 11:48
多谢楼主
vickiren 2008-3-11 11:29
回复 1# 的帖子
:) :) :)
发展的越来越好
ljh 2008-3-13 01:19
Thanks!
xinyu2119 2008-3-21 09:47
很不错~~支持一下！！
momang 2008-3-21 10:31
感谢LZ 无私。。。
sweetone 2008-3-22 10:44
太感谢了.太有用了..
cxm027 2008-3-25 15:05
谢谢LZ！
whshen 2008-3-30 10:41
:) 非常不错,多谢!
yuco 2008-3-31 10:27
谢谢哈，刚开始学习使用QTP，还不知道怎么用，留下研究先
今天有雾 2008-3-31 10:56
感谢楼主的经验分享呀
yuqingannie 2008-4-10 12:44
宝贝啊!
好久没来了, 一来就抓到宝贝了!谢谢!
gggwavj 2008-4-17 15:03
楼主真是好心人
wwlih 2008-5-13 16:01
非常感谢，:)
yy199771 2008-5-13 16:23
支持一下 常回来看看哈。