Teil eines Arrays wie in Excel bearbeiten

HansJ54

Nach langer Zeit ohne Probleme denke ich mal wieder über eine Optimierung nach:

Ich lese eine große csv-Datei in ein Array ein und möchte im Programm eine Spalte davon anzeigen und bearbeiten - so als ob ich diesen Teil des Arrays alleine in Excel vor mir hätte. Bisher habe ich die Input-Datei mit Excel geöffnet, Spalte gesucht und geändert, Datei gespeichert und die ganze Datei neu im Programm eingelesen.

In der ersten Spalte stehen die Feldbezeichnungen, daher müsste ich Spalte 1 und Spalte xx anzeigen können, die Werte in Spalte xx ändern und das Ganze wieder speichern.

Gibt es dafür schon eine fertige Lösung?

Danke für Eure Hilfe!

**BugFix**

Ich hatte mal angefangen, etwas in der Art zu schreiben. Ziel war dabei eine komplexe bedingte Formatierung zu ermöglichen. Excel ist da ja doch recht limitiert, bzw. verfällt in den Schleichgang, wenn man mehr als 3..4 Bedingungen pro Zelle definiert.

Das Basisgerüst steht, habe das Projekt dann aber aus Zeitgründen erst mal auf Eis gelegt. Ich suche das mal raus und werde es posten. Vielleicht hilft es dir weiter.

HansJ54

Danke! Bei mir stehen nur Texte drin, keine Formeln und Formatierungen. Ist vielleicht einfacher.

**Andy**

Hilft dir das?

AutoIt

;aus einer CSV-Datei die jeweilige Spalte in ein Array ausgeben

#include <Array.au3>

$txt = "Stadt,Land,Fluss,Farbe,Vorname,Nachname,Tier" & @CRLF   ;alternativ fileread("file.csv")
$txt &= "London,England,Themse,Blau,Heinz,Becker,Hund" & @CRLF
$txt &= "Mainz,Deutschland,Rhein,Gelb,Tim,Thaler,Katze" & @CRLF
$txt &= "Paris,Frankreich,Seine,Rot,Hilde,Meier,Maus"

ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $txt = ' & $txt & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

$s = ","                                                        ;Separator, der in der CSV verwendt wird
$column = "D"                                                   ;Spalte, entweder als Buchstabe A-Z

$col = Asc(StringUpper($column)) - 65                           ;Spalte, als Spaltennummer einsbasierend

$pattern = '(?m)^(?:[^' & $s & ']*' & $s & '){' & $col  & '}([^' & $s & ']*)' ;RegEx-Pattern

$res = StringRegExp($txt, $pattern, 3)                          ;RegEx
_ArrayDisplay($res, "Spalte " & $column)


ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
_ArrayDisplay($res, "Spalte " & $col)


$res=StringRegExpReplace($txt,$pattern,stringlen("${1}"))
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
_ArrayDisplay($res, "Spalte " & $col)

Alles anzeigen

Die Spalten sind entweder über die einsbasierte Spaltennummer oder den Spaltenbezeichner wie bspw in Excel, also A,B, XX usw. ansprechbar

Zitat von HansJ54

daher müsste ich Spalte 1 und Spalte xx anzeigen können, die Werte in Spalte xx ändern

Wieso "anzeigen"? Was soll denn gemacht werden? Ändern kann man direkt in einer CSV auch ohne "anzeigen"?!

HansJ54

Es ist eine große csv-Datei, die ich im Programm in ein Array einlese. Gelegentlich muss ich in einer Spalte testweise einige Werte ändern. Bisher verlasse ich das Programm, starte Excel, suche die Spalte, ändere und lese wieder ein und teste. Wenn die Tests erfolgreich waren, dann sollen die Werte in der ursprünglichen csv-Datei bleiben, sonst wieder zurück zum alten Stand.

Daher ist meine Idee, in einer Spalte im eingelesenen Array einige Werte zu ändern wie mit Excel, also vom AutoIt-Programm aus.

**BugFix**

Habe meine "Cells.au3" noch mal angeschaut. Grundsätzlich wäre es damit machbar, müsste aber auf jeden Fall stark verändert werden, da in jetziger Form nur das Anzeigen (und bedingte Formatieren) von Werten vorgesehen ist. Aber das auszuschlacken und umzubauen ist sicher komplizierter, als es selbst zu Erstellen.

HansJ54

Zitat von BugFix

Habe meine "Cells.au3" noch mal angeschaut. Grundsätzlich wäre es damit machbar, müsste aber auf jeden Fall stark verändert werden, da in jetziger Form nur das Anzeigen (und bedingte Formatieren) von Werten vorgesehen ist. Aber das auszuschlacken und umzubauen ist sicher komplizierter, als es selbst zu Erstellen.

Würde es bei Dir unter Meine UDF erwarten, bin aber entweder blind oder Cells.au3 ist nicht da? Nur zum Anschauen.

Andere Idee: ich habe gerade eine UDF gefunden, mit der man CSV-Dateien bearbeiten kann. Ist nur ziemlich langsam bei großen Dateien. Wenn ich da eine Einschränkung auf die Anzeige von 2 Spalten hinbekäme, würde ich nicht das Array sondern die csv bearbeiten und dann das Array neu laden. https://ttps//www.autoitscr…sv-file-editor/ Leider geht das Script weit über meine Verständnisgrenzen

**BugFix**

Zitat von HansJ54

Würde es bei Dir unter Meine UDF erwarten, bin aber entweder blind oder Cells.au3 ist nicht da?

Das ist ein noch unvollendetes Projekt, daher noch nicht gepostet.

Langsam werden Editierprogramme indem Moment, wenn man versucht den gesamten Inhalt auf einmal bearbeitbar darzustellen. Editoren arbeiten mit einem "View" - einem Dateausschnitt, der zum Bearbeiten angezeigt wird. Daten davor und danach werden zwar vorgehalten, aber nur bei Bedarf (Scrollen) angezeigt.

Nach diesem Prinzip würde ich bei deiner Problematik auch vorgehen.

**Andy**

HansJ54 , du hast immer noch nicht erklärt bzw beschrieben, was überhaupt gemacht werden soll.

Ich gehe von einem XY-Problem aus...du beschreibst mit

Zitat von HansJ54

Gelegentlich muss ich in einer Spalte testweise einige Werte ändern. Bisher verlasse ich das Programm, starte Excel, suche die Spalte, ändere und lese wieder ein und teste.

das was du jetzt aktuell MACHST!

Was allerdings vollkommen uninteressant ist und auch nicht zum Ziel führt, ansonsten gäbe es diesen Thread nicht!

Beschreibe besser, was DEIN ZIEL sein soll, am Besten mit Beispieldaten. Vorher -> Nachher.

Anhand welcher Kriterien sollen "einige" Werte in der Tabelle geändert werden?

Beschreibe dein Problem, und nicht den von dir bisher umgesetzten problematischen Weg.

HansJ54

Hallo Andy,

ich dachte, ich hätte mein Problem verständlich genug beschrieben - ich versuche es noch einmal:

Ziel: aus einem 2D-Array die Spalte 1 (Namen) und wahlweise irgendeine weitere Spalte x anzeigen und einzelne per Maus angeklickte Werte in der Spalte x ändern/eintragen/überschreiben können.

Interessant übrigens: ich habe gestern von ChatGPT ein Skript bekommen, das zwar nur teilweise funktionierte (war nur ein Viewer und ich konnte die Einträge in der 2. Spalte nicht ändern). Aber zumindest konnte ich sehen, dass die Lösung wohl irgendwie über ListView möglich ist und habe dadurch zumindest einen besseren Suchbegriff und Ansatz.

Beispiel unten: wenn ich jetzt noch einzelne Werte aus Spalte "Local" anklicken und ändern könnte, wäre ich am Ziel. Vielleicht liegt es $LVN_ENDLABELEDIT - wurde benutzt aber ist unbekannt und ich konnte auch nichts dazu finden. In der Diskussion mit ChatGPT kam dann raus, ich sollte dafür den Wert -177 einsetzen - warum auch immer.

AutoIt

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

Global $LVN_ENDLABELEDIT = -177 ; DIESE VARIABLE IST UNBEKANNT UND CHATGPT MEINTE, MAN KÖNNTE SIE EINFACH DURCH -177 ERSETZEN

GLOBAL $aMyArray[30][2] = [ _
    ["Check","0000000"], _
    ["Damb21","1312355"], _
    ["Damb19","1312355"], _
    ["Damb4","1342355"], _
    ["Damb11","1372355"], _
    ["Damb2","1312355"], _
    ["Damb14","1310655"], _
    ["Damb4","1312355"], _
    ["Damb13","1312355"], _
    ["Damb2","1312955"], _
    ["Damb214","1312355"], _
    ["Damb114","1312355"], _
    ["Damb13","1312255"], _
    ["Dasb27","1312355"], _
    ["Dasb43","1312355"], _
    ["Dasb4","1312355"], _
    ["Dasb13","1312355"], _
    ["Dasb2","1392355"], _
    ["Dasb214","1312355"], _
    ["Dasb114","1812355"], _
    ["Dasb13","1312355"], _
    ["Dasb27","1312355"], _
    ["Dasb43","1312355"], _
    ["Dasb12","1312355"]]

; Erstelle das GUI-Fenster
Global $hGUI = GUICreate("Array Viewer", 600, 400)

; Erstelle die ListView-Kontrolle
Global $hListView = GUICtrlCreateListView("Name|Local", 10, 10, 580, 380)
_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER))

; Füge die Daten aus dem Array zur ListView-Kontrolle hinzu
For $i = 0 To UBound($aMyArray) - 1
    GUICtrlCreateListViewItem($aMyArray[$i][0] & "|" & $aMyArray[$i][1], $hListView)
Next

; Aktualisiere das Array, wenn der Benutzer Änderungen vornimmt
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

GUISetState()

; Haupt-Loop
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam

    Local $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    Local $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    Local $iCode = DllStructGetData($tNMHDR, "Code")
    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $lParam)
    Local $iItem = DllStructGetData($tInfo, "Item")
    Local $iSubItem = DllStructGetData($tInfo, "SubItem")

    If $hWndFrom = $hListView And $iCode = $LVN_ENDLABELEDIT Then
        Local $tLVITEM = DllStructCreate($tagLVITEM, $lParam)
        Local $sText = DllStructGetData($tLVITEM, "Text")
        $aMyArray[$iItem][$iSubItem] = $sText
        _GUICtrlListView_SetItemText($hListView, $iItem, $iSubItem, $sText)
    EndIf

    Return $GUI_RUNDEFMSG
EndFunc

Alles anzeigen

**BugFix**

Zitat von HansJ54

Hallo Andy,
ich dachte, ich hätte mein Problem verständlich genug beschrieben

Du bist leider noch immer auf dem Holzweg. Du schilderst nur WIE du vorgehst. Wichtiger ist aber das, WAS du vorhast. Und zwar beschrieben OHNE jeden Programmieransatz. Dass du mit einem Array startest ist für die Betrachtung des WAS erstmal nicht relevant.

Schreibe mal in der Form:

- Datei Typ csv

- in Spalte XY sind relevante Werte

- wenn Bedingung - dann ändern des Wertes mit...

- Wertänderung soll in der Datei direkt gespeichert werden

HansJ54

Ich versuche es noch einmal:

Gegeben ein Array in AutoIt mit 2 Spalten. Das möchte ich anzeigen und durch Anklicken einer Zelle in der 2. Spalte den Wert in dieser Zelle per Tastatur ändern (reiner Text, keine Formeln). So eine Art Array-Editor oder Mini-Excel.

Das Skript oben produziert die Anzeige, aber ich konnte nicht herausfinden, was umzustellen ist um eine Eingabe zu ermöglichen. Für zukünftige Zwecke könnten es auch mal 3 oder 4 Spalten sein, aber vorerst nicht wichtig.

Vielleicht hilft das Bild?

**Schnuffel**

ich habe meinen unqualifizierten Kommentar gelöscht

**Kanashius**

Um eine ListView editierbar zu machen habe ich mal eine UDF geschrieben. Du musst sie quasi nur mit dem Array befüllen und beim "speichern" (deselektieren/enter/...) den Array-Eintrag an dem Index+SubIndex verändern.

Sollte das sein, was du willst: Listview edit subitems UDF

HansJ54

Zitat von Kanashius

Um eine ListView editierbar zu machen habe ich mal eine UDF geschrieben. Du musst sie quasi nur mit dem Array befüllen und beim "speichern" (deselektieren/enter/...) den Array-Eintrag an dem Index+SubIndex verändern.
Sollte das sein, was du willst: Listview edit subitems UDF

Sieht gut aus und ist es vermutlich auch, aber bekomme bei der ListViewEditInput.au3 Fehlermeldung wegen fehlender Functions MapExists() , MapRemove(), MapKeys(). Habe ich vergessen etwas runterzuladen?

**AspirinJunkie**

Du verwendest eine ältere Version von AutoIt ohne Maps.

installiere dir die aktuelle Version von AutoIt.

HansJ54

Zitat von AspirinJunkie

Du verwendest eine ältere Version von AutoIt ohne Maps.
installiere dir die aktuelle Version von AutoIt.

Vielen Dank, funktioniert jetzt.

Gibt es eigentlich eine Möglichkeit zu sehen, dass es eine neue Version von AutoIt gibt ohne auf der Webseite nachzuschauen? Manche Programme zeigen das per Popup, bei anderen geht es mit Hilfe und "Über". Da ich bei AutoIt nur in SciTE arbeite, habe ich nicht gemerkt, dass es eine neue Version gab.