Editor aus VB öffnen und string reinschreiben

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von greece57.

    Editor aus VB öffnen und string reinschreiben

    Hallo @ all :)
    Ich habe ein Frage - wen wunderts^^

    ich möchte von meinem Programm aus eine Liste von Fehlern ausgeben.
    Wenn ich das in einer MsgBox mache habe ich das Problem, dass der Benutzer später das ganze sich nicht rauskopieren kann falls er z.B. später in einem Txtdokument nach einer Fehlerhaften ID suchen will.
    Jetzt möchte ich das ganze so lösen, dass ich eine MsgBox mit dem Errorstring ausgeben und am Ende der MsgBox frage ob der User die Errorliste nochmal im Notepad angezeigt haben will (damit er sie rauskopieren kann)
    Falls der User ja andrückt soll sich eine neue (noch nirgendwo abgespeicherte (er wird den quatsch meistens nicht speichern wollen sonder nur für Copy-Paste verwenden wollen)) Txtdatei im Editor öffnen.
    Ist es verständlich was ich meine?

    Wie ich das mit der Ja/Nein MsgBox mache schaff ich :) Nur das mit dem Editor macht mir Probleme..

    Falls jmd eine bessere Lösung hat nur her damit! :)

    Grüße und danke im Vorraus
    Niko

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „greece57“ ()

    Du könntest doch die Fehlerausgabe in eine Datei schreiben, welche im Temp-Ordner erstellt wird, diese dann im Editor öffnen lassen und nachdem der Benutzer Notepad geschlossen hat die Datei löschen.

    Beispiel:

    VB.NET-Quellcode

    1. Sub test()
    3. Dim t As String, t2 As String, tmp As String
    4. Dim x As Long
    6. t = "***** Fehler Fehler Fehler Fehler Fehler Fehler Fehler *****"
    7. t2 = vbCrLf + vbCrLf + "--- Fehlermeldung in Notepad anzeigen? ---"
    8. tmp = "c:\greeze.txt"
    10. x = MsgBox(t + t2, vbYesNo + vbInformation, "Info")
    11. If x = vbYes Then
    12. Open tmp For Output As #1
    13. Print #1, t
    14. Close
    15. Shell ("notepad.exe " + tmp)
    16. Kill tmp
    17. Else
    18. MsgBox ("Nein gedrückt")
    19. End If
    22. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Eierlein“ ()

    Ich weiß nicht mehr aber hab das glaub ich entweder vb-archiv oder hier gefunden...
    Also das sendet dann deinen Fehler an ein Editor:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As IntPtr) As Integer
    4. Private Declare Function GetForegroundWindow Lib "user32" () As Integer
    5. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
    6. Private Const WM_SETFOCUS As Int32 = &H7
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Process.Start("Notepad.exe")
    10. End Sub
    12. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    13. Dim p As Process = Process.GetProcessesByName("Notepad")(0)
    14. Clipboard.SetText(Me.TextBox1.Text)
    15. Me.Text = "in den vordergrundbringen"
    16. SetForegroundWindowEx(p.MainWindowHandle)
    17. Me.Text = "text senden"
    18. SendKeys.SendWait("^v")
    19. End Sub
    21. 'quelle: http://www.microsoft.com/germany/msdn/library/visualtools/vb6/FensterInDenDesktopVordergrundBringen.mspx?mfr=true
    22. ' Verwenden Sie die Funktion SetForegroundWindowEx statt der
    23. ' API Funktion SetForegroundWindow ausschließlich, wenn das
    24. ' betroffene Fenster tatsächlich in den Vordergrund gebracht
    25. ' werden muss.
    26. Private Function SetForegroundWindowEx(ByVal hWndWindow As Long) As Boolean
    27. ' Dient dem Setzen des Vordergrundfensters mit der Funktion
    28. ' SetForegroundWindow, die sich unter neueren Windows-Versionen
    29. ' anders verhält als unter Windows 95 und Windows NT 4.0.
    30. ' Der Rückgabewert ist True, wenn das Fenster erfolgreich in den
    31. ' Vordergrund gebracht werden konnte.
    32. Dim lThreadForeWin As Long ' Thread-ID für das aktuelle Vordergrundfenster
    33. Dim lThreadWindow As Long ' Thread-ID für das in hWndWindow spezifizierte
    34. ' Fenster, das in den Vordergrund des Desktops
    35. ' gebracht werden soll.
    36. ' Falls das Fenster dem gleichen Thread wie das aktuelle
    37. ' Vordergrundfenster angehört, ist kein Workaround erforderlich:
    38. lThreadWindow = GetWindowThreadProcessId(hWndWindow, 0)
    39. lThreadForeWin = GetWindowThreadProcessId(GetForegroundWindow(), 0)
    40. If lThreadWindow = lThreadForeWin Then
    41. ' Vordergrundfenster und zu aktivierendes Fenster gehören zum
    42. ' gleichen Thread. SteForegroundWindow allein reicht aus:
    43. SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
    44. Else
    45. ' Das Vordergrundfenster gehört zu einem anderen Thread als das
    46. ' Fenster, das neues Vordergrundfenster werden soll. Mittels
    47. ' AttachThreadInput erhaten wir kurzzeitig Zugriff auf die
    48. ' Eingabeverarbeitung des Threads des Vordergrundfensters,
    49. ' so dass SetForegroundWindow wie erwartet arbeitet:
    50. SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
    51. End If
    52. End Function
    53. End Class


    Ich habs also so verstanden ^^+

    Ich hab jetzt mal selber n bissl was probiert:

    VB.NET-Quellcode

    1. Shared Sub OpenStringInNotepad(Message As String)
    3. Dim p As New Process()
    5. p.StartInfo.RedirectStandardInput = True
    6. p.StartInfo.FileName = "Notepad.exe"
    7. p.StartInfo.UseShellExecute = False
    8. p.Start()
    10. p.StandardInput.AutoFlush = True
    11. For Each line As String In Message.Split(vbNewLine)
    12. p.StandardInput.WriteLine(line)
    13. 'p.StandardInput.Flush() - braucht man doch bei autoflush eig nicht oder?
    14. Next
    16. p.StandardInput.Close()
    18. End Sub


    Wäre das an sich ein Ansatz?
    Es funktioniert leider nicht - die Methode läuft zwar durch aber leider schreibt er nix rein :(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „greece57“ ()

    Also ich habs jetzt Eierleins u. DeltaForce's Schema gemacht.
    Allerdings wusst ich nicht wie ich die Datei löschen soll wenn der User das Notepad geschlossen hat - das müsst ich dann ja in nem sepperaten Thread laufen lassen oder?

    VB.NET-Quellcode

    1. Shared Sub OpenStringInNotepad(Message As String)
    3. Dim p As New Process()
    5. Dim t As String, tmp As String
    7. t = Message
    8. tmp = "C:\Temp\___ErrorMessage.txt"
    10. My.Computer.FileSystem.WriteAllText(tmp, Message, False)
    12. p = Process.Start("notepad.exe", tmp)
    14. 'Weil sonst notepad noch nicht offen ist, bis notepad offen ist
    15. System.Threading.Thread.Sleep(500)
    17. Kill(tmp)
    19. End Sub


    Ist halt nicht totensicher die Methode, da wenn der PC es nicht schafft innerhalb von na halben Sekunde das Notepad mit der Datei zu öffnen die Message verloren ist.
    Jmd ne Idee wie ich das umgehen könnte? :/

    Und ich versteh nicht wieso das mit den Streams nicht funktioniert hat
    Kann mir das jmd erklären ?(

    Aber sonst danke für eure Hilfe! :)
    Gruß
    Niko

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „greece57“ ()

    erneut die frage, mit welchem Visual Basic PRogrammierst du?

    Visual Basic 2006 (/2005) oder VB.NET
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    In VB.NET! Sry dass ichs ausversehen falsch angegeben hatte!

    Hab übrigens jetzt auch das Problem mit dem Timer umgangen:

    VB.NET-Quellcode

    1. Public Class ToolsForms
    3. Shared WithEvents BGW As New System.ComponentModel.BackgroundWorker
    5. Shared Sub OpenStringInNotepad(Message As String)
    6. BGW.RunWorkerAsync(Message)
    7. End Sub
    9. Private Shared Sub BGW_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGW.DoWork
    10. Dim p As New Process()
    12. Dim t As String, tmp As String
    14. t = e.Argument
    15. tmp = "C:\Temp\___ErrorMessage.txt"
    17. My.Computer.FileSystem.WriteAllText(tmp, e.Argument, False)
    19. p = Process.Start("notepad.exe", tmp)
    21. While Not p.HasExited
    22. Application.DoEvents()
    23. End While
    25. Kill(tmp)
    26. End Sub
    28. End Class


    Warum die Inputstreams nicht funktioniert haben versteh ich allerdings immer noch nicht

    @greece57: Es ist nicht nötig, wegen der Notepad-Anzeige einen BWG zu bemühen.
    Wenn sich das Notepad im InputIdle befindet, kann das File unten drunter gelöscht werden. :D
    Und er fragt beim Schließen nicht mal nach.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Mit 'SCHELL' funktioniert auch das löschen.

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    5. Dim t As String, tmp As String
    7. t = "***** Fehler Fehler Fehler Fehler Fehler Fehler Fehler *****"
    8. tmp = "d:\##\___ErrorMessage.txt"
    10. My.Computer.FileSystem.WriteAllText(tmp, t, False)
    12. Shell("notepad.exe " & tmp)
    14. Kill(tmp)
    15. End Sub
    17. End Module

    @ErfinderDesRades:
    Ou danke^^ Das wusst ich echt nicht 8|

    @RodFromGermany:
    Na toll xD Egal jetzt is auch schön :D

    @Eierlein:
    Was mich an der Shell Methode die ich anfangs auch hatte gestört hat, war dass Notepad oft im Hintergrund war und nicht nach vorne gepoppt ist ;)

    @greece57
    Was mich an der Shell Methode die ich anfangs auch hatte gestört hat, war dass Notepad oft im Hintergrund war und nicht nach vorne gepoppt ist


    Mit einer kleinen Änderung sollte es klappen:

    VB.NET-Quellcode

    1. ...
    2. Shell("notepad.exe " & tmp, 1)
    3. ...


    @FuFu^^
    Shell ist veraltet.


    Dann zeig' doch ein funktionierendes Beispiel mit Process.Start.

    einfach keine beschissenen VB6-HurrDurr-Clusterfuck-Methoden verwenden!


    Kill() ?( Wer benutzt so eine *#'§$%?! Nehmt System.IO :!:

    VB.NET-Quellcode

    1. Dim t As String, tmp As String
    3. t = "***** Fehler Fehler Fehler Fehler Fehler Fehler Fehler *****"
    4. tmp = "d:\___ErrorMessage.txt"
    6. System.IO.File.WriteAllText(tmp, t)
    8. Dim prcInfo As New ProcessStartInfo
    9. prcInfo.Arguments = Chr(34) & tmp & Chr(34)
    10. prcInfo.FileName = "notepad.exe"
    11. Process.Start(prcInfo)
    13. Threading.Thread.Sleep(300)
    15. System.IO.File.Delete(tmp)


    übrigens ginge es noch einfacher: mit

    VB.NET-Quellcode

    1. Process.Start(tmp)
    wird die Textdatei einfach mit dem Programm geöffnet, mit dem die Dateiendung verknüpft ist. Das ist auf fast allen Windowssystemen Notepad.