Beiträge von Torni

  • StringSplit Problem

    oder such mal "Toast" von Melba23 im englischen Forum.

    Das sind selbstdefinierte Balloon-Tipps.. sieht nett aus, kann variabel ein- und ausgeblendet werden usw..
    Die in Verbindung mit Accels müsste dir geholfen sein..

  • Excel - verbundene Zellen und mehr :-)

    water: thx an die @LF hab ich absolut nicht gedacht, hrhrhr

    das mit dem $oExcel.ActiveSheet.UsedRange.Rows.Count gibt er mir IMMER 16384 zurück, dem ist aber so nicht.. :(
    Anscheinend wurde das in dieser Excel-Sheet so definiert oder was auch immer, aber definitv benutzt werden weniger.

  • Excel - verbundene Zellen und mehr :-)

    Hiho,

    ich lese wiederkehrende (nach unten) Daten aus Excel ein und erstelle daraus TXT-Dateien.
    Leider sind die Daten in einer Zelle (sprich 5 Spalten) miteinander verbunden und der bricht mir die Daten in ne neue Zeile um.
    Wie kann ich dies in eine Zeile bekommen?

    Ebenso weiß ich nicht, wann die Tabelle aufhört -> mehr als 8 Zeilen leer wäre Ende der Excel-Datei, gibt es da ne einfache Prüfung odermuss ich auf leer testen??

    Spoiler anzeigen
    [autoit]


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

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

    Global $error
    Global $sFilePath1 = @ScriptDir & "\e2.xls" ; D
    Global $oExcel = _ExcelBookOpen($sFilePath1)

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

    Global $aarrayr[8][2] = [[3,1],[4,1],[12,1],[14,2],[18,2],[19,2],[18,5],[19,5]]
    Global $date

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

    $oExcel.ActiveWorkbook.Sheets("Belege").Select()

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

    If $error = 1 Then
    MsgBox(0, "Fehler!", "Das Excel-Objekt konnte nicht erstellt werden")
    Exit
    ElseIf $error = 2 Then
    MsgBox(0, "Fehler!", "Die Lese-Datei existiert nicht!")
    Exit
    EndIf

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

    Local $file = FileOpen("test.txt", 1)

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

    If $file = -1 Then
    MsgBox(0, "Fehler", "Die Schreib-Datei konnte nicht geöffnet werden.")
    Exit
    EndIf

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

    For $j = 0 to 210 step 21; wiederkehrende Zellen + 21
    For $i = 0 To 7; 8 Zellen werden gelesen
    $date =_ExcelReadCell($oExcel, ($aarrayr[$i][0])+$j,$aarrayr[$i][1])
    FileWriteLine($file, $date & @CRLF)
    Next
    FileWriteLine($file, "--------------------------------------" & @CRLF)
    Next

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

    _ExcelBookClose($oExcel) ;
    FileClose($file)

    [/autoit]

  • Ping blockiert bzw. ist zu langsam

    Hallo,

    ich nutze eine "gefundene" und konvertierte .VBS-Funktion, um Rechnername/IP in meiner ListView anzupingen und je nach Status auf online/offline zu setzen (grün/rot).
    Allerdings "blockiert" mir diese das ganze Programm, bis es durch die ~300 Rechner ist - schätzungsweise 1-2 Sekunden pro Offline-Rechner.

    Geht das igendwie im Hintergrund bzw. von mir aus auch schneller??
    p.s. das mit dem temp-File auslesen unten habe ich schon mal versucht durch das stdio-einlesen zu ersetzen, ist also nur eine andere Variante..

    Spoiler anzeigen
    [autoit]


    Func _IPTest()
    GUICtrlSetState($ButIPScan, $GUI_DISABLE)
    For $i = 0 to $iAnzahlPC-1
    $RDP = _GUICtrlListView_GetItemText($LVPC, $i)
    ;ConsoleWrite($rdp & @CRLF)

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

    if IsConnectible($RDP) = 1 Then
    _GUICtrlListView_SetItemImage( $LVPC, $i, 2)
    Else
    _GUICtrlListView_SetItemImage( $LVPC, $i, 0)
    EndIf
    Next
    GUICtrlSetState($ButIPScan, $GUI_ENABLE)
    EndFunc

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

    Func IsConnectible($sHost, $iPings=2, $iTO=150)

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

    If $iPings = "" Then $iPings = 2
    If $iTO = "" Then $iTO = 150

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

    Const $OpenAsDefault = -2
    Const $FailIfNotExist = 0
    Const $ForReading = 1

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

    Local $oShell = ObjCreate("WScript.Shell")
    Local $oFSO = ObjCreate("Scripting.FileSystemObject")
    Local $sTemp = $oShell.ExpandEnvironmentStrings("%TEMP%")
    Local $sTempFile = $sTemp & "\runresult.tmp"

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

    $oShell.Run( "%comspec% /c ping -n " & $iPings & " -w " & $iTO & " " & $sHost & ">" & $sTempFile, 0 , True)

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

    Local $fFile = $oFSO.OpenTextFile($sTempFile, $ForReading, $FailIfNotExist, $OpenAsDefault)

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

    Local $sResults = $fFile.ReadAll
    $fFile.Close
    $oFSO.DeleteFile($sTempFile)

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

    If StringInStr($sResults,"TTL=") Then
    Return 1
    Else
    Return 0
    EndIf
    EndFunc

    [/autoit]

  • Textdateien auswerten / zusammenfassen

    Hiho,

    ich habe eine Textdatei mit Werten (";"-getrennt) . Insgesamt sind in einer Zeile 280 Werte.
    Die Textdatei selbst hat ca. 70.000 Einträge (durch CRLF getrennt).

    Jetzt habe ich vor, zeilenweise einzulesen und dabei darauf zu achten, ob ein bestimmtes Feldwert anders sit, sprich ich will gruppieren.
    Innerhalb dieser Gruppierung sollen die auszulesenden Werte (nur bestimmte Felder - Summen bzw. max-Wert) neu in eine andere text-datei geschrieben werden.

    Wie gehe ich da am besten vor?? Kleine Hilfestupser könnt ich gebrauchen.

    Soll ich per Stringsplit erst alles in ein Array und dann die Werte vergleiche und dann in neues Array übertragen. Das wäre jetzt das erste was mir einfällt.

    p.s.noch kein Code vorhanden..

  • Txt-Datei an bestimmter Position etwas einfügen.

    Hiho,

    Ich habe eine Text-Datei mit mehreren/unbekannten Zeilen mit Text.

    In diese soll in jeder Zeile an einer bestimmten Text-Position (z.B. 790) 4 Zeichen (meist Leerzeichen) überschrieben werden.
    Zusätzlich gibt es aber Zeilen die nicht so lange sind wie die Standard-Zeile, sprich die o.g. Position gibt es gar nicht.
    Da soll dann mit Leerzeichen aufgefüllt werden und dann dort wieder die 4 Zeichen eingefügt werden.

    Wie gehe ich das am besten an?? Bräuchte da ein Anstupser..

  • DropDown Liste füllen

    jo was name22 hat, hab ich vergessen,

    aber mit findstring gehts auch in dem man zuerst den momentanen text ausliest und dann den Index sucht..
    umständlich, ginge aber (sofern keine Txt-Dubletten drin sind) *G*

  • Wie kommt ihr auf euren Nicknamen?

    Torni stammt noch aus der Zeit um ~1992-2002 als ich noch extremst als Cracker unterwegs war.

    Der Nick selber ist die Abkürzung/Verniedlichung meines ersten Modems: "Tornado".
    Da sass ich damals vor dem Internet bzw. BTX und musste mich wo anmelden und schaute mich vor dem Compi um - da fiel mir dieser Name ins Auge und schwupps war Torni "geboren" :)

  • Funktion StringReplace ist schrecklich langsam

    Sind die Änderungen immer an festen Positionen?

    Wenn ja, müsste es doch möglich sein, diesen String einmalig als Datei zu speichern und dann per FileSetPos und Filewrite(..., Binary(...)) zu speichern.
    Oder dann gleich per WinAPI..müsste rein theoretisch alles schneller sein ?!?

    Nur so als Denkanstoss.