说实在的，原本没想到自己要写这个函数，是在看CSDN论坛里的一个贴子时，发现很多回复所给出的代码都非常繁杂。由于我水平有限，不习惯看过于复杂的代码，于是便想能不能有一个简短的。用GOOGLE搜索了一下，结果更头痛，最好的算法也是就了递归，却不知递归的缺点，当需要排列的字符串超过5个时，容易造成栈溢出，自然实现不了对任意字符串进行排列并排序的目的，无奈之下，便硬着头皮写了一个通用函数，代码如下：
Option Explicit
'* ************************************************************ *
' 函数名称：通用排列算法
' 参数说明：sDictionary : 需要进行排列的字典
' nDigit : 需要进行排列的位数
' bExclude : 是否排除相邻元素相同的情况
' 作者：lyserver
'* ************************************************************ *
Public Function RansackDictionary(ByVal sDictionary As String, ByVal nDigit As Integer, ByVal bExclude As Boolean)
Dim sValue As String, lVal_1 As String, lVal_2 As String
Dim i As Long, j As Long, k As Long, nBound As Long, nDictionaryLen As Long
nDictionaryLen = Len(sDictionary)
If nDigit < 1 Or nDigit > nDictionaryLen Then Exit Function
nBound = nDictionaryLen ^ nDigit - 1
For i = 1 To nDigit
For j = 0 To nDictionaryLen ^ i - 1
lVal_2 = ""
sValue = ""
For k = i To 1 Step -1
lVal_1 = Mid(sDictionary, Fix(j / (nDictionaryLen ^ (k - 1))) Mod nDictionaryLen + 1, 1)
If (Not bExclude) Or lVal_1 <> lVal_2 Then '排除相邻相同的情况
lVal_2 = lVal_1
sValue = sValue & lVal_1
End If
Next
If Len(sValue) = i Then Debug.Print sValue
DoEvents
Next
Next
End Function
'调用代码：
Sub main()
RansackDictionary "0123456789", 3, True
End Sub
补充说明：由于字典数据较多时，排列的结果非常大，故未采用数组，读者可把结果输出到文件中进行验证。 |
楼主
标题置顶
标题高亮
