如何数植统计 。[已解決]

yfei9999

提个问题   我是个新手 感觉 比较难 请指点 一下
问题如下：
从０００到９９９中随意输入一个数，没重复的按一次计算，重复的统计次数，随机输入多少次以后，按重复次数从多到少或从少到多排列，列出表格
比如输入：
０１２
０２３
１２３
２３５
６７８
０２３
０２３
６７８
．．．．．．．
然后排列
０２３　　３次
６７８　　２次
０１２　　１次
１２３　　１次
２３５　　１次
．．．．．．．

水木子

没明白LZ的意思，能再描述清楚些吗？

统计每组数值重复了多少次？

yfei9999

回复 2# 水木子


    统计每组数值重复了多少次 就是这样

水木子

回复 3# yfei9999
能否把你那个文本，“第一行123 第二行321 等三行123” 那个发上来看看！你这样举例有点难猜！

水木子

不知道LZ是不是这意思？

#include <Array.au3>
Local $Text

$sText = '第一行 123' & @CRLF & _
                '第二行 321' & @CRLF & _
                '等三行 123' & @CRLF & _
                '第四行 456' & @CRLF & _
                '第五行 123' & @CRLF & _
                '第六行 321' & @CRLF & _
                '等七行 123' & @CRLF & _
                '第八行 456' & @CRLF & _
                '第九行 123' & @CRLF & _
                '第十行 789'
                
MsgBox(0, '原字符串', $sText)

$sRe = StringRegExp($sText, '\d+', 3)
$var = _ArrayUnique($sRe)
For $i = 1 To $var[0]
        $sReg = StringRegExp($sText, $var[$i], 3)
        $Text &= $var[$i] & '   出现了'& UBound($sReg) &'次' & @CRLF
Next

MsgBox(0, '统计结果', $Text)

yfei9999

回复 5# 水木子


谢谢关注
不是这个意思
看看这回说明白了没有

bing614

根据_ArrayUnique修改的

#include <Array.au3>
#include <file.au3>
Local $aArray
_FileReadToArray(@ScriptDir & "\shuzhi.txt",$aArray)
$aNewArray = _ArrayUnique_test($aArray)
_ArrayDisplay($aNewArray)

Func _ArrayUnique_test($aArray)
        Local $vDelim = Chr(01), $sHold, $_NewArray[1][2]
        For $iCC = 1 To UBound($aArray) - 1
                If Not StringInStr($vDelim & $sHold, $vDelim & $aArray[$iCC] & $vDelim) Then
                        $sHold &= $aArray[$iCC] & $vDelim
                        $_NewArray[UBound($_NewArray) - 1][0] = $aArray[$iCC]
                        $_NewArray[UBound($_NewArray) - 1][1] = 1
                        ReDim $_NewArray[UBound($_NewArray) + 1][2]
                Else
                        $_item = _ArraySearch($_NewArray, $aArray[$iCC])
                        $_NewArray[$_item][1] += 1
                EndIf
        Next        
        ReDim $_NewArray[UBound($_NewArray) - 1][2]
        Return $_NewArray
EndFunc

yfei9999

回复 7# bing614


   以解决 就是 输出的 结果能不能 按次数大小 排列 一下 就 完美 了

bing614

排序用 _ArraySort

lxz

好久不见你啊.....

bing614

回复 10# lxz