LIstview (oder ähnlich) befüllen

Dietmar

Hallo ich denke vermutlich gerade viel zu kompliziert.
Ich versuche momentan aus eienr Ini-Datei Einträge in ein Listview zu übergeben.

Mit Übergabe iens Arrays direkt hab ich mich nich nicht versucht aber vermutlich ist alles viel einfacher....

Aufbau der Ini

also lfd. Nummer(unwichtig aber Vor und Nachname mit Komma getrennt klappt nicht vor dem Gleicheitszeichen in der Ini),
Name und ein Kennzeichen wie die Person farblich hinterlegt sein soll.

C

#include <Array.au3>


#include <GuiListView.au3>


#include <ListViewConstants.au3>


#include "b:\MS-SQL.au3"


#include "b:\LV_Format.au3"




$Lvw_Employer = GUICtrlCreateListView(".|.|.|.|.",1,35,1022,690,$LVS_REPORT)


$h_Lvw_Employer = GUICtrlGetHandle($Lvw_Employer)






Func _Fill_Employer_Listbox() ; temporäre Ini Datei für DB Grid auslesen


_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($Lvw_Employer))


$j_cnt = 0


$tmp_Employers = ""


$a_Employer= IniReadSection(@TempDir & "\tm_server.ini","Mitarbeiter")


;~ _ArrayDisplay($a_Employer)








For $i_cnt = 1 to UBound($a_Employer,1) -1


$s_Employer = StringSplit($a_Employer[$i_cnt][1],"|")






$j_cnt = $j_cnt + 1


$tmp_Employers &= $s_Employer[1] & "|"


If $j_cnt = 5 Or $i_cnt = $a_Employer[0][0] Then


$tmp_Employers = StringTrimRight($tmp_Employers,1)


;~ ConsoleWrite($tmp_Employers & @CRLF)


;~ _GUICtrlListView_AddOrIns_Item($h_Lvw_Employer,$tmp_Employers)








$j_cnt = 0


$tmp_Employers = ""


EndIf






Next

Alles anzeigen

Mein Problem ist das ist ich nicht je Zeile einen Datensatz habe, sondern eine Zeile aus 4 oder 5 Usern besteht.
Mal sehen wie es gut lesbar ist.

Soll ich es so machen oder die Ini am Anfang pimpen, also wenn ungleich 0 oder 5 am Ende, dann passend auffülle.
Die Isdee kam mir gerade das probier ich jett mal aus.
Weitere Vorschläge sind willkommen.
Zum Beispiel die farblich Hintergrundmarkierung, momentan würde eine Funktion mittels "Suchen und färben" hinterherwischen.

Oder hat jemand eien andere Idee was sich tzur Darstellung eignen würde?

G Dietmar

BananaJoe

Ich hatte mal einen ähnlichen Fall und habe mir eine UDF geschrieben. Schaue es Dir an, es müßte genau das machen, was Du brauchst.

Credits gehen an Bugfix, dessen UDF Func _Array2DAdd() ich dabei verwende.

AutoIt

; #FUNCTION# ====================================================================================================================
; Name ..........: _1DArrayTo2DArray
; Description ...: macht aus einem 1D ein 2D-Array
; Syntax ........: _1DArrayTo2DArray(Byref $aArray, $nNummer)
; Parameters ....: $aArray              - das 1D-Array wird ByRef übergeben, damit es nicht noch einmal angelegt wird
;                  $nNummer             - Die Anzahl der Werte aus dem 1D-Array für die "x-Achse", also die Anzahl der Spalten.
; Return values .: das 2D-Array (1/1-basierend)
; Author ........: Udo P.
; Modified ......:
; Remarks .......: verwendet _Array2DAdd von BugFix
; Related .......:
; Link ..........:
; Example .......: _1DArrayTo2DArray($aArray, 3)
;					das 1D-Array 	wird umgewandelt in das 2D-Array mit 3 Spalten
;					Wert1									Wert1	Wert2	Wert3
;					Wert2									Wert4	Wert5	Wert6
;					Wert3									...
;					Wert4
;					Wert5
;					Wert6
;					.....
; ===============================================================================================================================
Func _1DArrayTo2DArray(ByRef $aArray, $nNummer)


	Local $aReturnArray[1][$nNummer + 1]
	Local $j = 1


	If Not IsNumber($nNummer) Then ; reine Vorsichtsmaßnahme
		$nNummer = Int($nNummer)
		If $nNummer = 0 Then Return SetError(2, 1, 0) ; @error 2 = $nNummer ist ungültig, @extended = 1 $nNummer ist 0 (keine Zahl)
	EndIf
	If Not IsArray($aArray) Then Return SetError(1, 0, 0) ; @error 1 = kein Array
	If $nNummer < 2 Then Return SetError(2, 0, 0) ; @error 2 = $nNummer ist ungültig, muß mindestens 2 sein um ein 2D-Array zu erzeugen


	; 1D Array in 2D umwandeln
	For $i = 0 To UBound($aArray) - 1 ; Bis zum Ende des Arrays
		If $j = 1 Then _Array2DAdd($aReturnArray) ; beim ersten Datensatz ein ArrayAdd
		$aReturnArray[UBound($aReturnArray) - 1][$j] = $aArray[$i] ; den Wert eintragen
		If $j = $nNummer Then ; wenn die Zeile voll ist, eine neue Zeile anfangen
			$j = 1
		Else
			$j += 1
		EndIf
	Next


	Return $aReturnArray


EndFunc   ;==>_1DArrayTo2DArray




Func _Array2DAdd(ByRef $avArray, $sValue = '')
	If (Not IsArray($avArray)) Then Return SetError(1, 0, 1)
	Local $UBound2nd = UBound($avArray, 2)
	If @error = 2 Then
		ReDim $avArray[UBound($avArray) + 1]
		$avArray[UBound($avArray) - 1] = $sValue
	Else
		Local $arValue
		ReDim $avArray[UBound($avArray) + 1][$UBound2nd]
		If $sValue = '' Then
			For $i = 0 To $UBound2nd - 2
				$sValue &= '|'
			Next
		EndIf
		$arValue = StringSplit($sValue, '|')
		If $arValue[0] <> $UBound2nd Then
			SetError(2)
			Return 0
		EndIf
		For $i = 0 To $UBound2nd - 1
			$avArray[UBound($avArray) - 1][$i] = $arValue[$i + 1]
		Next
	EndIf
	Return 0
EndFunc   ;==>_Array2DAdd

Alles anzeigen

DasIch

Wie sieht die .INI denn aus wenn du mehrere Namen pro Zeile hast?

**BugFix**

Zitat von Dietmar

also lfd. Nummer(unwichtig aber Vor und Nachname mit Komma getrennt klappt nicht vor dem Gleicheitszeichen in der Ini),
Name und ein Kennzeichen wie die Person farblich hinterlegt sein soll.

Und warum verwendest du da eine INI? CSV (allerdings mit Pipe als Trenner wegen Eintrag im Listview) ist doch hier viel sinnvoller:

Code

NAME|VORNAME|FARBE
Mustermann|Max|1
Müller|Gerlinde|2

kannst du kpl. in ein Array lesen und dann ist jeder Eintrag sofort verwendbar um einen Listview-Eintrag zu erstellen.

Dietmar

Hallo, erstmal danke für die Antworten...

Die Ini sieht aus wie beschrieben, kann aber auch csv (txt) sein.
das eigentliche Problem (für mich) ist.
Wie fang ich es ab damit ich die Zeilen gleichmässig mit 4 oder 5 Usern fülle.

Das Färben gerne auch in einem Atemzug, da könnte ich mir aber behelfen.

Sowas wie auf dem Bild stell ich mir final vor...
aber irgendwie will es nicht so recht.

Bau halt ein Tool von mir dahingegend um, ganz neu wäre vermutlicher einfacher gewesen.

@BugFix kannst Du mir nen Denkanstoß geben.

G Dietmar

**BugFix**

Zitat von Dietmar

Sowas wie auf dem Bild stell ich mir final vor...

Farbwechsel nebeneinander ist im Listview nicht so ohne weiteres möglich. Da muss man auf individuelles Zeichnen aller Inhalte zurückgreifen, hatte dafür auch mal eine UDF erstellt - ist aber sehr komplex.
Aber kpl. Zeilen zu färben ist einfach: Die ID des erstellten Item auffangen und mit GUICtrlSetBkColor($ID_Item, $iColor) einfärben.
Also wenn du mit einer Tabelle leben kannst, in der die Angaben untereinander stehen, geht das problemlos.
Oder du verwendest das Listview im Group-Style, da kann man die Item ja nebeneinander anordnen. Sollte mit Färben dann auch so gehen.

Dietmar

Hallo Bugfix, das Färben kommt im nächsten Step, zur Not suche ich die Dinger einzeln und mal sie bunt...

So hatte ich es mal um nachträglich die Collation hervorzuheben wenn <> Latin.
Die Funktion war für zwei Listviews zu gebrauchen und die Kollation halt an unterschiedlichen Stellen.
Nicht schön aber das könnte ich denke ich gebrauchen.

Code

Func _Mark_DSN($Target_Listbox) ; Non Latin Collations markieren
        If $Target_Listbox = $ListView_DSN_DB Then
            $Mark_Col = 3
        Else
            $Mark_Col = 4
        EndIf
    For $i = 0 To _GUICtrlListView_GetItemCount($Target_Listbox) -1
        If Not StringInStr(_GUICtrlListView_GetItemText($Target_Listbox, $i, $Mark_Col),'LATIN') Then
            _GUICtrlListView_FormattingCell($Target_Listbox, $i, $Mark_Col, 0xff0000, -1, -1, 300);, 'Times New Roman')
        EndIf
    Next
EndFunc

Alles anzeigen

Ich würde gerne die ganze Breite nutzen, damit man ohne zu Scrollen alle Namen sieht.

Momentan haut er mir aber je Insert ein "Variable must be of type 'object' um die Ohren...

Oder gibt es etwas was besser zu händeln ist, hab schon überlegt bunte Labels zu zeichen...

Dietmar

so geht´s auch hab ich zumindest Zeit mir das andere noch anzushcuaen wenn überhaupt erforderlich.
So muss ich zumindest die Kopfzeile vom Listview nicht entsorgen....

Code

Func _Fill_Employer_Listbox() ; temporäre Ini Datei für DB Grid auslesen
	Local $ih = 305
	Local $iw = 50


	$a_Employer= IniReadSection(@TempDir & "\tm_server.ini","Mitarbeiter")




	For $i_cnt = 1 to UBound($a_Employer,1) -1
		$s_Employer = StringSplit($a_Employer[$i_cnt][1],"|")


			If $i_cnt = 10  Or $i_cnt = 19 Or $i_cnt = 28 Then $ih = 305
			If $i_cnt = 10 Then $iw = 190
			If $i_cnt = 19 Then $iw = 330
			If $i_cnt = 28 Then $iw = 470
			$ih=$ih+20


		$Label[$i_cnt] = GUICtrlCreateLabel($s_Employer[1], $iw, $ih, 120, 25)
		If $s_Employer[2] = 1 Then
			GUICtrlSetColor ( -1,0x00CD00  )
		Else
			GUICtrlSetColor ( -1, 0xff0000 )
		EndIf
	Next
EndFunc

Alles anzeigen