字符串组合，怎么支持任意组合？

heavenm

$a = "1234567890"
$b = StringRegExp($a, '\d', 3)
Dim $c[0]
#include <Array.au3>
For $i = 0 To UBound($b)-1
        For $j = 0 To UBound($b)-1
        _ArrayAdd($c,$b[$i] & $b[$j])
        Next
Next
_ArrayDisplay($c)

目前2位组合够了，先写着，果断时间没人回答我再研究哈！
之前有帖子讨论过类似问题，不过好像不太适用！

afan

又准备自问自答是吧
_ArrayCombinations()

heavenm

afan 发表于 2019-9-28 11:53
又准备自问自答是吧
_ArrayCombinations()

我突然发现我写的代码有问题，400行的数据，好像程序一直不显示 ，然后我计算了一下，我靠，这个好像有16万个组合啊！我的天，这个要生成好久啊！！！

#include <File.au3>
#include <Array.au3>
Global $pingyin
_FileReadToArray('拼音索引.txt',$pingyin)
Dim $result[0]

For $i = 0 To $pingyin[0]
        For $j = 0 To  $pingyin[0]
        _ArrayAdd($result,$pingyin[$i] & $pingyin[$j])
;~         FileWriteLine('py.txt',$pingyin[$i] & $pingyin[$j])
        Next
Next
_ArrayDisplay($result)

heavenm

希望的的代码是正确的，这得生成多久汗！我觉得可以看个电影去了

heavenm

原来是数组显示卡住了，十六万显示不了可能，写本地文件很快搞定了！确实是16万，我算对了
X的次方就是结果

破帽遮颜

afan 发表于 2019-9-28 11:53
又准备自问自答是吧
_ArrayCombinations()

A大厉害，第一次使用这个函数，好用好用，学习了