字符串数组：排序并排除重复项

最新推荐文章于 2023-10-19 17:24:10 发布

AMinfo

最新推荐文章于 2023-10-19 17:24:10 发布

阅读量2.1k

点赞数

分类专栏：排序 VBS

本文链接：https://blog.youkuaiyun.com/AMinfo/article/details/26608375

版权

VBS 同时被 2 个专栏收录

13 篇文章

订阅专栏

排序

2 篇文章

订阅专栏

本文介绍了一种使用VBA实现去除字符串数组中的重复项并进行排序的方法。该方法首先利用Split函数将字符串分割成数组，然后通过自定义函数SortArray对数组进行排序，并在GetNewArray函数中去除重复项。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

字符串数组排序并排除重复项：通过排序方法排除其中的重复项、重复值，方法如下：

http://blog.youkuaiyun.com/aminfo/article/details/26608375

Dim strArray
strArray = Split("CD,AA,B,E,G,C,CD,GH,TY,OP,QQ,GO,GO,QQ,A,B,C,D,E,F,GH,CD,AA,B,E,G,C,CD,GH,TY,OP,QQ,GO,GO,QQ,A,B,C,D,E,F,GH", ",")

newArray = getNewArray(strArray)

newStr = newArray(0)
For i = 1 to ubound(newArray)
	 newStr = newStr & "," & newArray(i)
Next

Wscript.echo newStr

'排除重复项并排序
Function GetNewArray(strArray)

	Dim WordArray
	'先对字符串进行排序
	WordArray = Split(Trim(SortArray(strArray)), " ")

	Dim LastWord
	GetNewArray = WordArray(0)
	LastWord = Lcase(WordArray(0))

	If ubound(WordArray)>0 Then
		For wi = 1 to ubound(WordArray)
			If Lcase(WordArray(wi))<> LastWord Then
				GetNewArray = GetNewArray & "," & WordArray(wi)
				LastWord = Lcase(WordArray(wi))
			End If
		Next
	End If
	GetNewArray = Split(GetNewArray, ",")

End Function


'排序
Function SortArray(strArray)
	Dim oArrayList, iElement
	Set oArrayList = CreateObject("System.Collections.ArrayList")
	Dim thisArray
	thisArray = strArray
	For iElement = 0 To UBound(thisArray)
		oArrayList.Add thisArray(iElement)
	Next
	oArrayList.Sort		'通过ArrayList的Sort方法对数组进行排序
	thisArray = oArrayList.toArray
	SortArray = join(thisArray, " ") 		'返回字符串
End Function