heavenm 发表于 2019-9-28 11:45:53

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

$a = "1234567890"
$b = StringRegExp($a, '\d', 3)
Dim $c
#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 发表于 2019-9-28 11:53:21

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

heavenm 发表于 2019-9-28 11:56:50

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

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

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

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

heavenm 发表于 2019-9-28 11:59:00

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

heavenm 发表于 2019-9-28 12:00:55

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

破帽遮颜 发表于 2019-10-1 01:53:36

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

A大厉害，第一次使用这个函数，好用好用，学习了:face (23):
页: [1]
查看完整版本: 字符串组合，怎么支持任意组合？