Beiträge von BugFix

  • CSV anhand eines Feldwertes sortieren

    Hi,
    ich hab dir mal 'ne Lösung erstellt. Ich bin davon ausgegangen, dass das Datum in der Form "TT.MM.JJJJ" vorliegt.
    Die Funktion ist so ausgelegt, dass Tag und Monat auch einstellig eingegeben sein können (also '9.' statt '09.').

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    #include <file.au3>

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

    Dim $file = 'test.csv'
    Dim $fileOut = 'test_1.csv'
    Dim $arRaw
    _FileReadToArray($file, $arRaw)
    Dim $arOut[$arRaw[0]][2]

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

    For $i = 1 To UBound($arRaw) -1
    $tmp = StringSplit($arRaw[$i], ';')
    $arOut[$i-1][0] = $i
    $arOut[$i-1][1] = _konvert2sortDat($tmp[3])
    Next

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

    Func _konvert2sortDat($STR)
    $var = StringSplit($STR, '.')
    Return $var[3] & '-' & StringRight(0 & $var[2], 2) & '-' & StringRight(0 & $var[1], 2)
    EndFunc

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

    _ArraySort($arOut, 0, 0, 0, 2, 1)

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

    $fh = FileOpen($fileOut, 1)
    For $i = 0 To UBound($arOut) -1
    FileWriteLine($fh, $arRaw[$arOut[$i][0]])
    Next
    FileClose($fh)

    [/autoit]

  • Console write/read

    Warum lest ihr nicht die Hilfe?

  • upx

    Ich würde mal probieren:

    [autoit]

    Run(@ComSpec & " /c " & 'commandName', "", @SW_HIDE)

    [/autoit]


    Und dann 'upx yourfile.exe' einsetzen.

    EDIT:
    Wer mit UPX nichts anfangen kann - UPX ist ein Packprogramm zum Packen von EXE-Dateien.
    Der Vorteil - die gepackten EXE müssen vor dem Ausführen nicht entpackt werden.
    Hier zu finden.

  • Auto It und Strg + TAB

    Habs mal bei mir getestet. Habe aber ein paar Sleeps eingebaut - ohne die gehts nicht. Klappt so tadellos:

    Spoiler anzeigen
    [autoit]

    Run('rundll32.exe shell32.dll, SHHelpShortcuts_RunDLL PrintersFolder')
    send ("{ALT}")
    send ("A")
    send ("A")
    send ("{HOME}")
    send ("EPSON") ;Name des Druckers
    send ("{ALT}")
    send ("D")
    send ("D")
    Sleep(100)
    Send("^{TAB}")
    Sleep(100)
    Send("^{TAB}")
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send("{TAB}") ; Focus auf Button "Druckkopfreinigung"

    [/autoit]

  • fehler mit Sinuns

    Vertrau der Hilfe ;) - das ist richtig.
    Hier, das was du wohl wolltest:

    [autoit]

    ConsoleWrite(' 90° : ' & _AreaKreisSektor(9, 90) & @CRLF)
    ConsoleWrite('180° : ' & _AreaKreisSektor(9, 180) & @CRLF)
    Func _AreaKreisSektor($Radius, $Winkel)
    Local Const $pi = 3.14159265358979
    Return $Radius^2*($pi*$Winkel/360)
    EndFunc

    [/autoit]
    Code
    90° : 63.6172512351933
180° : 127.234502470387

  • fehler mit Sinuns

    Ich hab nur deine Formel 1:1 umgesetzt. Ob sie sachlich richtig ist, weiß ich nicht. ;)
    Die Berechnung des Sinus hab ich analog aus der Hilfe entnommen:

    [autoit]

    $degToRad = $pi / 180
    $y = Sin(90 * $degToRad) ;sine of 90°

    [/autoit]

    Aber ich werd jetzt mal mein Tabellenbuch vorholen und schauen, wie die Formel zur Berechnung ist. Dann melde ich mich nochmal.


    EDIT:
    Ich glaube, ich weiß, wo das Problem liegt.
    Also meine Berechnung ist korrekt.
    Aber ich gehe mal davon aus, dass du gar kein Kreissegment meinst!
    Du willst sicher den Flächeninhalt eines "Tortenstücks" ermitteln - das ist aber kein Kreissegment sondern ein Kreissektor!
    Schau mal unter Wikipedia nach Kreissegment - dort ist es gut abgebildet.

    Und für dein Tortenstück die Fläche ist doch simpel:
    Teilfläche = Fläche Vollkreis / 360 * Winkel
    Ask = Winkel / 360 * pi * Radius²

  • fehler mit Sinuns

    Dann korrigiere mal deine Formel:

    [autoit]

    ConsoleWrite(' 90° : ' & _AreaKreisSegment(9, 90) & @CRLF)
    ConsoleWrite('180° : ' & _AreaKreisSegment(9, 180) & @CRLF)
    Func _AreaKreisSegment($Radius, $Winkel)
    Local Const $pi = 3.14159265358979
    Local $degToRad = $pi / 180
    Return $Radius^2*(($pi*$Winkel/360)-(Sin($Winkel*$degToRad)/2))
    EndFunc

    [/autoit]
    Code
    90° : 23.1172512351932
180° : 127.234502470386

    Edit: Oops, da hatte ich doch glatt den Radius mit dem Rest potenziert :D - nu stimmts aber

  • List drucken?

    Schreib den Inhalt in eine Temporäre Datei und drucke diese aus:

    [autoit]

    Func _FilePrintCom($iFile)
    If Not FileExists($iFile) Then Return SetError(1,0,0)
    $objShellApp = ObjCreate("Shell.Application")
    $objShellApp.ShellExecute($iFile,0,0,"PRINT",0)
    EndFunc

    [/autoit]

  • 1.) FileWrite, 2.) FileWrite & FileWriteLine

    zum 1.
    Ja, dort kannst du auch Variablen verwenden.

    zum 2.
    FileWrite schreibt den gesamten Inhalt einer Variablen in eine (vorher zum Schreiben geöffnete) Datei.
    Wenn du keine Zeilenumbrüche in der Variablen hast, steht alles in einer Zeile.
    FileWriteLine schreibt den Inhalt in eine Zeile und fügt, falls nicht vorhanden, automatisch einen Zeilenumbruch an.

  • $nr[$q] = $q

    [autoit]

    ReDIM $nr[$q + 1]
    $nr[$q] = $q

    [/autoit]

    Was soll das bedeuten? Wieso änderst du die Größe von $nr in Abhängigkeit von $q?

    Hier tritt ein schon öfter angesprochenes Problem auf: Variablennamen ohne Sachbezug.
    Ich hab keine Ahnung, welche Rolle $q bei dir spielt und aufgrund der Skriptgröße auch keine Lust zu suchen ob ich es herausfinde.
    Es ist wesentlich einfacher (auch für dich, wenn du später nochmal in dein Skript schaust) Variablennamen zu verwenden, die einen eindeutigen Bezug auf ihre Aufgabe zulassen. Sonst ist es für einen Außenstehenden bei großen Skripten nicht zumutbar, das nachzuvollziehen.