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

原创 2008年10月01日 08:17:00

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

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

VB排序算法源码,支持倒序顺序字符排序数字排序

VB排序算法源码,支持倒序顺序字符排序数字排序 VB排序算法源码,支持倒序顺序字符排序数字排序...
  • xiaoyao961
  • xiaoyao961
  • 2014年11月27日 19:47
  • 1050

字符串排序

编写一个程序,将输入字符串中的字符按如下规则排序。规则1:英文字母从A到Z排列,不区分大小写。      如,输入:Type 输出:epTy规则2:同一个英文字母的大小写同时存在时,按照输入顺序排列。...
  • zhquanquan
  • zhquanquan
  • 2016年07月11日 09:57
  • 2487

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

说实在的,原本没想到自己要写这个函数,是在看CSDN论坛里的一个贴子时,发现很多回复所给出的代码都非常繁杂。由于我水平有限,不习惯看过于复杂的代码,于是便想能不能有一个简短的。用GOOGLE搜索了一下...
  • lyserver
  • lyserver
  • 2008年10月01日 08:17
  • 3854

4-5 使用函数的选择法排序 (25分)

本题要求实现一个用选择法对整数数组进行简单排序的函数。 函数接口定义: void sort( int a[], int n ); 其中a是待排序的数组,n是数组a中元素的个数。该函...
  • qq_36630770
  • qq_36630770
  • 2017年03月01日 20:00
  • 3269

用冒泡法,对十个数字进行从小到大排序

#include int main() { int a[10]; int i,j,t; printf("input 10 numbers:\n"); for(i=0;i
  • weichanjuan3
  • weichanjuan3
  • 2015年04月08日 20:17
  • 798

VB 排序 简单排序 文本框取数字排序 字符串取数字排序

  • 2011年03月25日 08:22
  • 197KB
  • 下载

VB排序算法源码,支持倒序顺序字符排序数字排序2

  • 2014年11月27日 20:24
  • 17KB
  • 下载

用指针指向指针的方法对5个字符串排序并输出

/* * Copyright (c) 2012, 烟台大学计算机学院 * All rights reserved. * 作 者: 刘同宾 ...
  • liubinzi123
  • liubinzi123
  • 2012年12月08日 08:50
  • 12202

6-5 使用函数的选择法排序(25 分)

6-5 使用函数的选择法排序(25 分) 本题要求实现一个用选择法对整数数组进行简单排序的函数。 函数接口定义: void sort( int a[], int n ); 其...
  • a1659091995
  • a1659091995
  • 2017年12月29日 10:57
  • 203

大文件内字符串排序

大文件内字符串排序
  • qq_32105589
  • qq_32105589
  • 2015年12月08日 20:14
  • 333
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个用VB实现的对任意字符串进行排列并排序的函数
举报原因:
原因补充:

(最多只允许输入30个字)