Beiträge von gmmg

  • Vom User festgelegtes Passwort in INI Datei speichern und beim Öffnen abfragen

    hallo iFreak95,

    bei mir geht das so!

    [autoit]


    #include <File.au3>
    #include <String.au3>

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

    abfrage()
    Exit
    Func abfrage()
    $pass = InputBox ("Save Password BETA 1", "Bitte trage hier dein Passwort ein!","","*",250,130)
    If IniRead (@ScriptDir &"\passwort.ini","Passwort","key01","") = $pass Then
    SoundPlay("C:\Program Files\MBDevelopment\Save Password\Media\start.mp3")
    MsgBox(0,"Save Password", "Sie haben sich erfolgreich als " & @UserName & " eingeloggt!")
    SoundPlay("C:\Program Files\MBDevelopment\Save Password\Media\standart.mp3")
    Else
    $msgbox=MsgBox (1,"Save Password BETA 1" , "Falsche Antwort!" & @CRLF & "Nochmal versuchen?")
    If $msgbox=2 Then
    Exit
    EndIf
    EndIf
    EndFunc

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

    in der ini steht folgendes!

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

    [Passwort]
    Key01="hallo"

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

    gruß gmmg

  • Datenbank nutzen, aber wie?

    hallo lwl2011Bochum,

    mysql zugriffe habe ich über die libMySQLdll.au3 und die libmysql.dll gelöst! dank an progandy ;)

    MySQL UDF - mit libmySQL.dll (kein ODBC)

    hier mal ein Beispiel zum lesen

    Spoiler anzeigen
    [autoit]


    #include <array.au3>
    #include <mysql.au3>

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

    ; db verbindungsvariablen
    $ipadd = "192.168.2.50"
    $sname = "root"
    $spasswort = "passwort"
    $db = "datenbankname"

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

    _MySQL_InitLibrary()
    If @error Then Exit MsgBox(0, "Fehler", "libmysql.dll nicht gefunden")

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

    $MysqlConn = _MySQL_Init()

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

    $connected = _MySQL_Real_Connect($MysqlConn,$ipadd,$sname,$spasswort,$db)
    If $connected = 0 Then
    $errno = _MySQL_errno($MysqlConn)
    MsgBox(0,"Fehler","Login Server ist nicht Erreichbar")
    Exit
    Endif

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

    Local $sQuery = "SELECT * FROM `tabelle` WHERE name=horst"
    ;MsgBox(0,"",$sQuery)

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

    _MySQL_Real_Query($MysqlConn, $sQuery)

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

    ;$MySQL= "SELECT * FROM `plattenbeobachtung`"
    ; _MySQL_Real_Query($MysqlConn, $MySQL)
    $res = _MySQL_Store_Result($MysqlConn)
    $array = _MySQL_Fetch_Result_StringArray($res)
    _MySQL_Free_Result($res)
    _ArrayDisplay($array)

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

    ; Verbindung beenden
    _MySQL_Close($MysqlConn)
    ; MYSQL beenden
    _MySQL_EndLibrary()

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

    wenn du dann die exe erstellt hast, muss du die "libmysql.dll" mit in das scriptverzeichnis legen.

    vielleicht hift es dir auch weiter :)

    gruß gmmg

  • Text To Array

    hallo,

    ich denke mal, weil der string split dann nichts zu splitten hat und somit kommt ein fehler!

    wenn du das ArrayDisplay($aFile) so wie in autoBerts beispiel aktivierst, kannst du dir ja das array vorab, vor dem stringsplit mal ansehen.

    gruß gmmg

  • Fenster "Zertifikate" öffnen

    hallo tobitron,

    das beispiel soltle so passen!

    [autoit]


    $sCommand02 = ('certutil -addstore root "V:\pfad\name_von Cert.crt"')
    _RunDOS($sCommand02)

    [/autoit]

    zumindest wird bei mir mit dem eintrag root das zertifikat unter "Vertrauenswürde Stammzertifizierungsstellen" eingetragen

    gruß gmmg

  • Starten und Beenden

    du musst aber auch aufpassen, wenn z.b firefox zweimal offen ist!
    ich hab das in einem script mal so gelöst!

    [autoit]


    ;----prüfe auf geöffnete programme----
    Dim $avArray[7]
    ;Galileo:
    $avArray[0]="viewpointListener.exe"
    $avArray[1]="Viewpoint.exe"
    $avArray[2]="hcmmux.exe"
    ;I5:
    $avArray[3]="pcscm.exe"
    $avArray[4]="pcsws.exe"
    ;Blank:
    $avArray[5]="GL.EXE"
    ;Traffics:
    $avArray[6]="tc.exe"

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

    For $i = 0 To 6

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

    ;MsgBox(0,"",$avArray[$i])
    ;GUICtrlSetData($label, '... prüfe ' & $avArray[$i] &' ...')
    ;Sleep(500)
    While 1
    If ProcessExists($avArray[$i]) Then
    ProcessClose($avArray[$i])
    Else
    ;MsgBox(0,"","Springe aus schleife",2)
    ExitLoop
    EndIf
    WEnd
    Next

    [/autoit]

    gruß gmmg

  • aus pid alle gestarteten programme oder fenster auslesen.

    hallo manuel6000,

    hast du schonmal google benutzt?
    wenn ich bei google nach "autoit _TargetStyle beispiel" suche bekomme ich z.b. folgendes ergebnis! vielleicht hilft es weiter!

    http://www.xsibase.com/forum/index.ph…;threadid=29107

    hier mal zum lesen :)

    Spoiler anzeigen


    I have been looking around the web for a way to hide an application Window Title bar to have the window occupied the entire screen.

    The only way I found to do it, is by using a little app called AutoIt 3.
    http://www.autoitscript.com/autoit3/ (http://www.autoitscript.com/autoit3/)

    And I used the following script.

    Code:
    #include <Array.au3>
    #include <ANYGUIv2.6.au3>
    #include <guiconstants.au3>
    Opt ("WinTitleMatchMode", 4)
    Opt ("WinWaitDelay", 0)
    Opt ("GUIOnEventMode", 1)

    $xhandle = WinGetHandle("SOFTIMAGE")
    $xh = _GuiTarget($xhandle,1)
    $Style = $WS_Caption
    $ExStyle = -1
    $result = _TargetStyle("unset",1,$Style,$ExStyle,$xh)


    This script search across all windows titles for the string SOFTIMAGE and hide the title bar. It can be used with any application, and you can even add a Run command, like this:

    Code:
    #include <Array.au3>
    #include <ANYGUIv2.6.au3>
    #include <guiconstants.au3>
    Opt ("WinTitleMatchMode", 4)
    Opt ("WinWaitDelay", 0)
    Opt ("GUIOnEventMode", 1)

    Run( "S:\Sicore\Debug\bin\XSI.exe" )
    WinWait("SOFTIMAGE")
    $xhandle = WinGetHandle("SOFTIMAGE")
    $xh = _GuiTarget($xhandle,1)
    $Style = $WS_Caption
    $ExStyle = -1
    $result = _TargetStyle("unset",1,$Style,$ExStyle,$xh)


    With AutoIt you can also compile the script to an EXE, for redistribution.

    So, now I can run XSI in full, full screen without any kind of MS Windows widgets around. ( by hiding the task bar behind other application).

    gruß gmmg

  • Auto IT Supporttool

    Hallo,

    ich hab da mal ein Helpdesktool erstellt (siehe Bilder)
    der quelltext sollte zum teil auch im forum zu finden sein :)

    einen link kannst du z.b. mit run aufrufen

    [autoit]


    Run("C:\Programme\Internet Explorer\IEXPLORE.EXE http://www.teamviewer.com/de/download/index.aspx")
    oder
    Run("C:\Programme\Internet Explorer\IEXPLORE.EXE http://www.teamviewer.com/download/TeamViewerQS_de.exe")

    [/autoit]

    Beispiel GUI

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    $hGUI = GUICreate("", 200, 200,-1,-1);270,137
    ;GUISetBkColor(0xDDDDDD) ; setzt hintergrundfarbe
    ;------------------
    $Button = GUICtrlCreateButton("weiter", 70, 100, 80,20)
    ;GUICtrlSetFont($url, 12, 500,0, "Arial")
    $lsearch = GUICtrlCreateLabel("", @DesktopWidth -160, 10, 120, 20)
    GUISetState(@SW_SHOW)

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

    While 1

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

    $msg = GUIGetMsg()
    If $msg = -3 Then ExitLoop

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

    Switch $msg

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

    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Button
    Run("C:\Programme\Internet Explorer\IEXPLORE.EXE http://www.teamviewer.com/de/download/index.aspx")
    ;oder
    ;Run("C:\Programme\Internet Explorer\IEXPLORE.EXE http://www.teamviewer.com/download/TeamViewerQS_de.exe")

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

    EndSwitch
    WEnd

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


    gruß gmmg

  • animiertes Gif

    hallo zusammen,

    ich bekomme folgende fehlermeldung, wenn ich das script über scite ausführe!

    D:\Data\scripte\GIF\_Ani.au3(113,68) : ERROR: Opt() called with illegal argument 1: "OnExitFunc"
    Global Const $_ani_ExitOpt = Opt('OnExitFunc', '__Ani_OnAutoItExit')

    script:

    [autoit]


    ; Beispielscript

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

    #Include <_Ani.au3>
    #include <WindowsConstants.au3>

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

    $pic = @ScriptDir & "\pic1.gif"
    ;$pic = "Newtons_cradle_animation_book_2.gif"

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

    $Parent = GUICreate("", 280, 370,-1,-1, $WS_POPUP + $WS_EX_LAYERED +0x00800000)
    GUISetBkColor(0xD6E4FF) ; setzt hintergrundfarbe
    $gif = GUICtrlCreateGifEx($Parent, $pic, -10, 30)
    GUISetState(@SW_SHOW)

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

    While 1

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

    WEnd

    [/autoit]

    der fehler muss in der_ani.au3 sein, habe aber bisher keine lösung!
    vielleicht hat von euch einer eine idee, wie man diesen fehler abstellen kann?!

    gruß gmmg :)

  • Programm Installation

    beispiel

    [autoit]


    WinWait("TrafficsCosmo - Desktop Deinstallation","")
    If Not WinActive("TrafficsCosmo - Desktop Deinstallation","") Then WinActivate("TrafficsCosmo - Desktop Deinstallation","")
    WinWaitActive("TrafficsCosmo - Desktop Deinstallation","")
    Sleep(500)
    Send("!j")
    Sleep(2000)
    Send("!s")
    Send("{ENTER}")

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

    gruß gmmg

  • Array durchsuchen und Zählen

    hallo AspiriJunkie,

    ja, so wollte ich das auch! :)

    mein problem war, dass ich nicht verstanden habe, wie ich die zeile + spalte zuweise, weil es ja am anfang eine For IN schleife war!

    hab nicht gedacht, dass es so einfach ist eine For TO schleife draus zu machen.

    [autoit]


    If IsArray($aMN) Then _ExcelWriteCell($oExcel, $aMN[0], $iRow, $iColumn)
    If IsArray($aDest) Then
    For $i = 1 To UBound($aDest) - 1
    _ExcelWriteCell($oExcel, $aDest[$i], $iRow, $i+$iColumn)
    Next
    EndIf

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

    $iRow += 1

    [/autoit]

    so funktioniert es aber super!!!

    dank dir :) man lernt halt immer dazu. ;)

    noch eine frage, könnte man das ganze auch um weitere felder ergänzen z.b. <NAME>, welches dann im excel nach dem <DESTNAME> ausgegeben wird?

    Spoiler anzeigen
    [autoit]


    #include <String.au3>
    #include <Array.au3>
    #include <Excel.au3>

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

    Global $sDir = @DesktopDir

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

    $FFFF = FileFindFirstFile($sDir & "\*.xml")
    If $FFFF = -1 Then Exit MsgBox(0, "Fehler", "Es wurden keine Dateien/Verzeichnisse gefunden, die zu dem Suchmuster passen")

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

    ; erstelle excel dokument
    Global $oExcel = _ExcelBookNew()
    ; Setze Start Reihe und Spalte fest:
    Global $iRow = 2, $iColumn = 1

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

    Do
    $FFNF = FileFindNextFile($FFFF)
    If @error Then ExitLoop

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

    $aMN = _StringBetween(FileRead($sDir & "\" & $FFNF), "<MN20>", "</MN20>")
    $aDest00 = _StringBetween(FileRead($sDir & "\" & $FFNF), "<DESTNAME>","</DESTNAME>")
    $aDest00 = _ArrayUnique($aDest00)
    $aDest01 = _StringBetween(FileRead($sDir & "\" & $FFNF), "<NAME>","</NAME>")
    $aDest01 = _ArrayUnique($aDest01)

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

    If IsArray($aMN) Then _ExcelWriteCell($oExcel, "'" & $aMN[0], $iRow, $iColumn)
    If IsArray($aDest00) Then
    For $i = 1 To UBound($aDest00) - 1
    _ExcelWriteCell($oExcel, $aDest00[$i], $iRow, $i+$iColumn)
    Next
    If IsArray($aDest01) Then
    For $i = 1 To UBound($aDest01) - 1
    _ExcelWriteCell($oExcel, $aDest01[$i], $iRow, $i+$iColumn +2)
    Next
    EndIf
    EndIf

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

    $iRow += 1
    Until 0

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

    $oExcel.Columns.AutoFit
    $oExcel.Rows.AutoFit

    [/autoit]

    hab das mal so gemacht! scheint auch zu funktionieren!

    gruß gmmg

  • Array durchsuchen und Zählen

    danke euch beiden :)

    hab mich entschlossen mein script zu verwerfen und das von "AspirinJunkie" vorgeschlage zu benutzen!
    hier sind alle von mir gewünschten sachen drin :)

    werd jetzt mal versuchen die ausgabe in excel zu schreiben!

    so, stehe schon vor dem ersten problem! Wie bekomm ich die Werte Konsolenausgabe in ein Array?

    mein versuch schreibt nicht alle werte hintereinander!

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <String.au3>
    #include <Array.au3>

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

    Global $sDir = @DesktopDir
    Dim $avArrayXML[1]

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

    $FFFF = FileFindFirstFile($sDir & "\*.xml")
    If $FFFF = -1 Then Exit MsgBox(0, "Fehler", "Es wurden keine Dateien/Verzeichnisse gefunden, die zu dem Suchmuster passen")

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

    Do
    $FFNF = FileFindNextFile($FFFF)
    If @error Then ExitLoop

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

    $aMN = _StringBetween(FileRead($sDir & "\" & $FFNF), "<MN20>", "</MN20>")
    $aDest = _StringBetween(FileRead($sDir & "\" & $FFNF), "<DESTNAME>","</DESTNAME>")
    $aDest = _ArrayUnique2($aDest)
    If IsArray($aMN) Then ConsoleWrite($aMN[0] & @TAB)
    If IsArray($aDest) Then
    For $i In $aDest
    ConsoleWrite($i & @TAB)
    Next
    _ArrayAdd($avArrayXML, $aMN[0] & ";" & $i)
    EndIf
    ConsoleWrite(@CRLF)
    ;_ArrayAdd($avArrayXML, $aMN[0] & ";" & $i)
    Until 0

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

    _ArrayDisplay($avArrayXML)

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

    Func _ArrayUnique2(Const ByRef $aA)
    ; by AspirinJunkie
    Local Static $oD = ObjCreate('Scripting.Dictionary')
    For $i In $aA
    If Not $oD.Exists($i) Then $oD.Add($i, 0)
    Next
    Local $aR = $oD.Keys()
    $oD.RemoveAll
    Return $aR
    EndFunc

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

    ;#########################################

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

    Konsolenausgabe
    01805605960089-444463-3093
    01805000001089-00000-0001
    01805123334_Zwansage_1000_10010361-51803-10000361-51803-1001
    01805111111_Zwansage_1000_1001036-00000-1000036-00000-1001

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

    Array ausgabe
    [1]|01805605960;089-444463-3093
    [2]|01805000001;089-00000-0001
    [3]|01805123334_Zwansage_1000_1001;0361-51803-1001
    [4]|01805111111_Zwansage_1000_1001;036-00000-1001

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


    an welche stelle muss ich hier das _ArrayAdd setzen, das mir alle Werte so wie ind er Konsolenausgabe geschrieben werden?

    hab das jetzt erstmal über filewrite gelöst, ist aber bestimmt zu umständlich!!!

    gruß gmmg

  • Array durchsuchen und Zählen

    hallo,

    danke für die antwort!
    das auslesen der xml in ein array ist nicht das problem! sondern eher das unique machen des wertes!

    nur diese stimmen schon nicht (siehe bilder vorheriger post)! da dürfte in bild 2 nur der zweite wert sein

    normalerweise dürfte da immer nur ein wert pro schleifendurchlauf auftauchen!
    das ganze ist gekommen, als ich den ganzen abschnitt _FileListToArray(@DesktopDir,"*.xml") eingebaut habe und der rest in die Func _test() eingekapselt wurde!

    finde aber den fehler nicht, kann aber nur an einer der schleifen liegen!

    ist dem _GetUsers_Summary (vorige posts von dir) ähnlich! damit hattest du mir vor paar tagen geholfen!

    hier nochmal ohne excel und nur mit einem file

    Spoiler anzeigen
    [autoit]


    #Include <Array.au3>
    #include <file.au3>
    ;#include <Excel.au3>

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

    Dim $aRecords, $avArray_01[1], $avArray_xx[1], $aC, $aCD
    Local $z

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

    #CS $FileList=_FileListToArray(@DesktopDir,"*.xml",1)
    If @Error=1 Then
    MsgBox (0,"","No Folders Found.")
    Exit
    EndIf
    If @Error=4 Then
    MsgBox (0,"","No Files Found.")
    Exit
    EndIf
    _ArrayDisplay($FileList,"$FileList")

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

    ;erstelle excel dokument
    Local $oExcel = _ExcelBookNew() ;Create new book, make it visible

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

    For $z = 1 to $FileList[0]
    ;MsgBox(0,"", $FileList[$z])
    $eintrag = ""
    _test()
    Next
    #CE
    ;erstelle excel dokument
    ;Local $oExcel = _ExcelBookNew() ;Create new book, make it visible
    _test()

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

    Func _test()

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

    If Not _FileReadToArray(@DesktopDir & "\index2.jsp2.xml",$aRecords) Then
    MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
    Exit
    EndIf
    For $x = 1 to $aRecords[0]
    $var = $aRecords[$x]
    $var = StringReplace($var, " ", "")
    $var = StringStripCR($var)
    $var = StringStripWS($var, 3)
    ;Msgbox(0,'Record:' & $x, $aRecords[$x])

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

    IF StringLeft($var, 6) = "<MN20>" Then
    $var01 = $var
    $var01 = StringTrimRight($var01, 7)
    ;Msgbox(0,'Record:' & $x, $var01)
    $var01 = StringTrimLeft($var01, 6)
    ;Msgbox(0,'Record:' & $x, $var01)
    EndIf
    IF StringLeft($var, 10) = "<DESTNAME>" Then
    $var02 = $var
    $var02 = StringTrimRight($var02, 11)
    $var02 = StringTrimLeft($var02, 10)
    ;Msgbox(0,'Record:' & $x, $var01 & "|" & $var02)
    _ArrayAdd($avArray_01, $var01 & "|" & $var02)
    EndIf
    Next

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

    _ArrayDisplay($avArray_01)

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

    Local $aC = _ArrayUnique($avArray_01)
    _ArrayDelete($aC, 0)
    _ArraySort($aC)
    _ArrayDisplay($aC)

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

    For $i = 1 To _ArrayMaxIndex($aC, 0, 1)
    ;MsgBox(0,"", _ArrayMin($aC, 0, 1))
    $zeile_1 = $i + 1
    $eintrag = StringSplit($aC[$i], "|")
    _ArrayAdd($avArray_xx, $eintrag[1])
    Next
    Local $aCD = _ArrayUnique($avArray_xx)
    _ArrayDelete($aCD, 0)
    _ArraySort($aCD)
    _ArrayDisplay($aCD, "test")

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

    ;erstelle excel dokument
    ;Local $oExcel = _ExcelBookNew() ;Create new book, make it visible

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

    For $i = 1 To _ArrayMaxIndex($aC, 0, 1)
    ;MsgBox(0,"", _ArrayMin($aC, 0, 1))
    $zeile_1 = $i
    $eintrag = StringSplit($aC[$i], "|")
    ;MsgBox(0,"",$eintrag[1] & " " & $eintrag[2])
    IF $i = 1 and $aCD[1] = $eintrag[1] Then
    ;---_ExcelWriteCell($oExcel, "'"&$eintrag[1], $zeile_1 + $z, 1)
    ;---_ExcelWriteCell($oExcel, $eintrag[2], $zeile_1 + $z, 2)
    ConsoleWrite("Spalte1=" & $eintrag[1] & " -- Spalte2=" & $eintrag[2] & " -- Spalte3=" & $eintrag[3])
    ;MsgBox(0,$i & " 1", $zeile_1 + $z)
    Else
    ;_ExcelWriteCell($oExcel, $eintrag[1], $zeile_1, 3)

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

    ;---_ExcelWriteCell($oExcel, $eintrag[2], $zeile_1 + $z -1 , $i +1)
    ;MsgBox(0,$i &" 2 " & $eintrag[1] , $zeile_1 + $z -1)
    EndIf
    ;$eintrag[1] = ""
    ;$eintrag[2] = ""
    ;$oExcel.Range("A"& $zeile_1 &":B"& $zeile_1) .Interior.ColorIndex = 27 ; setze Farbe
    ;$oExcel.Range("A1:B"&$zeile_1).Borders.LineStyle = 1 ; setze einen Rahmen um die Zellen
    Next

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

    ;$oExcel.Columns.AutoFit ;AutoFits the Columns for better viewing
    ;$oExcel.Rows.AutoFit ;AutoFits the Rows for better viewing

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

    EndFunc

    [/autoit]


    im abschnitt _ArrayDisplay($aC) siehst du, das es zwei einträge gibt, die dann gesplittet werden!
    [1]01805111111_Zwansage_1000_1001 | 036-00000-1000
    [2]01805111111_Zwansage_1000_1001 | 036-00000-1001

    der ausgabe strin soll nun wie folgt aussehen:
    01805111111_Zwansage_1000_1001 | 036-00000-1000 | 036-00000-1001

    gruß gmmg