Texte anzeigen lassen

  • Hey ;)

    Ich habe eine Frage, wo ich bis jez keine Antwort drauf finden konnte.
    Ich wollte ein Textdokument öffnen lassen.
    aber nicht mit FileOpen sondern so, dass er wirklich sichtbar wird.
    Ich hab es mit MsgBoxen zu ersetzen versucht, jedoch wirkt das etwas mies.
    Weiß jemand wie man soetwas bewerkstellen kann?

    lg zwockel :* :rock:

  • meinte es anders.
    Nicht das es in einer Variable gespeichert wird.
    Mehr so als wuerde man n doppelklick auf die Datei gemacht haben.
    das sich die Datei in nem eigenen Fenster oeffnet ;)

  • Beispiel:

    [autoit]


    ;===============================================================================
    ; Requirement(s): keine
    ; Return Value(s): bei Erfolg: 1
    ; bei Fehler: 0 und @error = 1
    ;===============================================================================

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

    $sFileType = ".abc" ; Dateierweiterung
    $sDescription = "Tool" ; Beschreibung für die Datei
    $sAppName = "" ; Anwendung für die Registriert werden
    ; soll, wird keine Anwendung angegeben
    ; wird die aktuelle Anwendung eingetragen

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

    _RegisterFileType($sFileType, $sDescription, $sAppName)

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

    Func _RegisterFileType($sFileType, $sDescription, $sAppName = "")
    Dim $sTypeName

    If $sFileType = "" Or $sDescription = "" Then
    SetError(1)
    Return 0
    EndIf

    If $sAppName = "" Then $sAppName = @ScriptFullPath

    $sFileType = StringLower($sFileType)

    If StringLeft($sFileType,1) <> "." Then
    $sTypeName = $sFileType
    $sFileType = "." & $sFileType
    Else
    $sTypeName = StringRight($sFileType, StringLen($sFileType) -1)
    EndIf

    $sTypeName = $sTypeName & "-Datei"

    RegWrite("HKEY_CLASSES_ROOT\" & $sFileType, "", "REG_SZ", $sTypeName)
    RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName, "", "REG_SZ", $sDescription)
    RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName & "\shell\open\command", "", "REG_SZ", $sAppName & " %1")
    RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName & "\DefaultIcon", "", "REG_SZ", $sAppName & ",0")

    SetError(0)
    Return 1
    EndFunc

    [/autoit]
  • Suchst du nicht einfach

    [autoit]

    Shellexecute(@Scriptdir&"\Text.txt")

    [/autoit]

    Somit wird die Textdatei mit dem Standardtexteditor geöffnet ;)

    Lg, Fabian