Beiträge von Alina

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

So, Stand ist, es löuft mit der DosBox perfekt.

Jepp

Ja, ADR.COM ist ein wunderbares Programm. Ich habe einige hundert Adressen so gespeichert.

Das mit dem Speicherpfad kann ich evtl. ändern. Da hat er mir damals gezeigt wo was über einen

Hexediter oder so zu bearbeiten ist. Da müsste ich aber uralte Textdateien mal durchsuchen.

Ja das mit dem Mounten habe ich mir bereits gedacht, da er ja irgendwoie auf die adr.com zu-

greifen muss.

Gespeichert wird erst in Adressen.00, danach in Adressen01 usw.

Ja, ein Transferprogramm könnte evtl. hilfreich sein. Aber derzeitig habe ich dazu keine Zeit.

Vielen Dank für Eure Hilfe. Ihr diskutiert noch? Ich lasse es dann als "unerledigt". Okay?

Andy.

Ja, Oli war ein sehhhhhhhr guter Freund und lebt ja leider nicht mehr.
Alles was Du oben geschrieben hast, habe ich schon irgendwo gewöhrt.

Er war begeistereter ASM Programmierer und da, wo er seit seiter Jugend
schwer krank war.
Ich würde es auch zu seinen Ehren noch weiter nutzen. MAn kann sich noch
eine Bat schreiben, habe ich früher gemacht, damit ich z. B. an Geb.-Tage
erinnert werde.


DANKE allen für ihre HIlfe.

Alina

Anhang: adr.zip Inhalt der Zip: adr.com (in *asm geschrieben)

Moin zusammen.

Das ich einmal unter Andere Programmiersprachen etwas poste, hätte ich nicht gedacht. Aber ich habe ein großes Anliegen.

Die Datei ADR.com arbeitet auf alten PC's einwandfrei, nur ich habe sie schon unter Windows 7 nicht mehr zum laufen bekommen und jetzt unter Windows 10 auch nicht.
Sie wurde in den 1990ern geschrieben und leider ist der Schreibe nach langer Krankheit (ich war seit 25 Jahren mit ihm befreundet) verstorben.

Gibt es eine Möglichkeit das ich das Programm irgendwie unter WIndows 10 nutzen kann und wenn ja, wo finde ich eine Beschreibung.

Vielen Dank schon an dieser Stelle.

Download gelöscht.

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 !

Zitat von Oscar

Das passiert doch bereits: _GUICtrlListView_DeleteAllItems($idListview) in der Funktion "_AddToListview".

Das habe ich auch so aus dem Script gelesen.
Aber wenn ich z. B. nur hinten eine 0 einfüge und nochmals auf den Button drücke, leert er die Spalten nicht, wo es durch die zusätzloche 0, ja evtl. keinen Teiler gibt. Ich habe eine 0 hinten eingefügt und den Button gedrückt und dann zeigt er das so an.
Aber sonst läuft das einwandfrei und gefällt mir sehr. Das mit den "2er+" und so lasse ich weg.

Screenshot 2023-09-26 165559.png

HansJ54 : Bitte einmal die "blp_ToolsAllg.au3" posten.

Danke für die Erklärung !!!

Zitat von Oscar

Also ohne die ganzen "Xer+"-Spalten, sieht das jetzt so aus:

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
                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)
    _GUICtrlListView_DeleteAllItems($idListview)
    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.

Wo muss ich es machen, das wenn ich auf Button 11 drücke, das dann vorher die "alte Auswertung" gelöscht wird?
Sonst bin ich erst einmal sehr zufrieden.

D A N K E

L I N A

Peter S. Taler
Ja ich habe gesehen, ds es ein Unterschied der Dateien von 185 Byte gibt. Inhaltlich gleich, aber irgendwo müssen ja die Bytes 185 Byte einen Grund haben. Vielleicht das mit den "nichts" und "00".

Und wie geschrieben, es war einfach eine Idee dem einmal nachzugehen, weil ich es mich aktuell gefragt habe.
Ich bin so, das ich mache und nicht groß hinterfrage (nicht immer *fg*). Stand auf dem Flugplatz und habe mich gefragt, wie es ist mal aus einen Flugzeug, durch die Wolken zu springen. Nicht lange nachgedacht und PENG, 4.500 Meter freier Fall und die Antwort bekommen.

HxD habe ich bereits im Downloadordner

Zitat von Oscar

Wie kommst Du darauf, dass ein (Text-)Editor eine Bilddatei (binäre Daten) korrekt (1:1) auslesen kann?

War im Kopf der Gedanke und bevor ich lange mir Erklärungen ausgoogle, habe ich es einfach ausprobiert.

Moin Jungs.

Sorry für den Titel, aber er sagt wohl alles. Diese Ironieeee

Ich hatte gerade mal eine ganz komische Idee. Ihr denkt jetzt bestimmt, eine typische Alina Idee und so ist es.

ich öffne das Bild bild.png mal mit dem Editor und kopiere den gesamten "Text".
Danach mache ich eine neue Datei mit dem Editor auf und füge das gerade kopierte dort ein. Danach speichere ich die neue Datei unter dem Namen bild_neu.png. Eine 1:1 Kopie !!!
Wasserblase, das haute so gar nicht hin. Beide Dateien sehen inhaltlich gleich aus, dennoch kann das neue Bild nicht geöffnet werden.

Ich möchte jetzt nicht lesen, das es eine blöde Idee ist. Ich frage mich wieso das so ist und ob das grundsätzlich machbar wäre und wenn unter welchen Voraussetzungen?

Es geht mir rein darum es zu verstehen und mein Wissen zu erweiter bzw. die Neugierde zu stimmen. Somit nichts, muss ich scripten.

mumpel
erst einmal Glückwunsch nachträglich.

Ich lebe heute und mir geht es soweit gut. Also wieso mit dem "Tod" beschäftigen.

AutoIt wird mich überleben und ich meine das man auch noch in 100 Jahren AutoIt im Netz aktiv sehen wird. Beten wir also ein "AutoIt Unser. Das Du bist auf meinen Festplatten. ......".

Zitat von Alina

Aber hier wird am Thema vorbei geredet.

Stirbt AutoIt nun aus oder nicht?
Ich muss das planen. Wann / wo ist die Beisetzung und wer wird die/der Nachfolger/in?

Also, beim Thema bitte bleiben.

Zitat von Peter S. Taler

Ansonsten ich unterschreibe es ...Bringt eine Veränderung allen/vielen Anwendern einen echten Mehrwert. (Optischer Schnickschnack zählt m.M. nicht dazu)....

Unterschreibe ich auch.

mumpel
Es ist doch schön, wenn immer mindestens einer lacht.

Racer
Getestet und für gut befundet. DANKE !

Das wir Dir besser helfen können und es auf unseren Monitoren komplett sehen und testen können?

Rene, aber nicht jeder hat solche Auflösung.
Da ich aber davon ausgehe, das Du und dr für den es ist, die Bildschirmgröße haben und verwenden.
Reichen würde, damit es auf allen Monitoren geht, ggf. Scrooooolleisten zu nutzen.

Gruß an den Bodensee nach Lindau und schönes Wochenende.

Alina

Peter S. Taler
Habe es jetzt ganz gelesen und es auch nach dem dritten mal verstanden.
Ich denke da gleich an Microsoft. Wie oft gibt es da neue Office-Versionen? Alles nur Geld in "Billy's" Kasse.
Und dann auch noch diese Fehler. Letztens erst erlebt, das jemand eine Worddatei mit Office 2003 öffnen wollte, das aber Microsoft nicht wollte. "Die Datei wurde mit einer neueren Version erstellt." Dann konnte ich wählen ob ich zur Helfe auf eine Microsoftseite weitergeleitet werden möchte? Allternativ: Datei nicht öffnen. Also sagte ich "JA", aber bei Microsoft ist die Seite bis heute nicht aktiv.
Gelöst haben wir es dann mit einem Update.
Wieso belassen die es nicht bei einer Version und machen dann Updates. Die können sie ja kostenpflichtig machen. Wer Update x, y, Z, haben möchte zahlt und gut. Müssen doch nicht gleich Unsummen sein.