UC知道这段VBS哪里不对(删除重复字符)
来源：百度知道 编辑：UC知道 时间：2024/07/03 02:49:46
' 如果字符串中有重复字符,只保留第一个,后面的去除.
a="永乐永六队6354六八六八八5"
k=0
While k<len(a)
a=left(a,k)&replace(right(a,len(a)-k),mid(a,k,1),"")
k=k+1
Wend
MsgBox a
提示错误的调用:mid
提示“无效的过程调用或参数:'mid'”
k为什么不能是0
a="永乐永六队6354六八六八八5"
k=0
While k<len(a)
a=left(a,k)&replace(right(a,len(a)-k),mid(a,k,1),"")
k=k+1
Wend
MsgBox a
提示错误的调用:mid
提示“无效的过程调用或参数:'mid'”
k为什么不能是0
k怎么能是零，那你告诉我，一个字符串的第0个字符是哪个？
########################
mid(a,k,1)中，k不能从0开始，而应该从1开始。
你改为
k=1
While k<=len(a)
即可，或者像楼上那样改就行
a="永乐永六队6354六八六八八5"
k=0
While k<len(a)
k=k+1
a=left(a,k)&replace(right(a,len(a)-k),mid(a,k,1),"")
Wend
MsgBox a