Arrays Umwandeln

xXIVXx

Moin Leute, ich bedanke mich jetzt schon mal für eure Hilfe und komme jetzt zu meiner Frage:
ich habe ein scrip gefunden (scrip im anhang), das einige funktion hat die ich gerne in meiner gui einfügen würde.
Nur leider habe ich nicht viel ahnung über array displays etc. bin neu einsteiger hier und hoffe ihr könnt mir helfen wie ich sie umwandeln kann oder änliches, falls sowas geht

**alpines**

Zitat von xXIVXx

Nur leider habe ich nicht viel ahnung über array displays etc. bin neu einsteiger hier und hoffe ihr könnt mir helfen wie ich sie umwandeln kann

Was gibt es da umzuwandeln? Du hast die Daten doch schon in einem Array gespeichert.
Wenn du sie in einer GUI anzeigen willst kannst du das z.B. mit einer ListView machen und die Daten vom Array in das ListView übergeben.

xXIVXx

ok danke werde ich gleich probieren. bin halt noch sehr unerfahren

Sonderbaar

so unerfahren und dann direkt mit einem Array starten? Respekt

**alpines**

Zitat von xXIVXx

ok danke werde ich gleich probieren. bin halt noch sehr unerfahren

Dann solltest du mal die Grundlagen durcharbeiten, wenn du von Arrays keine Ahnung ist. Das ist eines der elementarsten Bestandteile.

Etwa so kannst du es dann einbauen:

AutoIt

#include <Array.au3>
$iTimer = TimerInit()
$aAdapter = _Win32NetworkAdapter()


#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 1115, 167, 192, 124)
$ListView1 = GUICtrlCreateListView("Hersteller|Name|Adapter-Typ|Kennung|MAC-Adresse|Adresstyp|DHCP-Server|IP erhalten|IP läuft ab|IP-Adresse|Subnetzmaske|Standardgateway", 8, 8, 1098, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 130)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 100)


For $i = 1 To UBound($aAdapter) - 1
	$sString = ""


	For $j = 0 To UBound($aAdapter, 2) - 1
		$sString &= $aAdapter[$i][$j] & "|"
	Next


	$sString = StringTrimRight($sString, 1)


	GUICtrlCreateListViewItem($sString, $ListView1)
Next


GUISetState(@SW_SHOW)






While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd






Func _Win32NetworkAdapter($strComputer = 'Localhost')
    Local $aReturn[1][12] = [[ _
            'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _
            'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _
            'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']]
    Local $x = 0, $objWMIService, $colItems
    $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\')
    If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30)
    If Not IsObj($colItems) Then Return SetError(2, 0, 0)
    For $objItem In $colItems
        $x += 1
        ReDim $aReturn[$x + 1][12]
        $aReturn[$x][0] = $objItem.Manufacturer
        $aReturn[$x][1] = $objItem.Name
        $aReturn[$x][2] = $objItem.AdapterType
        $aReturn[$x][3] = $objItem.NetConnectionID
        $aReturn[$x][4] = $objItem.MACAddress
        $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30)
        If IsObj($colItems2) Then
            For $objItem2 In $colItems2
                If $objItem.Caption = $objItem2.Caption Then
                    If $objItem2.IPEnabled = -1 Then
                        If $objItem2.DHCPEnabled = -1 Then
                            $aReturn[$x][5] = 'von DHCP zugewiesen'
                            $aReturn[$x][6] = $objItem2.DHCPServer
                            $aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained)
                            $aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires)
                        Else
                            $aReturn[$x][5] = 'Manuell konfiguriert'
                        EndIf
                        $aReturn[$x][9] = $objItem2.IPAddress(0)
                        $aReturn[$x][10] = $objItem2.IPSubnet(0)
                        $aReturn[$x][11] = $objItem2.DefaultIPGateway(0)
                    EndIf
                EndIf
            Next
        EndIf
    Next
    Return $aReturn
EndFunc   ;==>_Win32NetworkAdapter


Func _WMIDateStringToDate($dtmDate)
    Return (StringMid($dtmDate, 5, 2) & '/' & _
            StringMid($dtmDate, 7, 2) & '/' & StringLeft($dtmDate, 4) _
             & ' ' & StringMid($dtmDate, 9, 2) & ':' & StringMid($dtmDate, 11, 2) & ':' & StringMid($dtmDate, 13, 2))
EndFunc   ;==>_WMIDateStringToDate

Alles anzeigen

xXIVXx

Zitat von Sonderbaar

so unerfahren und dann direkt mit einem Array starten? Respekt

ja ein versuch ist es wert.
ich kann ja auch vieleicht mal vorstellen was ich überhaupt vorhabe.
es soll ein Diagnose tool werden, das einmal die hardware info weitergibt und zusätzlich verbindungen überprüft. zb ob ein gewisser server erreichbar ist oder nicht.

Zitat von alpines

Dann solltest du mal die Grundlagen durcharbeiten, wenn du von Arrays keine Ahnung ist. Das ist eines der elementarsten Bestandteile.
Etwa so kannst du es dann einbauen:

AutoIt

#include <Array.au3>
$iTimer = TimerInit()
$aAdapter = _Win32NetworkAdapter()


#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 1115, 167, 192, 124)
$ListView1 = GUICtrlCreateListView("Hersteller|Name|Adapter-Typ|Kennung|MAC-Adresse|Adresstyp|DHCP-Server|IP erhalten|IP läuft ab|IP-Adresse|Subnetzmaske|Standardgateway", 8, 8, 1098, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 130)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 100)


For $i = 1 To UBound($aAdapter) - 1
	$sString = ""


	For $j = 0 To UBound($aAdapter, 2) - 1
		$sString &= $aAdapter[$i][$j] & "|"
	Next


	$sString = StringTrimRight($sString, 1)


	GUICtrlCreateListViewItem($sString, $ListView1)
Next


GUISetState(@SW_SHOW)






While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd






Func _Win32NetworkAdapter($strComputer = 'Localhost')
    Local $aReturn[1][12] = [[ _
            'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _
            'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _
            'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']]
    Local $x = 0, $objWMIService, $colItems
    $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\')
    If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30)
    If Not IsObj($colItems) Then Return SetError(2, 0, 0)
    For $objItem In $colItems
        $x += 1
        ReDim $aReturn[$x + 1][12]
        $aReturn[$x][0] = $objItem.Manufacturer
        $aReturn[$x][1] = $objItem.Name
        $aReturn[$x][2] = $objItem.AdapterType
        $aReturn[$x][3] = $objItem.NetConnectionID
        $aReturn[$x][4] = $objItem.MACAddress
        $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30)
        If IsObj($colItems2) Then
            For $objItem2 In $colItems2
                If $objItem.Caption = $objItem2.Caption Then
                    If $objItem2.IPEnabled = -1 Then
                        If $objItem2.DHCPEnabled = -1 Then
                            $aReturn[$x][5] = 'von DHCP zugewiesen'
                            $aReturn[$x][6] = $objItem2.DHCPServer
                            $aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained)
                            $aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires)
                        Else
                            $aReturn[$x][5] = 'Manuell konfiguriert'
                        EndIf
                        $aReturn[$x][9] = $objItem2.IPAddress(0)
                        $aReturn[$x][10] = $objItem2.IPSubnet(0)
                        $aReturn[$x][11] = $objItem2.DefaultIPGateway(0)
                    EndIf
                EndIf
            Next
        EndIf
    Next
    Return $aReturn
EndFunc   ;==>_Win32NetworkAdapter


Func _WMIDateStringToDate($dtmDate)
    Return (StringMid($dtmDate, 5, 2) & '/' & _
            StringMid($dtmDate, 7, 2) & '/' & StringLeft($dtmDate, 4) _
             & ' ' & StringMid($dtmDate, 9, 2) & ':' & StringMid($dtmDate, 11, 2) & ':' & StringMid($dtmDate, 13, 2))
EndFunc   ;==>_WMIDateStringToDate

Alles anzeigen

ok :D:D:D:D ok ich versuchs

xXIVXx

**autoiter**

Ich traue mich kaum zu antworten. Immerhin machst du ziemlich deutlich, dass alpines schreiben soll

Weißt du nicht wie du auf einzelne Array-Elemente zugreifen kannst?

$aArray[0] = Wert der ersten Zeile eines eindimensionalen Arrays.
$aArray[0][0] = Wert der ersten Zeile und ersten Spalte eines zweidimensionalen Arrays

Lies besser zuerst das Array-Tutorial von BugFix.

Den Wert eines bestehenden Labels kannst du mit GUICtrlSetData ändern.

xXIVXx

das ist meine GUI in der ich die Funktion haben will

Code

#Region ### START Koda GUI section ### Form=c:\users\zickert.thomas\documents\diagnose.kxf
$Fenster = GUICreate("Netzwerk Diagnose", 1306, 938, 808, 240)
GUISetFont(14, 400, 0, "Arial")
$Gereateinfo = GUICtrlCreateGroup("Geräte Info", 24, 24, 425, 169)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
$Rechnernamefrage = GUICtrlCreateLabel("Rechnername:", 40, 80, 182, 36)
$Rechnernameant = GUICtrlCreateLabel(@ComputerName, 210, 80, 85, 36)
$Windowsver = GUICtrlCreateLabel("Windows Version:", 40, 136, 223, 36)
$winverantwort = GUICtrlCreateLabel(@OSVersion,210, 136, 85, 36)
;tab2
$Adapterinfo = GUICtrlCreateGroup("Adapter Info", 24, 224, 425, 193)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
$Lan = GUICtrlCreateLabel("LAN:", 40, 288, 64, 36)
$LA = GUICtrlCreateIcon("C:\Users\zickert.thomas\Downloads\lan_icon.ico", -1, 112, 280, 49, 49)
$lanantwort = GUICtrlCreateLabel("Verbunden", 208, 288, 135, 36)
$Wlanfrage = GUICtrlCreateLabel("WLAN:", 40, 344, 92, 36)
$Wlan = GUICtrlCreateIcon("C:\Users\zickert.thomas\Downloads\wlan-icon-6.ico", -1, 136, 336, 49, 49)
$wlanantwort = GUICtrlCreateLabel("Nicht Verbunden", 208, 344, 205, 36)
;tab3
$Netzwekinfo = GUICtrlCreateGroup("Netzwerkinfo", 504, 24, 777, 393)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
$ipadresse = GUICtrlCreateLabel("IP Adresse:", 520, 80, 145, 36)
$macadresse = GUICtrlCreateLabel("MAC Adresse:", 520, 136, 181, 36)
$adresstyp = GUICtrlCreateLabel("Adresstyp:", 520, 192, 134, 36)
$dhcpserver = GUICtrlCreateLabel("DHCP-Server:", 520, 248, 177, 36)
$standardgateway = GUICtrlCreateLabel("Standardgateway:", 520, 304, 223, 36)
$SSID = GUICtrlCreateLabel("SSID:", 520, 360, 76, 36)
$ipantwort = GUICtrlCreateLabel(@IPAddress1, 765, 79, 145, 36)
$macantwort = GUICtrlCreateLabel("antwort",765, 135, 144, 36)
$Adapterantwort = GUICtrlCreateLabel("von DHCP zugewiesen", 765, 191, 445, 36)
$dhcpantwort = GUICtrlCreateLabel(@LogonDNSDomain & @LogonServer, 765, 247, 145, 36)
$standardgatewa = GUICtrlCreateLabel("gate", 765, 303, 145, 36)
$ssidantwort = GUICtrlCreateLabel("IP Adresse:", 765, 359, 145, 36)
;tab4
$serverdiagnose = GUICtrlCreateGroup("Server", 24, 496, 577, 393, -1, $WS_EX_TRANSPARENT)
GUICtrlSetFont($serverdiagnose, 20, 400, 0, "Arial")
$DC1 = GUICtrlCreateLabel("Domain Controller 1:", 40, 552, 254, 36)
$DC2 = GUICtrlCreateLabel("Domain Controller 2:", 40, 608, 254, 36)
$Xserve = GUICtrlCreateLabel("XSERVE:", 40, 664, 120, 36)
$Datev = GUICtrlCreateLabel("Datev Server:", 40, 720, 170, 36)
$Zeus = GUICtrlCreateLabel("Zeus Server:", 40, 776, 160, 36)
$Easylog = GUICtrlCreateLabel("Easylog Server:", 40, 832, 196, 36)
$Dc1antwort = GUICtrlCreateLabel("erreichbar", 320, 552, 126, 36)
$dc2antwort = GUICtrlCreateLabel("erreichbar", 316, 608, 126, 36)
$xserveantwort = GUICtrlCreateLabel("erreichbar", 316, 664, 126, 36)
$datevantwort = GUICtrlCreateLabel("erreichbar", 316, 720, 126, 36)
$zeusantwort = GUICtrlCreateLabel("nicht erreichbar", 316, 776, 192, 36)
$easylogantwort = GUICtrlCreateLabel("erreichbar", 316, 832, 126, 36)


$Netwerkdiagnose = GUICtrlCreateLabel("Netzwerk Diagnose", 480, 448, 239, 36)
;tab5
$DNS = GUICtrlCreateGroup("DNS", 664, 496, 617, 393)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
$hauptdns = GUICtrlCreateLabel("Haupt DNS Server:", 680, 552, 236, 36)
$GBDCHAT = GUICtrlCreateLabel("GBD Chat:", 680, 608, 137, 36)
$Goofle = GUICtrlCreateLabel("Google:", 680, 664, 99, 36)
$Label1 = GUICtrlCreateLabel("antworthaupt", 944, 552, 161, 36)
$gbdhactantwort = GUICtrlCreateLabel("Haupt DNS Server:", 944, 608, 236, 36)
$googleantwort = GUICtrlCreateLabel("Haupt DNS Server:", 944, 664, 236, 36)
;tab6
$INFO = GUICtrlCreateGroup("", 24, 888, 1257, 41)
$Label2 = GUICtrlCreateLabel("Autor: Thomas ", 48, 904, 147, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("Version 1.4", 1176, 904, 84, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###




While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Alles anzeigen

xXIVXx

Die fuktion soll rein

C

#include <Array.au3>
$iTimer = TimerInit()
$aAdapter = _Win32NetworkAdapter()


#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 1115, 167, 192, 124)
$ListView1 = GUICtrlCreateListView("Hersteller|Name|Adapter-Typ|Kennung|MAC-Adresse|Adresstyp|DHCP-Server|IP erhalten|IP läuft ab|IP-Adresse|Subnetzmaske|Standardgateway", 8, 8, 1098, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 130)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 100)


For $i = 1 To UBound($aAdapter) - 1
	$sString = ""


	For $j = 0 To UBound($aAdapter, 2) - 1
		$sString &= $aAdapter[$i][$j] & "|"
	Next


	$sString = StringTrimRight($sString, 1)


	GUICtrlCreateListViewItem($sString, $ListView1)
Next


GUISetState(@SW_SHOW)






While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd






Func _Win32NetworkAdapter($strComputer = 'Localhost')
    Local $aReturn[1][12] = [[ _
            'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _
            'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _
            'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']]
    Local $x = 0, $objWMIService, $colItems
    $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\')
    If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30)
    If Not IsObj($colItems) Then Return SetError(2, 0, 0)
    For $objItem In $colItems
        $x += 1
        ReDim $aReturn[$x + 1][12]
        $aReturn[$x][0] = $objItem.Manufacturer
        $aReturn[$x][1] = $objItem.Name
        $aReturn[$x][2] = $objItem.AdapterType
        $aReturn[$x][3] = $objItem.NetConnectionID
        $aReturn[$x][4] = $objItem.MACAddress
        $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30)
        If IsObj($colItems2) Then
            For $objItem2 In $colItems2
                If $objItem.Caption = $objItem2.Caption Then
                    If $objItem2.IPEnabled = -1 Then
                        If $objItem2.DHCPEnabled = -1 Then
                            $aReturn[$x][5] = 'von DHCP zugewiesen'
                            $aReturn[$x][6] = $objItem2.DHCPServer
                            $aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained)
                            $aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires)
                        Else
                            $aReturn[$x][5] = 'Manuell konfiguriert'
                        EndIf
                        $aReturn[$x][9] = $objItem2.IPAddress(0)
                        $aReturn[$x][10] = $objItem2.IPSubnet(0)
                        $aReturn[$x][11] = $objItem2.DefaultIPGateway(0)
                    EndIf
                EndIf
            Next
        EndIf
    Next
    Return $aReturn
EndFunc   ;==>_Win32NetworkAdapter


Func _WMIDateStringToDate($dtmDate)
    Return (StringMid($dtmDate, 5, 2) & '/' & _
            StringMid($dtmDate, 7, 2) & '/' & StringLeft($dtmDate, 4) _
             & ' ' & StringMid($dtmDate, 9, 2) & ':' & StringMid($dtmDate, 11, 2) & ':' & StringMid($dtmDate, 13, 2))
EndFunc   ;==>_WMIDateStringToDate

Alles anzeigen

**alpines**

Zitat von xXIVXx

das ist meine GUI in der ich die Funktion haben will

Ja, und wo liegt jetzt dein Problem? Ich hab doch ein Script gepostet wie man das in eine ListView einfügen kann, da kannst du auch sehen wie man das Array anspricht welches die Funktion zurückliefert. Dann setzt du die Labeltexte noch entsprechend den Arrayeinträgen und fertig.

Sonderbaar

Zitat von alpines

Ja, und wo liegt jetzt dein Problem? Ich hab doch ein Script gepostet wie man das in eine ListView einfügen kann, da kannst du auch sehen wie man das Array anspricht welches die Funktion zurückliefert. Dann setzt du die Labeltexte noch entsprechend den Arrayeinträgen und fertig.

Man liest eine gewisse Negativ-Stimmung und genervtheit in deinen Zeilen Alpines

**alpines**

Zitat von Sonderbaar

Man liest eine gewisse Negativ-Stimmung und genervtheit in deinen Zeilen Alpines

Ich hab ihn mehrmals darauf hingewiesen sich das Script mal anzugucken, so kompliziert ist es nicht. Da sollte man sich schnell zurechtfinden.
Übrigens habe ich von ihm eine private E-Mail bekommen in der er mir die gleiche Frage gestellt hat also kannst du dir denken warum ich so einen Ton an den Tag lege.

In dem von mir geposteten Script gibt es vielleicht eine handvoll Zeilen die sich auf die Adapterinfos + ListView beziehen und das restliche Drumherum ist entweder die UDF oder das GUI-Zeugs.
Wenn ein User nicht mal so motiviert ist sich das anzuschauen was ich ihm gecodet habe, warum sollte ich mir dann die Mühe machen und es ihm häppchengerecht zu erklären und zu scripten?

Er gibt sich ja nicht mal die Mühe zu erklären was er nicht versteht, sondern (und ich zitiere):

Zitat von xXIVXx

das ist meine GUI in der ich die Funktion haben will

Zitat von xXIVXx

Die fuktion soll rein

xXIVXx

Zitat von alpines

Ich hab ihn mehrmals darauf hingewiesen sich das Script mal anzugucken, so kompliziert ist es nicht. Da sollte man sich schnell zurechtfinden.Übrigens habe ich von ihm eine private E-Mail bekommen in der er mir die gleiche Frage gestellt hat also kannst du dir denken warum ich so einen Ton an den Tag lege.

In dem von mir geposteten Script gibt es vielleicht eine handvoll Zeilen die sich auf die Adapterinfos + ListView beziehen und das restliche Drumherum ist entweder die UDF oder das GUI-Zeugs.
Wenn ein User nicht mal so motiviert ist sich das anzuschauen was ich ihm gecodet habe, warum sollte ich mir dann die Mühe machen und es ihm häppchengerecht zu erklären und zu scripten?

Er gibt sich ja nicht mal die Mühe zu erklären was er nicht versteht, sondern (und ich zitiere):

Danke dir
sry ich bin echt ein Anfänger hier und habe vielleicht einiges nicht richtig verstanden.
Habe jetzt soweit alles geschafft letzte Woche