Moin,
gestern brauchte ich eine Funktion, die mir die Topwerte aus einem Array ausgibt.
Leider habe ich sowas trotz meines Freundes Google nicht gefunden.
Da mein Array aber dann auf einmal ein String wurde, brauchte ich noch ne andere Funktion
Langer Rede, kurzer Unsinn:
Gegeben: array["20pt","24pt","20pt","30pt","20pt","24pt"]
Ergebniss array[ ["20pt",3], ["24pt",2], ["30pt",1] ]
Und das ganze machen folgende Funktionen:
Spoiler anzeigen
#include <Array.au3>
Func TopWordCount($sTextToCount,$sDelimiter=" ")
Local $aTokens, $n
$aTokens=StringSplit($sTextToCount,$sDelimiter,2)
If Not IsArray($aTokens) Then Return ""
$aTokens=_ArrayUnique($aTokens,1,0,1)
Local $aRetTopWordCount[$aTokens[0]][2]
For $n=1 To $aTokens[0]
StringReplace($sTextToCount,$aTokens[$n],"",0,1)
$aRetTopWordCount[$n-1][1]=@extended
$aRetTopWordCount[$n-1][0]=$aTokens[$n]
Next
_ArraySort($aRetTopWordCount,1,0,0,1)
Return $aRetTopWordCount
EndFunc ; ==> TopWordCount
Func TopArrayCount($aArrayToCount)
Return TopWordCount(_ArrayToString($aArrayToCount),"|")
EndFunc