Beiträge von name22

  • An den Anfang und das Ende jeder Zeile etwas schreiben

    Am einfachsten geht das mit StringRegExpReplace.

    Beispiel
    [autoit]

    $sStart = "Anfang "
    $sEnd = " Ende"

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

    $sText = "Test" & @CRLF & "1234" & @CRLF & "abc cba"
    ConsoleWrite($sText & @CRLF & "------------" & @CRLF)

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

    $sReplace = StringRegExpReplace($sText, "(?m)(^\w.+\w).?$", $sStart & "$1" & $sEnd)
    ConsoleWrite($sReplace & @CRLF)

    [/autoit]

  • Könnt man eine selbst weiterentwickelnde Software schreiben?

    Zitat

    Naja, wenn man ein Gehirn bauen wöllte, warum versucht man es aber noch nicht :0 ?


    Weil wir viel zu wenig über das Gehirn wissen, Forscher sind sich z.B. immer noch nicht einig wie das menschliche Gehirn überhaupt Informationen abspeichert. Wenn du so eine Diskussion ohne ersichtliches Ende wirklich fortführen willst, dann viel Spaß...

    Zitat

    Warum weichen immer alle einer Diskussion aus


    Mach ich doch nicht, aber aus meiner Sicht ist es unnötig jetzt noch weiter darüber zu diskutieren...

  • Könnt man eine selbst weiterentwickelnde Software schreiben?

    Die Tatsache, dass die Erde zu der Zeit eine Scheibe war, war aus Sicht der damaligen Menschen auch eine Gegebenheit und keine These.

    Zitat

    Dass Problem hierbei ist doch immernoch dass es etwas Virtuelles ist


    Dann müssen eben Computer die in ferner Zukunft möglicherweise wie ein Gehirn lernen können anders gebaut sein. Dann werden vielleicht keine Digital arbeitenden Microchips mehr gebaut sondern kleine vereinfachte neuronale Netzwerke. Das kann niemand genau sagen...
    Und das zu machen ist nicht unmöglich, nur für jetzige Verhältnisse viel zu kompliziert. Es ist auch irgendwie sinnlos darüber noch weiter zu diskutieren, da könnten wir genauso gut darüber reden, ob es einen Gott gibt oder nicht. :rolleyes: Da kommt man nämlich nie zu einem Schluss.

  • Eine Anwendung öffnen mit unbekanten datei dateipfad

    Gib den Pfad zum Schlüssel als ersten Parameter bei RegRead an (Er müsste in der unteren Leiste des Fensters stehen), und beim zweiten gibst du einen leeren String ("") an, da der Wert nach deinem Bild zu urteilen vom Wert "(Standard)" ist. Du hast bis jetzt nur das Hauptverzeichnis und einen Wert der nicht existiert angegeben...

  • FileInstall, Alle dateien aus einem Ordner auf einmal

    Ich hab dafür vor einiger Zeit mal was geschrieben...

    Spoiler anzeigen
    [autoit]

    #include <File.au3>

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

    MsgBox(0,"", "Bitte Dateien auswählen")

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

    $sPath = FileOpenDialog("Dateien auswählen", @ScriptDir, "All (*.*)", 5)
    If $sPath = "" Then
    MsgBox(16, "Fehler", "Du sollst Dateien auswählen!!!")
    Exit
    EndIf

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

    If StringInStr($sPath, "|") Then $sPath = StringSplit($sPath, "|", 2)

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

    $hFile = FileOpen(@ScriptDir & "\AutoIt FileInstall.au3", 2)

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

    $sString = ""
    If IsArray($sPath) Then
    For $i = 1 To UBound($sPath) -1
    $sString &= 'FileInstall("' & $sPath[0] & $sPath[$i] & '", @ScriptDir & "\' & $sPath[$i] & '", 1)' & @CRLF
    Next
    Else
    Local $szDrive, $szDir, $szName, $szExt
    _PathSplit($sPath, $szDrive, $szDir, $szName, $szExt)
    $sString = 'FileInstall("' & $sPath & '", @ScriptDir & "\' & $szName & $szExt & '", 1)' & @CRLF
    EndIf

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

    ClipPut($sString)

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

    MsgBox(0, "", "Beendet")

    [/autoit]

  • Text Ticker

    DFPWare Ich weiß, dass diese Include File überholt wurde. Wo liegt das Problem? Ich sorge nur dafür, dass Abwärtskompatibilität gewährleistet wird ;). Die Datei "GUIConstantsEx.au3" wird so oder so in meinem Script landen, da ist es egal ob ich nun "GUIConstants.au3" oder "GUIConstantsEx.au3" schreibe.