1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. subzero007

Beiträge von subzero007

  • Aus ini und txt Excel erzeugen aus mehreren Verzeichnissen

    • subzero007
    • 4. November 2017 um 02:28

    Habe im Netzwerk pro rechn er ein Ordner

    \\server\share\Inventur\%Computername1%

    \\server\share\Inventur\%Computername2%

    \\server\share\Inventur\%Computername3%


    Dort sind jeweils 4 Dateien

    Aus dehnen ich 2 Excel Tabellen für alle computer erzeugen will

    Excel 1

    Soll alles aus Computername.ini übernehmen

    Excel 2

    Soll alles aus

    Computername_os.txt

    Computername_sw.txt

    Computername_host.txt

    Habe leider kein Ansatz oder weiss nicht wie ich anfangen soll kann mir jemand helfen stehe unter Druck muss dringend mein Chef was liefern und bin verzweifelt

    Muss keine gui haben nur eine Excel erzeugen

    Computername.ini

    [Inventur]

    Email=user@mail.de

    Vorname=max

    Nachname =muster

    Telefon =12356

    Telefonmobile=01725555

    Standort=strasse

    Raum=216

    Abteilungen=ABV

    Ipadress=192.168.1.6

    Dektop=0

    Notebook=1

    Drucker1=freigabename] [port]

    Drucker2=freigabename] [port]

    Eventuell weitere drucker

    Computername_os.txt

    Node,Caption,Manufacturer,Version,WindowsDirectory

    192.168.205.10,Microsoft Windows 7 Professional ,Microsoft Corporation,6.1.7600,C:\Windows

    Computername_host.txt

    Node,Name

    192.168.205.10,WINFAQPC1

    Computername_sw.txt

    Node,Name,Vendor,Version

    192.168.205.10,Microsoft Office Excel MUI (German) 2007,Microsoft Corporation,12.0.6425.1000

    192.168.205.10,Microsoft Office PowerPoint MUI (German) 2007,Microsoft

  • druckerport ip durch Hostname ersetzen

    • subzero007
    • 4. November 2017 um 01:25

    Hey

    Habe leider kein Ansatz wie ich da rangehen kann

    Jeder pc hat mehrere drucker verbunden alle per ip

    Auszug Registry


    Windows Registry Editor Version 5.00

    [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\IP_192.168.1.240]

    "Protocol"=dword:00000001

    "Version"=dword:00000001

    "HostName"=""

    "IPAddress"="192.168.1.240"

    "HWAddress"=""

    "PortNumber"=dword:0000238c

    "SNMP Community"="public"

    "SNMP Enabled"=dword:00000001

    "SNMP Index"=dword:00000001

    Möchte ip to Host ersetzen

    Also

    Als Beispiel 192.168.240 durch dr2001


    Hat jemand Tips oder ein Vorschlag?

    Sollte alle drucker die vorhanden sind ersetzen

  • bestimmte listview einträge löschen

    • subzero007
    • 25. Juni 2016 um 22:42

    hallo habe etwa 200o listview zeilen

    so sieht es in etwa aus


    würde vgerne wenn in spalte 2 folgedes ist die ganze zeile löschen


    kann mir jemadn helfen?

  • xcaclas.vbs output ad gruppen user to to excel

    • subzero007
    • 20. Juni 2016 um 04:06

    hallo habe eine frage weiss nicht ganz wie ich da ran gehen soll ?:-)
    nutze von microsoft das xcaclas.vbs

    cscript C:\autoit\XCACLS.vbs c:\autoit >> c:\test.txt
    cscript C:\autoit\XCACLS.vbs c:\ >> c:\test.txt


    so sieht die output datei aus siehe anhang würde gerne daraus eine excel erzeugen
    ich muss rechte von einem netzlaufwerk auslesen also eventuell auch rekursiv jemand eine idee?
    also die die User der AD gruppen

  • String Problem

    • subzero007
    • 7. November 2014 um 11:40

    also aray display da kommt er garnicht hin
    und consolwrite habe ich ohne ende 000000000000000000

    [autoit]


    Local $text = _StringBetween($line, 'USERNAME">', '</KEY>')
    ConsoleWrite($text)
    ; Display the results in _ArrayDisplay.
    _ArrayDisplay($text, "Default Search")

    [/autoit]
  • listview

    • subzero007
    • 7. November 2014 um 11:27

    gibt es keine andere möglichkeit die einfacher ist?

  • String Problem

    • subzero007
    • 7. November 2014 um 11:26

    ok sehe ich aber wieder kein ergebnis

    [autoit]

    $Text = ""
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    ; $text = StringReplace($line, "USERNAME=", "")

    [/autoit][autoit][/autoit][autoit]

    Local $text = _StringBetween($line, 'USERNAME">', '</KEY>')

    [/autoit][autoit][/autoit][autoit]

    ; Display the results in _ArrayDisplay.
    _ArrayDisplay($text, "Default Search")

    [/autoit][autoit][/autoit][autoit]

    if @extended > 0 then GUICtrlCreateListViewItem($text, $Liste)

    [/autoit]

    ich will eigentlich mit extendet wenn er ein wert findet das er schreibt ..??!!
    hast du noch ein tipp für mich?

  • String Problem

    • subzero007
    • 7. November 2014 um 11:15

    und hier nochmal ein auszug aus dem xml

    HEADER><KEY value="USERNAME">xxx-wkxx</KEY><KEY value="COMPANY"><![CDATA[xxX]]>
    </KEY><KEY value="DATE">2014-10-01T07:01:10Z</KEY>

  • String Problem

    • subzero007
    • 7. November 2014 um 11:13
    [autoit]

    Func _Load() ; Datenbank-Datei laden
    _GUICtrlListView_DeleteAllItems($ListViewhost) ; Das Handle eben noch bestimmen (s. Anfang des Threads)

    [/autoit][autoit][/autoit][autoit]

    RunWait(@ComSpec & " /c " & 'dir /b c:\xxx\*.xml > c:\qualys\dir.txt', "", @SW_HIDE)

    [/autoit][autoit][/autoit][autoit]

    Local $sItem
    $FileOpenDialog = 'c:\xxx\dir.txt'
    Local $hFile = FileOpen($FileOpenDialog, 0) ; Datei zum lesen öffnen
    If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
    _GUICtrlListView_BeginUpdate($ListViewhost) ; Listview sperren
    While True ; Endlosschleife
    $sItem = FileReadLine($hFile) ; Zeile aus der Datei lesen
    If @error Then ExitLoop ; wenn das Ende der Datei erreicht ist, dann Endlosschleife verlassen
    GUICtrlCreateListViewItem($sItem, $ListViewhost) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
    WEnd
    _GUICtrlListView_EndUpdate($ListViewhost) ; Listview wieder freigeben
    FileClose($hFile) ; Datei schließen
    EndIf
    _String()

    [/autoit][autoit][/autoit][autoit]

    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func _string()
    _GUICtrlListView_DeleteAllItems($Liste)

    [/autoit][autoit][/autoit][autoit]

    Local $icount = _GUICtrlListView_GetItemCount($ListViewhost)
    For $i = 0 To $icount - 1
    $ListViewText = _GUICtrlListView_GetItemTextArray($ListViewhost, $i)
    $file = FileOpen("c:\xxx\" & $ListViewText[1] & ".xml", 0)

    [/autoit][autoit][/autoit][autoit]

    ;Zeilen des Textes einlesen bis EOF
    While 1
    $Text = ""
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    ; $text = StringReplace($line, "USERNAME=", "")

    [/autoit][autoit][/autoit][autoit]

    Local $aArray = _StringBetween($line, 'USERNAME">', '</KEY>')

    [/autoit][autoit][/autoit][autoit]

    ; Display the results in _ArrayDisplay.
    _ArrayDisplay($aArray, "Default Search")

    [/autoit][autoit][/autoit][autoit]

    if @extended > 0 then GUICtrlCreateListViewItem($text, $Liste)

    [/autoit][autoit][/autoit][autoit]

    Wend

    [/autoit][autoit][/autoit][autoit]

    FileClose($file)

    [/autoit][autoit][/autoit][autoit]

    Next

    [/autoit][autoit][/autoit][autoit]

    EndFunc

    [/autoit]
  • String Problem

    • subzero007
    • 7. November 2014 um 10:59

    was ma che ich falsch ich möchte alles was sich zwischen 'USERNAME">', '</KEY>' in eine listview schreiben
    eine fehler meldung kommt nicht.


    [autoit]

    $Text = ""
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop

    [/autoit][autoit][/autoit][autoit]

    Local $aArray = _StringBetween($line, 'USERNAME">', '</KEY>')

    [/autoit][autoit][/autoit][autoit]

    ; Display the results in _ArrayDisplay.
    _ArrayDisplay($aArray, "Default Search")

    [/autoit][autoit][/autoit][autoit]

    if @extended > 0 then GUICtrlCreateListViewItem($text, $Liste)

    [/autoit]
  • listview

    • subzero007
    • 7. November 2014 um 09:11

    1.anzahl wo failure steht
    2. den wert alive minus total dann das ergebnis ermitteln
    3. alle die alive sind zusammen zählen.
    :)

  • listview

    • subzero007
    • 6. November 2014 um 14:58

    hallo ,
    huabe ein problem vielleicht hat jemand einen tipp für mich
    so sieht meine listview aus

    host|user|ip|scan|status|alive|total

    1.in der spalte status will ich die fehlgeschlagenen zusammen zählen
    also gesamtanzahl wo failure steht

    2.alle rechner die an sind .
    also alle werte die bei alive an sind zusammen zählen.

    3. Anzahl Alive -"minus" Total
    also
    alive - total = rechner die offline waren.

    Hat jemand einen tipp für mich

  • XML auslesen

    • subzero007
    • 31. Oktober 2014 um 11:26

    online tools habe ich schon gefunden leider weil ich einen exoten xml habe wollen die nicht mitspielen :(
    forum suche xml habe ich auch hinter mir leider ohne erfolg den beitrag:
    reading xml hatte ich auch schon gestern gefunden :(

  • XML auslesen

    • subzero007
    • 31. Oktober 2014 um 10:55

    danke für den Tipp

    aber ich komme irgendwie nicht weiter :(
    weiss garnicht wo ich anfangen soll weil xml ist für mich richtig fremd :(

  • XML auslesen

    • subzero007
    • 30. Oktober 2014 um 11:00

    Hallo,
    habe einen exoten xml möchte sie gerne auslesen und in einer listview ausgeben.
    Es würde mir auch helfen wenn ich einen csv daraus machen könnte hat jemand einen tipp für mich ?

    habe hier noch die Schema datei

    Habe im anhang noch die schema datei:#

  • TeamViewerPortable

    • subzero007
    • 25. August 2014 um 16:58

    hallo ,

    ich will für meinen bruder was vereinfachen ihm einen exe geben was von TeamViewerPortable ID und Kenwort ausliest und mir per mail verschickt damit ich ihm helfen kann.

    leider weiss ich nicht wo er das ablegt und habe es auch nicht gefunden.

    kann mir jemand helfen..
    oder hat jemand sowas ähnliches schonmal gebaut würde mich über tipps sehr freuen.

    Danke

  • share anlegen

    • subzero007
    • 20. Mai 2014 um 13:12

    hallo habe ein problem komme irgendwie nicht weiter..

    möchte gerne einen share anlegen und eine bestimmte benutzer gruppe soll lesen und schreiben können

    den share möchte ich auf einen remote rechner und sowohl auch lokal anlegen können..

    mit net share soll es gehen komme aber nicht weiter ::::

    kann mir jemand helfen:::

  • Gui texte aus dem label in zwischen ablage

    • subzero007
    • 28. Juni 2013 um 15:17

    hallo,

    habe ei n Problem baue mir eine Gui zusammen.
    mit GUICtrlCreateLabel werden dort texte eingeschrieben mit verschiedenen zeilen.7

    gibt es eine möglichkeit alle texte also labels in die zwischenablage zu kopieren also als beispiel mit rechter maustaste mit klick auf gui oder ähnlich?

    mit ClipPut($var) kriege ich es in die ablage aber wie alle labels?
    gibt es da eine funktion?


    vielen dank

  • Diagram erstellen

    • subzero007
    • 7. Februar 2013 um 11:32

    das was mir bugfix geschickt hat erzeugt ein torten diagram ist auch gut so vielleicht noch ein säulen diagramm ...
    aber weiss nicht wie ich das einbinden soll ..


    vorschlag?

    die UDF habe ich gesehen aber weiss nicht wie ich das nutzen soll und in das vorhandene einzubauen ;(
    würde mich überhilfreiche tipps freuen...

  • Diagram erstellen

    • subzero007
    • 7. Februar 2013 um 11:16

    Hallo,
    habe von bugfix ein beispiel bekommen wie man eine diagram unter excel erstellt...

    leider weiss ich nicht wie ich das an eine vorhandene excel tabelle einfügen kann.
    Die vorhandene excel tabelle erzeuge ich auch unter autoit.
    zum schluss will ich dann eine diagramm erzeugen und in die vorhandene exeltabelle das diagramm plazieren.
    hier mein code:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <Excel.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Global $oExcel = __ExcelBookNew(1)
    Global $currUHD_UT = 1, $currUHD_BE = 1, $currUHD_Host = 1, $curr_On = 1, $curr_ITSPS = 1, $curr_cust = 1, $curr_xml = 1

    [/autoit] [autoit][/autoit] [autoit]

    _ExcelSheetNameSet($oExcel, "Gesamt");ok
    _ExcelSheetAddNew($oExcel, "xxx");ok
    _ExcelSheetAddNew($oExcel, "yyy");ok
    _ExcelSheetAddNew($oExcel, "vvv");ok
    _ExcelSheetAddNew($oExcel, "qqq");ok

    [/autoit] [autoit][/autoit] [autoit]

    Local $sNamen = 'user,user2,user3,user4'
    Local $sHeader = 'xxx,yyy,vvv,qqq,Summe'
    Local $aNamen = StringSplit($sNamen, ','), $aHeader = StringSplit($sHeader, ',')
    _ExcelSheetActivate($oExcel, "Gesamt")

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To UBound($aHeader) -1
    _ExcelWriteCell($oExcel, $aHeader[$i], 1, $i+1)
    Next

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To UBound($aNamen) -1
    _ExcelWriteCell($oExcel, $aNamen[$i], $i+1, 1)
    Next

    [/autoit] [autoit][/autoit] [autoit]

    With $oExcel.ActiveWorkbook.Sheets(5)
    For $i = 2 To 6
    .Range("B" & $i).Formula = "=ZÄHLENWENN('xxx'!D:D;A" & $i & ")"
    .Range("C" & $i).Formula = "=ZÄHLENWENN('yyy'!D:D;A" & $i & ")"
    .Range("D" & $i).Formula = "=ZÄHLENWENN('vvv'!D:D;A" & $i & ")"
    .Range("E" & $i).Formula = "=ZÄHLENWENN('qqq'!D:D;A" & $i & ")"
    .Range("F" & $i).Formula = "=SUMME(B" & $i & ":E" & $i & ")"
    Next
    For $i = 66 To 69
    .Range(Chr($i) & "6").Formula = "=SUMME(" & Chr($i) & "2:" & Chr($i) & "5)"
    Next
    .Range("A6") .Value = "SUMME"
    .Range("b1:f1").Font.Bold = TRUE
    .Range("a6:f6").Font.Bold = TRUE
    .Range("b1:e1").Interior.Color = 0xCCFFCC
    .Range("A2:e6").Interior.Color = 0xCCFFFF
    .Range("A3") .Interior.Color = 0xFFFF99
    .Range("A5") .Interior.Color = 0xFFFF99
    .Range("b2:f5").Interior.Color = 0xCCFFFF
    .Range("b3:f3").Interior.Color = 0xFFFF99
    .Range("b5:f5").Interior.Color = 0xFFFF99
    .Range("b6:f6").Interior.Color = 0xCC99FF
    .Range("A1:A6").ColumnWidth = 20.00 ; Spaltenbreite festlegen
    .Range("B1:E6").ColumnWidth = 24.00 ; Spaltenbreite festlegen
    .Range("B1:E1").HorizontalAlignment = $xlCenter
    EndWith

    [/autoit] [autoit][/autoit] [autoit]

    Local $Folder = 'remedy\'
    Local $File = 'export.csv'
    $var = FileOpenDialog("", @ScriptDir & "\", "Remedy (*.csv)", 1 + 4 )

    [/autoit] [autoit][/autoit] [autoit]

    Local $Array
    _FileReadToArray($var, $Array)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Global $aSplit
    Global $TicketID, $CreateDate, $Submitter, $AssignInd, $AssignGrp, $Descript

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To UBound($Array) -1
    $aSplit = StringSplit($Array[$i], ',')
    If $i = 1 Then
    $SheetList = _ExcelSheetList($oExcel)
    For $j = 1 To UBound($aSplit) -1
    For $k = 1 To $SheetList[0] -1
    _ExcelSheetActivate($oExcel, $SheetList[$k])
    _ExcelWriteCell($oExcel, StringReplace($aSplit[$j], '"', ''), 1, $j)
    Next
    Next
    ContinueLoop
    EndIf
    $TicketID = $aSplit[1]
    $CreateDate = $aSplit[2]
    $Submitter = $aSplit[3]
    $AssignInd = $aSplit[4]
    $AssignGrp = $aSplit[5]
    $Descript = $aSplit[6]
    Select

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Case StringInStr($Descript, 'xxxx'); sucht in Short Description nach auftrag und gibt es in TopCon Admin HH wieder
    $curr_ITSPS += 1
    _AddToGroup('ffff', $curr_ITSPS)
    ;$curr_Admin += 1
    Case StringInStr($Submitter, 'Interface_XMLImport'); sucht in Short Description nach auftrag und gibt es in TopCon Admin HH wieder
    $curr_xml += 1
    _AddToGroup('ffff', $curr_xml)
    ;$curr_Admin += 1

    [/autoit] [autoit][/autoit] [autoit]

    Case StringInStr ($AssignGrp, 'ffff')
    ;~ $curr_MAC += 1 ; <==== :D Das war der Fehler!!
    $curr_On += 1
    _AddToGroup('jjjjjjj', $curr_On)
    Case StringInStr ($AssignGrp, 'kkkkkkkkk')
    ;~ $curr_MAC += 1 ; <==== :D Das war der Fehler!!
    $curr_cust += 1
    _AddToGroup('jjjjjjjj', $curr_cust)
    EndSelect
    Next

    [/autoit] [autoit][/autoit] [autoit]

    _ExcelSheetActivate($oExcel, "Gesamt")
    $oExcel.Visible = 1

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _AddToGroup($Group, $currRow)
    _ExcelSheetActivate($oExcel, $Group)
    For $i = 1 To UBound($aSplit) -1
    _ExcelWriteCell($oExcel, StringTrimLeft(StringTrimRight($aSplit[$i], 0), 0), $currRow, $i)
    Next
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func __ExcelBookNew($fVisible = 1, $iSheetsStartup = 1)
    Local $oExcel = ObjCreate("Excel.Application")
    If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
    If Not IsNumber($fVisible) Then Return SetError(2, 0, 0)
    If $fVisible > 1 Then $fVisible = 1
    If $fVisible < 0 Then $fVisible = 0
    If $iSheetsStartup < 1 Then $iSheetsStartup = 1
    With $oExcel
    .SheetsInNewWorkbook = $iSheetsStartup
    .Visible = $fVisible
    .WorkBooks.Add
    .ActiveWorkbook.Sheets(1).Select ()
    EndWith
    Return $oExcel
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit]


    im anhang das beispiel von bugfix....

    Dateien

    Excel_Diagramm.au3 3,49 kB – 554 Downloads

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™