51Testing软件测试论坛

标题: 求高手指教：生成字串的所有可能组合 [打印本页]
作者: 五百螺汉    时间: 2008-5-3 21:37
标题: 求高手指教：生成字串的所有可能组合
生成下面字串的所有可能组合：

“E”,”F”,”IJK”, “9”, “87”, “KM”
作者: 五百螺汉    时间: 2008-5-3 21:38
请问一下，这段脚本应该怎么写？
作者: walker1020    时间: 2008-5-4 00:36
提示一点：使用 Left、  Length等函数和  + 操作符，再加上一个循环语句，基本就可以实现了。具体只能由你自己去实现了
作者: hsjzfling    时间: 2008-5-4 14:43
这个。。。"生成字串的所有可能组合"怎么理解。。。有没字符串个数限制？能否出现重复字符串？？
不同的需求写出的代码是完全不同的。。。最简单的一种情况就是固定字符串个数，并允许出现重复~~
作者: hsjzfling    时间: 2008-5-4 19:59
下班回家顺便写了个全排列的函数
输入参数为一个字符串数组，返回值是该数组所有元素的全排列数组
例如：
MyArray=GetAllPermutation(Array("a","b","cd","123","jkl","!@#"))
那么MyArray(0)值应该是"abcd123jkl!@#"而MyArray(719)值就是[email=!@#jkl123cdba]!@#jkl123cdba[/email]
程序的逻辑很简单，就是循环去取N位，不过就是易读性很糟糕~~
一会写个递归的，那个看起来比较清晰。

  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

  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

  22. Execute s
  23. GetAllPermutation=cArr
  24. End Function

  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

  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    时间: 2008-5-4 21:33
这个是使用递归的，也是返回全排列，看起来应该是比之前那个动态生成代码的要清楚多了，用法都一样~

  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  

  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

  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

  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
复制代码




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2