CSDN博客

img lyserver

一个用VB实现的对任意字符串进行排列并排序的函数

发表于2008/10/1 8:17:00  3602人阅读

分类: VB6

    说实在的,原本没想到自己要写这个函数,是在看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

    补充说明:由于字典数据较多时,排列的结果非常大,故未采用数组,读者可把结果输出到文件中进行验证。

0 0

相关博文

我的热门文章

img
取 消
img