Hallo,
möchte folgendes abbilden.
1.Alle User aus einer bestimmten OU auslesen
2. Von einen bestimmten user die mitgliedschaft auslesen.
3.Alles Gruppen aus einer bestimmten OU auslesen.
4.Mitglieder einer bestimmten Gruppe auslesen.
Wie mache ich das am besten...?
zur zeit mache ich das mit dsquery und dsget gibt es eine möchlichkeit wie ich das mit autoit mittel machen könnte?
so habe es ohne schleifen gelösst.
name22 & stayawayknight Danke für die Hinweise und die Hilfreichen tipps von euch 
#include <Excel.au3>
#include <Array.au3>
$sFilePath1 = @ScriptDir & '\test2.xls'
Local $oExcel = _ExcelBookOpen($sFilePath1)
$zeilen = $oExcel.Worksheets(1).UsedRange.Rows.Count
$aArray1 = _ExcelReadArray($oExcel, 1, 1, $zeilen, 1)
_ArrayDisplay($aArray1)
kannst du mir ein kleines beispiel geben?
Ja das hast du recht es liesst bis 256 auch wenn ich nur 50 beschriebene zellen in spalte A habe.
wie kriege ich jetzt es so hin das er nur die zellen liesst in "Spalte A" die nur beschrieben sind?
Ich habe die hilfe gelesen die Option die du damit setzen tust besagt,
das insgesamt 256 Zellen aus Spalte A gelsen werden sollen.
da die Anzahl der Zellen nicht nur immer 256 sind muss ich ja vorher abfragen wieviele zellen ich habe bzw. die letzte beschriebene zelle in Spalte A.
Du solltest Zellen mit Spalten nicht verwechseln.
Ich würde mich freuen wenn du mir Helfen würdest und nicht gleich beleidigend wirst ohne die frage durchzulesen.
Danke
Sorry das ich dir auf die Nerver gehe aber,
wie ich schon in meiner Frage geschrieben habe...!!!
Ich will nicht alle Spalten sonder von Spalte A alle Zellen??
Ich will Alle zellen aus Spalte A in einen array wie mache ich das?
danke funktioniert .....
Wie kriege ich den alle aus spalte in ein array?
so nimmt er nur die ersten 10
#include <Excel.au3>
#include <Array.au3>
$sFilePath1 = @ScriptDir & '\test.xls'
Local $oExcel = _ExcelBookOpen($sFilePath1)
$aArray1 = _ExcelReadArray($oExcel, 1, 1, 10, 1)
_ArrayDisplay($aArray1)
??
habe ich schon gelesen aber verstehe den fehler nicht...bzw. wie ich es beseitige und ein objekt daraus mache??
Kann mir da jemand helfen?
Kriege kein ergebniss was läuft falsch?
#include <Excel.au3>
#include <Array.au3>
Local $oExcel = @ScriptDir & '\test.xls'
$aArray1 = _ExcelReadArray($oExcel, 1, 1, 5, 1)
_ArrayDisplay($aArray1)
Hallo,
ich möchte gerne aus einer excel tabele alles was in der Spalte 'A' in einer Listview darstellen wie mache ich das?
Würde mich über Hilfreiche Tipps Freuen...;-)
Danke
SubZero
Hey,
bin jetzt etwas weiter kann jetzt die erste listview befüllen mit der tabele und dem ersten feld,
jetzt fehlt mir noch dir wenn ich auf ein item klicke das er mir aus der gleichen tabele die anderen felder füllt?
So sieht meine tabelle in etwa aus:
feld11, feld2,feld3,feld4
wert1,wert2,wert3,wer4,
werta,wertf,wertb,wertc,
wert1,wert2,wert3,wer4,
wertr,wertr,wertf,werg,
dies habe ich in der listview[0]:
wert1
werta
wert1
wertr
Wenn ich jetzt auf ein item in der listview[0] klicke will ich die wertre aus den anderen feldern auslesen.
also wenn ich werta anklicke will ich z.b. wertb und wertc auslesen wie mache ich das?
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
global $dbname = @ScriptDir & "\OPTM CISM_be.mdb" ; Datenbankpfad und Datei-/Datenbankname
global $tblname = "tbl_CISM_Incident"
Global $fldname = "Task_Aufgabenname"
Global $format = "Text(50)"
Global $data = "Blah Blah Blah" , $aRow
Global $ListView[9], $_output
Global $sDir = @ScriptDir & '\csv\'
Global $aFiles = _FileListToArray($sDir, '*.csv', 1), $sComboFiles
If Not @error Then
For $i = 1 To $aFiles[0]
$sComboFiles &= $aFiles[$i] & '|'
Next
$sComboFiles = StringTrimRight($sComboFiles, 1)
EndIf
#Region ### START Koda GUI section ### Form=F:\autoit\entwicklung\CISM\Form1.kxf
$Form1 = GUICreate("BMC", 949, 555, 197, 277)
$ListView[0] = GUICtrlCreateListView("1 Short decription", 32, 96, 234, 422)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
;$Combo1 = GUICtrlCreateCombo("Combo1", 32, 16, 233, 25)
$Combo2 = GUICtrlCreateCombo("Liste Auswählen", 32, 72, 233, 25)
GUICtrlSetData(-1, $sComboFiles)
;$Inputun = GUICtrlCreateInput("", 32, 32, 151, 21)
;GUICtrlCreateLabel("Caller ", 32, 10, 60, 20)
;$Input2 = GUICtrlCreateInput("Input1", 449, 16, 143, 21)
;$Input3 = GUICtrlCreateInput("Input1", 601, 16, 143, 21)
;$Input4 = GUICtrlCreateInput("Input1", 286, 50, 151, 21)
;$Input5 = GUICtrlCreateInput("Input1", 446, 50, 143, 21)
;$Input6 = GUICtrlCreateInput("Input1", 598, 50, 143, 21)
;$Input7 = GUICtrlCreateInput("Input1", 755, 20, 143, 21)
;$Input8 = GUICtrlCreateInput("Input1", 759, 49, 143, 21)
;$ListView[1] = GUICtrlCreateListView("2 Detail", 273, 96, 294, 211)
$ListView[1] = GUICtrlCreateEdit("2 Detail", 273, 96, 294, 211)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 280)
;$ListView[2] = GUICtrlCreateListView("3 Way of Solution ", 273, 305, 294, 211)
$ListView[2] = GUICtrlCreateEdit("3 Way of Solution ", 273, 305, 294, 211)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 280)
$ListView[3] = GUICtrlCreateListView("4 Classification", 572, 95, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 140)
$ListView[4] = GUICtrlCreateListView("5 Compnent Type", 572, 150, 146, 54)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 140)
$ListView[5] = GUICtrlCreateListView("6 Component", 572, 200, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
$ListView[6] = GUICtrlCreateListView("7 Assined To Group", 572, 305, 146, 55)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
$ListView[7] = GUICtrlCreateListView("8 Submitter Group", 572, 369, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
$ListView[8] = GUICtrlCreateListView("9 Client", 572, 420, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
;$Userladen = GUICtrlCreateButton("Userladen", 800, 75, 75, 17, $WS_GROUP)
;$Userdel = GUICtrlCreateButton("löschen", 800, 58, 75, 17, $WS_GROUP)
$Dbread = GUICtrlCreateButton("DB Lesen", 50, 520, 75, 17, $WS_GROUP)
;$ListView10 = GUICtrlCreateListView("UserID|im Ad vorhanden", 750, 96, 186, 422)
;GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit];GUICtrlSetData($Inputun, $user2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Dbread
$dbString = _ReadOneFld($tblname, $dbname, $fldname)
$aRow = StringSplit($dbstring, ';', 3)
For $i = 0 To UBound($aRow) - 1
$aCol = StringSplit($aRow[$i], ';', 2)
GUICtrlCreateListViewItem($aCol[0], $ListView[0])
Next
EndSwitch
WEnd
Func _ReadOneFld($_sql, $_dbname, $_field)
Dim $_output
$adoCon = ObjCreate ("ADODB.Connection")
$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $_dbname)
$adoRs = ObjCreate ("ADODB.Recordset")
$adoRs.CursorType = 1
$adoRs.LockType = 3
$adoRs.Open ($_sql, $adoCon)
With $adoRs
If .RecordCount Then
While Not .EOF
$_output = $_output & .Fields ($_field).Value & ';'
.MoveNext
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]EndWith
$adoCon.Close
Return $_output
EndFunc
Kann mir jemand helfen?
kann mir keiner Helfen, kriege es irgendwie nicht alleine hin....
Hallo,
Habe einen Access DB:
Wo ich aus einer bestimmten Tabele mit verschieden Feldern.
Infos in einer Gui darstellen will
den anfang habe ich gemacht komme aber nicht weiter.
Ich kann zur zeit aus der Tabele lesen und den inhalt von feld 1auslesen
1.wie kann ich das in die Listview[0] Schreiben?(Als Consolewrite geht es)
2.Wenn ich die Items in der Listview[0] habe und dort ein item anklicke,
wie kann ich dann aus den anderen feldern die info in die Listview schreiben bzw. editbox.
Geht mir eigentlich haupsächlich um das lesen der entsprechenden "feldnamen"
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
global $dbname = @ScriptDir & "\OPTM CISM_be.mdb" ; Datenbankpfad und Datei-/Datenbankname
global $tblname = "tbl_Incident"
Global $fldname = "Task_Aufgabenname"
Global $format = "Text(50)"
Global $data = "Blah Blah Blah"
Global $ListView[9]
Global $sDir = @ScriptDir & '\csv\'
Global $aFiles = _FileListToArray($sDir, '*.csv', 1), $sComboFiles
If Not @error Then
For $i = 1 To $aFiles[0]
$sComboFiles &= $aFiles[$i] & '|'
Next
$sComboFiles = StringTrimRight($sComboFiles, 1)
EndIf
#Region ### START Koda GUI section ### Form=F:\autoit\entwicklung\CISM\Form1.kxf
$Form1 = GUICreate("BMC", 949, 555, 197, 277)
$ListView[0] = GUICtrlCreateListView("1 Short decription", 32, 96, 234, 422)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
;$Combo1 = GUICtrlCreateCombo("Combo1", 32, 16, 233, 25)
$Combo2 = GUICtrlCreateCombo("Liste Auswählen", 32, 72, 233, 25)
GUICtrlSetData(-1, $sComboFiles)
;$Inputun = GUICtrlCreateInput("", 32, 32, 151, 21)
;GUICtrlCreateLabel("Caller ", 32, 10, 60, 20)
;$Input2 = GUICtrlCreateInput("Input1", 449, 16, 143, 21)
;$Input3 = GUICtrlCreateInput("Input1", 601, 16, 143, 21)
;$Input4 = GUICtrlCreateInput("Input1", 286, 50, 151, 21)
;$Input5 = GUICtrlCreateInput("Input1", 446, 50, 143, 21)
;$Input6 = GUICtrlCreateInput("Input1", 598, 50, 143, 21)
;$Input7 = GUICtrlCreateInput("Input1", 755, 20, 143, 21)
;$Input8 = GUICtrlCreateInput("Input1", 759, 49, 143, 21)
;$ListView[1] = GUICtrlCreateListView("2 Detail", 273, 96, 294, 211)
$ListView[1] = GUICtrlCreateEdit("2 Detail", 273, 96, 294, 211)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 280)
;$ListView[2] = GUICtrlCreateListView("3 Way of Solution ", 273, 305, 294, 211)
$ListView[2] = GUICtrlCreateEdit("3 Way of Solution ", 273, 305, 294, 211)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 280)
$ListView[3] = GUICtrlCreateListView("4 Classification", 572, 95, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 140)
$ListView[4] = GUICtrlCreateListView("5 Compnent Type", 572, 150, 146, 54)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 140)
$ListView[5] = GUICtrlCreateListView("6 Component", 572, 200, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
$ListView[6] = GUICtrlCreateListView("7 Assined To Group", 572, 305, 146, 55)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
$ListView[7] = GUICtrlCreateListView("8 Submitter Group", 572, 369, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
$ListView[8] = GUICtrlCreateListView("9 Client", 572, 420, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
;$Userladen = GUICtrlCreateButton("Userladen", 800, 75, 75, 17, $WS_GROUP)
;$Userdel = GUICtrlCreateButton("löschen", 800, 58, 75, 17, $WS_GROUP)
$Dbread = GUICtrlCreateButton("DB Lesen", 50, 520, 75, 17, $WS_GROUP)
;$ListView10 = GUICtrlCreateListView("UserID|im Ad vorhanden", 750, 96, 186, 422)
;GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit];GUICtrlSetData($Inputun, $user2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Dbread
$test = _ReadOneFld($tblname, $dbname, $fldname)
ConsoleWrite($test)
GUICtrlCreateListViewItem($test, $ListView[1])
EndSwitch
WEnd
Func _ReadOneFld($_sql, $_dbname, $_field)
Dim $_output
$adoCon = ObjCreate ("ADODB.Connection")
$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $_dbname)
$adoRs = ObjCreate ("ADODB.Recordset")
$adoRs.CursorType = 1
$adoRs.LockType = 3
$adoRs.Open ($_sql, $adoCon)
With $adoRs
If .RecordCount Then
While Not .EOF
$_output = $_output & .Fields ($_field).Value & @CRLF
.MoveNext
WEnd
EndIf
EndWith
$adoCon.Close
Return $_output
EndFunc
Es findet kein ende finde leider keine lösung kann mir jemand helfen?
das soll alles in die Gui:
siehe TXT.
BMCR_T_Short DescriMTion = $ListView[0] 'Listview'
BMCR_T_Details =$ListView[1] 'EditBox'
Task_Kurzbeschreibung =$ListView[2] 'EditBox
BMCR_T_Classification =$ListView[3] 'Listview'
BMCR_T_Component Type =$ListView[4] 'Listview'
BMCR_T_Component =$ListView[5] 'Listview'
BMCR_T_Submitter Group =$ListView[6] 'Listview'
BMCR_T_Client =$ListView[7] 'Listview'
BMCR_T_Classification =$ListView[8] 'Listview'
Leider keine bestimmte anzahl an zeichen.
Trennzeichen??
Habe ich indem sinne... Glaube ich
Pipe | wäre das nächste feld und alles was in dem feld ist jeweils.
ist eventuell in der TXT besser zu verstehen.
Oder ist das Garnicht möglich?
Danke,
leider ohne erfolg...;-(
????
ehrlich gesagt verstanden habe ich es nicht????
Habe ich auch schon Probiert leider ohne erfolg.
Muss dir mal die TXT anschauen 
Danke,
leider hat sich das format geänder von der csv.
Und da ich in 2 Feldern nicht nur eine zeile habe sonder jede menge @crlf habe.
Musste ich 2 editboxen nehmen
Aber komme mit der Formatierung nicht klar da ich keinen trenner ";" habe
Kann mir wieder jemand helfen?
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
Global $ListView[9]
Global $sDir = @ScriptDir & '\csv\'
Global $aFiles = _FileListToArray($sDir, '*.csv', 1), $sComboFiles
If Not @error Then
For $i = 1 To $aFiles[0]
$sComboFiles &= $aFiles[$i] & '|'
Next
$sComboFiles = StringTrimRight($sComboFiles, 1)
EndIf
#Region ### START Koda GUI section ### Form=F:\autoit\entwicklung\CISM\Form1.kxf
$Form1 = GUICreate("BMC", 949, 555, 197, 277)
$ListView[0] = GUICtrlCreateListView("1 Short decription", 32, 96, 234, 422)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
;$Combo1 = GUICtrlCreateCombo("Combo1", 32, 16, 233, 25)
$Combo2 = GUICtrlCreateCombo("Liste Auswählen", 32, 72, 233, 25)
GUICtrlSetData(-1, $sComboFiles)
$Inputun = GUICtrlCreateInput("", 32, 32, 151, 21)
GUICtrlCreateLabel("Caller ", 32, 10, 60, 20)
;$Input2 = GUICtrlCreateInput("Input1", 449, 16, 143, 21)
;$Input3 = GUICtrlCreateInput("Input1", 601, 16, 143, 21)
;$Input4 = GUICtrlCreateInput("Input1", 286, 50, 151, 21)
;$Input5 = GUICtrlCreateInput("Input1", 446, 50, 143, 21)
;$Input6 = GUICtrlCreateInput("Input1", 598, 50, 143, 21)
;$Input7 = GUICtrlCreateInput("Input1", 755, 20, 143, 21)
;$Input8 = GUICtrlCreateInput("Input1", 759, 49, 143, 21)
;$ListView[1] = GUICtrlCreateListView("2 Detail", 273, 96, 294, 211)
$ListView[1] = GUICtrlCreateEdit("2 Detail", 273, 96, 294, 211)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 280)
;$ListView[2] = GUICtrlCreateListView("3 Way of Solution ", 273, 305, 294, 211)
$ListView[2] = GUICtrlCreateEdit("3 Way of Solution ", 273, 305, 294, 211)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 280)
$ListView[3] = GUICtrlCreateListView("4 Classification", 572, 95, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 140)
$ListView[4] = GUICtrlCreateListView("5 Compnent Type", 572, 150, 146, 54)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 140)
$ListView[5] = GUICtrlCreateListView("6 Component", 572, 200, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
$ListView[6] = GUICtrlCreateListView("7 Assined To Group", 572, 305, 146, 55)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
$ListView[7] = GUICtrlCreateListView("8 Submitter Group", 572, 369, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
$ListView[8] = GUICtrlCreateListView("9 Client", 572, 420, 146, 54)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
;$Userladen = GUICtrlCreateButton("Userladen", 800, 75, 75, 17, $WS_GROUP)
;$Userdel = GUICtrlCreateButton("löschen", 800, 58, 75, 17, $WS_GROUP)
;$CruserTickets = GUICtrlCreateButton("Erstellen", 800, 520, 75, 17, $WS_GROUP)
;$ListView10 = GUICtrlCreateListView("UserID|im Ad vorhanden", 750, 96, 186, 422)
;GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$var = RegRead("\\" & @ComputerName & "\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\winlogon", "Defaultusername")
;GUICtrlSetData($Inputun, $user2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Combo2
$aRow = StringSplit(FileRead($sDir & GUICtrlRead($Combo2)), @CRLF, 3)
_GUICtrlListView_DeleteAllItems($ListView[0])
_GUICtrlListView_DeleteAllItems($ListView10)
For $i = 0 To UBound($aRow) - 1
$aCol = StringSplit($aRow[$i], ';', 2)
GUICtrlCreateListViewItem($aCol[0], $ListView[0])
Next
Case $GUI_EVENT_PRIMARYUP
$aInfo = GUIGetCursorInfo($Form1)
If $aInfo[4] = $ListView[0] Then
$iSelect = ControlListView($Form1, '', $ListView[0], 'GetSelected')
If $iSelect <> '' Then
$aCol = StringSplit($aRow[$iSelect], ';', 2)
For $i = 1 To UBound($aCol) - 2
_GUICtrlListView_DeleteAllItems($ListView[$i])
GUICtrlCreateListViewItem($aCol[$i], $ListView[$i])
Next
EndIf
EndIf
EndSwitch
WEnd
