Habe folgendes Problem bei folgendem Script:
Script:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=D:\AutoIT\icon.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Dank an das AutoIt Forum hier Andy und alle die geholfen haben!!!
#include <GuiListView.au3>
#include <ListBoxConstants.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Global $aIn[1]
[/autoit] [autoit][/autoit] [autoit]Local $iExWindowStyle = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE, $LBS_EXTENDEDSEL)
Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_CHECKBOXES, $LVS_EX_DOUBLEBUFFER, $LVS_EX_TRACKSELECT)
_FileReadToArray("_inhalt2.txt", $aIn) ; hier angepsst
For $i = 1 To $aIn[0]
$aIn[$i] = StringReplace(StringStripWS($aIn[$i], 7), "|", "|", 5) ; hier angepsst
Next
_FileWriteFromArray("inhalt2_out.txt", $aIn, 2) ; hier angepsst
GUICreate("listview items", 1250, 530, 10, 10, -1) ; hier angepsst
[/autoit] [autoit][/autoit] [autoit]$listview = GUICtrlCreateListView($aIn[1], 10, 10, 1230, 510, $iExWindowStyle, $iExListViewStyle) ; hier angepsst
_GUICtrlListView_SetExtendedListViewStyle($listview, $iExListViewStyle)
$context = GUICtrlCreateContextMenu($listview) ;contextmenu, rechtsklick zum kopieren
$item1 = GUICtrlCreateMenuItem("Kopieren nach...", $context)
;$item2 = GUICtrlCreateMenuItem("Markierte Titel aus der Liste löschen", $context)
GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIClose")
; GUICtrlSetOnEvent($item2, "_Delete")
GUICtrlSetOnEvent($item1, "_kopieren")
GUICtrlSetOnEvent($listview, "List1Click")
_GUICtrlListView_RegisterSortCallBack($listview, True, True) ;sortierfunktion einschalten
For $i = 2 To $aIn[0] ; bei Index 2 starten, dann ist die erste Zeile weg
$item1 = GUICtrlCreateListViewItem($aIn[$i], $listview)
Next
GUISetState()
While 1
Sleep(50)
WEnd
Func _kopieren()
DirCreate(@ScriptDir & "\auswahlliste")
MsgBox(0,"Kopiervorgang startet", "Kopiervorgang startet. Bitte haben Sie ein wenig Geduld.")
For $iIndex = 0 To _GUICtrlListView_GetItemCount($listview) ;nacheinander die listenitems aufrufen
If _GUICtrlListView_GetItemChecked($listview, $iIndex) Or _GUICtrlListView_GetItemSelected($listview, $iIndex) Then ;wenn angehakt,dann kopieren
$titel = _GUICtrlListView_GetItem($listview, $iIndex, 1) ;schau mal in die Hilfe....
$pfad = _GUICtrlListView_GetItem($listview, $iIndex, ;schau mal in die Hilfe....
;_arraydisplay($titel)
FileCopy($pfad[3], @ScriptDir & "\auswahlliste\" & $titel[3] & ".mp3")
;MsgBox(0, "Kopieren: " & $titel[3], $pfad[3])
EndIf
Next
MsgBox(0,"Kopiervorgang erfolgreich", "Kopiervorgang erfolgreich.")
EndFunc ;==>_kopieren
Func List1Click()
_GUICtrlListView_SortItems(GUICtrlGetHandle($listview), GUICtrlGetState($listview))
EndFunc ;==>List1Click
Func _bearbeiten()
_GUICtrlListView_BeginUpdate($listview)
_GUICtrlListView_EndUpdate($listview)
EndFunc ;==>_bearbeiten
;deaktiviert
#cs
Func _delete() ;zeilen in der liste löschen
If MsgBox(262144 + 32 + 4, "", "Markierte bzw. angehakte Zeilen aus der Liste löschen? ") = 6 Then
_GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($listview))
EndIf
EndFunc ;==>_delete
#ce
Func _GUIClose()
_GUICtrlListView_UnRegisterSortCallBack($listview)
Exit
EndFunc ;==>_GUIClose
Bild:
autoit.de/wcf/attachment/5831/
Problem bzw. Frage zur Hilfestellung:
Im Bild als 1: Frage ich mich, wie ich alle grüne Markierungen auf einmal weg bekomme. Am liebsten re. Maustaste und "Markierungen löschen".
Im Bild als 2: Wie bekomme ich die beiden ersten Spalten auf eine höhere Breitelänge?
Ui, hoffe ihr versteht mein Problem.
Vielen Dank schon jetzt an dieser Stelle für die Hilfe.