求高手指教：生成字串的所有可能组合

五百螺汉

生成下面字串的所有可能组合：

“E”,”F”,”IJK”, “9”, “87”, “KM”

五百螺汉

请问一下，这段脚本应该怎么写？

walker1020

提示一点：使用 Left、  Length等函数和  + 操作符，再加上一个循环语句，基本就可以实现了。具体只能由你自己去实现了

hsjzfling

这个。。。"生成字串的所有可能组合"怎么理解。。。有没字符串个数限制？能否出现重复字符串？？
不同的需求写出的代码是完全不同的。。。最简单的一种情况就是固定字符串个数，并允许出现重复~~

hsjzfling

下班回家顺便写了个全排列的函数
输入参数为一个字符串数组，返回值是该数组所有元素的全排列数组
例如：
MyArray=GetAllPermutation(Array("a","b","cd","123","jkl","!@#"))
那么MyArray(0)值应该是"abcd123jkl!@#"而MyArray(719)值就是[email=!@#jkl123cdba]!@#jkl123cdba[/email]
程序的逻辑很简单，就是循环去取N位，不过就是易读性很糟糕~~
一会写个递归的，那个看起来比较清晰。

1. 
   
2. Function GetAllPermutation(sArr0)
   
3. Dim sLen,s,aLen,i,counter
   
4. sLen=UBound(sArr0)+1
   
5. aLen=Factorial(sLen)
   
6. s="Dim cArr("&aLen&")"
   
7. Execute s
   
8. 
   
9. s="counter=0:"
   
10. For i=0 To sLen-2
    
11.   s=s&"For i"&i&"=0 To "&sLen-1-i&":sArr"&i+1&"=RemoveFromArray(sArr"&i&",i"&i&"):"
    
12. Next
    
13. s=s&"cArr(counter)="
    
14. For i=0 To sLen-2
    
15.   s=s&"sArr"&i&"(i"&i&")&"
    
16. Next
    
17. s=s&"sArr"&i&"(0):counter=counter+1:"
    
18. For i=0 To sLen-2
    
19.   s=s&"Next:"
    
20. Next
    
21. 
    
22. Execute s
    
23. GetAllPermutation=cArr
    
24. End Function
    
25. 
    
26. Function RemoveFromArray(ByVal arr,index)
    
27. Dim sTemp,arrTemp
    
28. arr(index)=""
    
29. sTemp=Join(arr,"|")
    
30. If Left(sTemp,1)="|" Then
    
31.   sTemp=Right(sTemp,Len(sTemp)-1)
    
32. ElseIf Right(sTemp,1)="|" Then
    
33.   sTemp=Left(sTemp,Len(sTemp)-1)
    
34. Else
    
35.   sTemp=Replace(sTemp,"||","|")
    
36. End If
    
37. arrTemp=Split(sTemp,"|")
    
38. RemoveFromArray=arrTemp
    
39. End Function
    
40. 
    
41. Function Factorial(num)
    
42. Dim n,product
    
43. product=1
    
44. For n=2 To num
    
45.   product=product*n
    
46. Next
    
47. Factorial=product
    
48. End Function
    

复制代码

[ 本帖最后由 hsjzfling 于 2008-5-4 21:28 编辑 ]

hsjzfling

这个是使用递归的，也是返回全排列，看起来应该是比之前那个动态生成代码的要清楚多了，用法都一样~

1. 
   
2. Function GetAllPermutation(ByVal sArr)
   
3. sLen=UBound(sArr)+1
   
4. aLen=Factorial(sLen)
   
5. s="Dim aResult("&aLen&")"
   
6. Execute s
   
7. Call GetString(sArr,"",aResult,0)
   
8. GetFullPermutation=aResult
   
9. End Function  
   
10. 
    
11. Function GetString(ByVal aTemp,ByVal strTemp,ByRef aResult,ByRef counter)
    
12. Dim i,str
    
13. If UBound(aTemp)>0 Then
    
14.   For i=0 To UBound(aTemp)
    
15.    str=strTemp&aTemp(i)
    
16.    Call GetString(RemoveFromArray(aTemp,i),str,aResult,counter)
    
17.   Next
    
18. Else
    
19.   aResult(counter)=strTemp&aTemp(0)
    
20.   counter=counter+1
    
21. End If
    
22. End Function
    
23. 
    
24. Function RemoveFromArray(ByVal arr,index)
    
25. Dim sTemp,arrTemp
    
26. arr(index)=""
    
27. sTemp=Join(arr,"|")
    
28. sTemp=Replace(sTemp,"||","|")
    
29. If Left(sTemp,1)="|" Then
    
30.   sTemp=Right(sTemp,Len(sTemp)-1)
    
31. ElseIf Right(sTemp,1)="|" Then
    
32.   sTemp=Left(sTemp,Len(sTemp)-1)  
    
33. End If
    
34. arrTemp=Split(sTemp,"|")
    
35. RemoveFromArray=arrTemp
    
36. End Function
    
37. 
    
38. Function Factorial(num)
    
39. Dim n,product
    
40. product=1
    
41. For n=2 To num
    
42.   product=product*n
    
43. Next
    
44. Factorial=product
    
45. End Function
    

复制代码