Analyse von Daten

Zitat von Oscar

Dann muss der Befehl eben oben in die Schleife

War ich gerade dabei es umzusetzen. Hatte es direkt als erstes nach dem drücken von Button-11 gesetzt, aber konnte es ja nicht gehen, da dann noch gar nicht die $i gesetzt ist.

Aber jetzt läuft das. Danke, Danke, Danke !

Hallo Oscar.

Soweit alles okay und sehr zufriedendstellend.
Wo baue ich es jetzt ein, das wenn ich einen der grünen Buttons drückt, das ich mir dann die Werte in Textdateien speichern kann?
Name ergibt sich ja aus den Spaltennamen im Listview. Hatte gedacht ich nehme das Return $aFrequency und schreibe es weg, aber nee, das möchte nicht so wie ich. Also gar nicht.

Zitat von Oscar

AutoIt

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 1080, 610)
Global $Input1 = GUICtrlCreateInput("Ich bin eine Testnachricht.", 5, 5, 1000, 20)
Global $Input2 = GUICtrlCreateInput("339499542504568557573498571424356429481419498666371439578426583629574422585557423487", 5, 30, 1000, 20)
Global $Teiler = GUICtrlCreateLabel("Teiler", 5, 75, 25, 25)
Global $aButton[10], $aText = StringSplit('1|2|3|4|5|6|7|8|9|10', '|', 2)
For $i = 0 To 9
    $aButton[$i] = GUICtrlCreateButton($aText[$i], 35 + 25 * $i, 65, 25, 25)
Next
Global $Button11 = GUICtrlCreateButton("Analyse starten", 350, 65, 155, 25)
Global $aListview[10], $aText = StringSplit('1er|2er|3er|4er|5er|6er|7er|8er|9er|10er', '|', 2)
For $i = 0 To 9
    $aListview[$i] = GUICtrlCreateListView($aText[$i], 10 + 105 * $i, 100, 100, 500)
Next
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $nMsg, $sNumbers, $laenge
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button11
            $sNumbers = GUICtrlRead($Input2)
            $laenge = StringLen($sNumbers)
            For $i = 0 To 9
                _GUICtrlListView_DeleteAllItems($aListview[$i])
                If ($i = 0) Or (Not Mod($laenge, $i + 1)) Then
                    GUICtrlSetBkColor($aButton[$i], 0x00FF00) ; Grün
                    _AddToListview($aListview[$i], $sNumbers, $i + 1)
                Else
                    GUICtrlSetBkColor($aButton[$i], 0xFF0000) ; Rot
                EndIf
            Next
    EndSwitch
WEnd

Func _AddToListview($idListview, $sInput, $iChar)
    Local $aFrequency = _CreateArray($sInput, $iChar)
    For $i = 0 To UBound($aFrequency) - 1
        GUICtrlCreateListViewItem($aFrequency[$i][0] & ' : ' & $aFrequency[$i][1], $idListview)
    Next
    _GUICtrlListView_SetColumnWidth($idListview, 0, $LVSCW_AUTOSIZE)
EndFunc

Func _CreateArray($sInput, $iChar)
    Local $mFreq[]
    $sInput = StringRegExpReplace($sInput, "[^0-9]", "") ; Trennzeichen und Leerzeichen entfernen

    For $i = 0 To StringLen($sInput) - $iChar Step $iChar
        $mFreq[StringMid($sInput, $i + 1, $iChar)] += 1
    Next
    Local $aKeys = MapKeys($mFreq), $iCnt = UBound($aKeys), $aFrequency[$iCnt][2]
    For $i = 0 To $iCnt - 1
        $aFrequency[$i][0] = $aKeys[$i]
        $aFrequency[$i][1] = $mFreq[$aKeys[$i]]
    Next
    _ArraySort($aFrequency, 1, 0, 0, 1)
    Return $aFrequency
EndFunc

Alles anzeigen

Hallo Oscar.

Da passt !!!

Habe noch ein Filedelet eingebaut, das wenn man Button-11 drückt, das die alten "*er.txt" gelöscht werden.

Jetzt ist ein Tool schon ganz schön weit.

1.) "Text-2-Zahl" und dann durch die Zahlensystem schickten und andere "Spielereien".

2.) Zahlenanalyse

3.) sehen mit welchen Paaren man evtl. den Ziffernstring wieder erstellen kann. Also ob es möglich ist. (in der Testphase: Wocheende 29.09 - 01.10.)

4.) Dateien splittern so, das immer 64 Ziffern in einer Datei sind. bereits gescriptet, bedarf der Einpflege.

zu 1.u. 2.) arbeitet einwandfrei DANK einiger Hilfe aus dem Forum

zu 3.)

Wenn ich einen String in seine Paare trenne, bekomme ich zum Beispiel Werte:

5844 : 2
3157 : 1
9628 : 1
2944 : 1
5704 : 1
8448 : 1
9432 : 1
2335 : 1
5215 : 1
2424 : 1
3557 : 1
7144 : 1
8430 : 1
3249 : 1
3658 : 1
5926 : 1
3949 : 1
5157 : 1
8488 : 1
5705 : 1
5775 : 1
3164 : 1
9946 : 1
5414 : 1
0236 : 1
3158 : 1
4429 : 1
4796 : 1
3764 : 1
4498 : 1
3257 : 1
8634 : 1

584431 : 1
579628 : 1
359432 : 1
498448 : 1
570423 : 1
294432 : 1
521571 : 1
443557 : 1
582424 : 1
498430 : 1
592636 : 1
578488 : 1
570502 : 1
577551 : 1
316499 : 1
465414 : 1
364498 : 1
584429 : 1
479639 : 1
376431 : 1
584432 : 1
578634 : 1

Es bringt nichts, wenn man den String wieder herstellen kann. Ich möchte nur testen ob es möglich ist, wovon ich ausgehe. Werde mir die Paare auf kleine Zettel ausdrucken in der jeweiligen Menge, dann alle Teile durcheinander bringen und dann selber mich versuchen. Puzzeln für Mathemegeisterte.
Wenn das geht, suche ich so lange, bis es richtig schwer wird und dann mache ich daraus ein "Mitarbeiterrätzel". Nicht entschlüsseln, sondern die richtige ZIffernfolge hinbekommen ist dann die Aufgabe. Vielleicht zur Adventszeit mit den ZIffern eines schönen Weihnachtslied. Nur welches ist wirklich schön?

Und für Euch im Forum vielleicht genauso ein Rätzel und wer es als erstes richtig macht und die richtige ZIffernfolge sendet bekommt ein "Foto der besonderen Art" von mir (nicht entkleidet, ihr "na na na" ). Ihr könnte ja mit den Paaren oben üben. Für Euch werde ich mir etwas ganz besonderes zur Advendszeit einfallen lassen.

Zu 4.)
Den langen ZIffernstring in immer 128 Ziffern trennen und wenn der Rest nicht 128 sind, dann der Rest in die letzte Datei. Datei durchnummerieren wäre sinnvoll für das, was ich später mit Excel vorhabe . Habe ich bereits irgendwo gescript gespeichert, muss ich nur noch finden einpflegen. Immer 127 Bytes/Dateien, außer die Letzte Datei.
Aber bevor ich da ran gehe muss alles andere (1. u. 2. erst einmal überarbeitet / aufgeräumt werden. Läuft zwar, aber ich habe an einigenm Stellen den Überblick verloren. Deshalb, jetzt eines nach dem anderen.