AutoHotkey Community

Code: Select all

AusWahlFelderHolen(Spalte)
{
KomplettAuswahl:=""
LoescheZeilen:=""
GuiControl, -Redraw, vMeineListView
Anfang := 0
Loop
   {
   Anfang := LV_GetNext(Anfang) 
   if not Anfang 
      break
   LV_GetText(AusgewaehlteSpalte, Anfang, Spalte)
   KomplettAuswahl .= AusgewaehlteSpalte "`n"
   LoescheZeilen .= Anfang "`n" 
   }
sort,Loeschezeilen,RN
Loop, parse, LoescheZeilen, `n,
   LV_Delete(A_LoopField)
GuiControl, +Redraw, vMeineListView
Return % KomplettAuswahl
}

Code: Select all

AusWahlFelderHolen(Spalte)
{
GuiControl, -Redraw, vMeineListView


   Anfang := 0
   	Loop
	   {
    	    Anfang := LV_GetNext(Anfang) 
	        if not Anfang 
	        break
   	    LV_GetText(AusgewaehlteSpalte, Anfang, Spalte)
	    KomplettAuswahl .= AusgewaehlteSpalte "`n"
	    LoescheZeilen .= Anfang "`n" 
   	}

   Loop, parse, LoescheZeilen, `n, `r 
   LV_Delete(A_LoopField)

GuiControl, +Redraw, vMeineListView

  Return % KomplettAuswahl
}

Code: Select all

;- ListView: nur ein Teil der ausgewählten Zeilen wird übernommen 
;- https://www.autohotkey.com/boards/viewtopic.php?f=9&t=79354

#warn
#NoEnv
setworkingdir,%a_scriptdir%
Gui, Add, ListView, r20 w700 gMeineListView vvMeineListView, Name|Größe (KB)
Loop, C:\Windows\*.*
    LV_Add("", A_LoopFileName, A_LoopFileSizeKB)
LV_ModifyCol()                  ;- Passt die Breiten der Spalten an den Inhalt der Reihen an.
LV_ModifyCol(2, "Integer")      ;- Kennzeichnet aus Sortierungsgründen die Spalte 2 als Integer.
Menu, MeinKontextmenue, Add, Öffnen   , Oeffnen
Menu, MeinKontextmenue, Add, Schließen, Schliessen
Gui, Show,,TEST
return
;--------------
GuiClose:
ExitApp
;--------------
MeineListView:
if (A_GuiEvent = "DoubleClick")
{
LV_GetText(Reihentext, A_EventInfo)   ;- Ermittelt den Text aus dem ersten Feld der Reihe.
ToolTip Sie haben die Reihe %A_EventInfo% doppelt angeklickt. Text: "%Reihentext%"
}
return
;--------------
GuiContextMenu:
if (A_GuiControl <> "vMeineListView") 
    return
Menu, MeinKontextmenue, Show, %A_GuiX%, %A_GuiY%
return
;--------------
Oeffnen:
SpalteEins := AusWahlFelderHolen(1)
MsgBox, % SpalteEins
Return
;--------------
Schliessen:
SpalteZwei := AusWahlFelderHolen(2)
MsgBox, % SpalteZwei
Return

;----- FUNCTION ---------
AusWahlFelderHolen(Spalte)
{
KomplettAuswahl := "" 
rnx:=""
Anfang := 0
GuiControl, -Redraw, vMeineListView
Loop
   {
   Anfang := LV_GetNext(Anfang) 
   if not Anfang 
     break
   Rnx = %anfang%|%rnx%
   LV_GetText(AusgewaehlteSpalte, Anfang, Spalte)
   KomplettAuswahl .= AusgewaehlteSpalte "`n"
  }
Loop, parse,rnx, `|
 LV_Delete(A_LoopField)
GuiControl, +Redraw, vMeineListView
Return % KomplettAuswahl
}
;==========================

Code: Select all

AusWahlFehlderHolen(Spalte)
{
   KomplettAuswahl := ""                                 ; Rückgabevariable initialisieren
   If (Start := LV_GetNext(0))                           ; erste ausgewählte Zeile ermitteln
   {
      GuiControl, -Redraw, vMeineListView                ; Neuzeichnen des ListViews abschalten
      Anzahl := LV_GetCount("S")                         ; Anzahl der ausgewählten Zeilen holen
      Row := Start                                       ; Startzeile für die Schleife versorgen
      Loop, %Anzahl%                                     ; für jede ausgewählte Zeile
      {
         LV_GetText(AusgewaehlteSpalte, Row++, Spalte)   ; übergebene Spalte auslesen und die Zeilennummer um 1 erhöhen
         KomplettAuswahl .= AusgewaehlteSpalte "`n"      ; Rückgabevariable versorgen
      }
      Loop, %Anzahl%                                     ; für jede ausgewählte Zeile
         LV_Delete(Start)                                ; Startzeile löschen, die anderen wandern 1 Zeile nach unten
      GuiControl, +Redraw, vMeineListView                ; Neuzeichnen des ListViews wieder einschalten
   }
   Return %KomplettAuswahl%                              ; Rückgabevariable zurückgeben
}

Code: Select all

;LV_Delete(Anfang)

Code: Select all

; Erstellt eine ListView mit den zwei Spalten, Name und Größe:
Gui, Add, ListView, r20 w700 gMeineListView vvMeineListView, Name|Größe (KB)

; Sammelt eine Liste mit Dateien von einem Ordner und fügt sie in die ListView ein:
Loop, C:\Windows\*.*
    LV_Add("", A_LoopFileName, A_LoopFileSizeKB)

LV_ModifyCol()  ; Passt die Breiten der Spalten an den Inhalt der Reihen an.
LV_ModifyCol(2, "Integer")  ; Kennzeichnet aus Sortierungsgründen die Spalte 2 als Integer.


Menu, MeinKontextmenue, Add, Öffnen, Oeffnen
Menu, MeinKontextmenue, Add, Schließen, schliessen


Gui, Show
return

MeineListView:
if (A_GuiEvent = "DoubleClick")
{
    LV_GetText(Reihentext, A_EventInfo)  ; Ermittelt den Text aus dem ersten Feld der Reihe.
    ToolTip Sie haben die Reihe %A_EventInfo% doppelt angeklickt. Text: "%Reihentext%"
}
return


GuiContextMenu:
if (A_GuiControl <> "vMeineListView") 
    return
Menu, MeinKontextmenue, Show, %A_GuiX%, %A_GuiY%
return


Oeffnen:
SpalteEins := AusWahlFehlderHolen(1)
MsgBox, % SpalteEins
Return

schliessen:
SpalteZwei := AusWahlFehlderHolen(2)
MsgBox, % SpalteZwei
Return


AusWahlFehlderHolen(Spalte)
{
   Anfang := 0
   	Loop
	   {
    	    Anfang := LV_GetNext(Anfang) 
	        if not Anfang 
	        break
   	    LV_GetText(AusgewaehlteSpalte, Anfang, Spalte)
	    KomplettAuswahl .= AusgewaehlteSpalte "`n"
	    LV_Delete(Anfang)
   	}

  Return % KomplettAuswahl
}



GuiClose:  ; Kennzeichnet, dass das Skript automatisch beim Schließen des Fensters beendet werden sollte.
ExitApp