Async abbrechen

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von Snaptu.

    Async abbrechen

    Moin Moin schon wieder...
    habe einen Async Task laufen, der wiederum Dateien kopiert.
    Wie breche ich einen Async Task ab?
    Habe bei MSDN folgende Zeile gefunden, jedoch funktioniert das so nicht...
    Problem ist meine Schleife, zumindest gehe ich davon aus...

    MSN Codezeile:

    VB.NET-Quellcode

    1. Me.BackgroundWorker1.CancelAsync()


    Meine Kopierfunktion:

    VB.NET-Quellcode

    1. Private Function FileCopy(ByVal file_source As String, ByVal file_destination As String) As String
    2. Try
    3. If File.Exists(file_destination) Then
    4. Return "Datei " & file_destination & " bereits vorhanden"
    5. Else
    7. If Directory.Exists(IO.Path.GetDirectoryName(file_destination)) Then
    8. File.Copy(file_source, file_destination, False)
    9. 'Return "Kopiert: " & IO.Path.GetFileName(file_source)
    10. Return "Kopiert: " & file_source
    11. Else
    12. Directory.CreateDirectory(IO.Path.GetDirectoryName(file_destination))
    13. File.Copy(file_source, file_destination, False)
    14. 'Return "Kopiert: " & IO.Path.GetFileName(file_source)
    15. Return "Kopiert: " & file_source
    16. End If
    17. End If
    18. Catch
    19. 'Return "Datei " & IO.Path.GetFileName(file_source) & " nicht gefunden"
    20. Return "Datei " & file_source & " nicht gefunden"
    21. End Try
    22. End Function


    Mein Button-Event mit Async:

    VB.NET-Quellcode

    1. Private Async Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    2. Button1.Enabled = False
    3. Button2.Enabled = False
    4. Button3.Visible = False
    5. Button4.Enabled = False
    6. DateiToolStripMenuItem.Enabled = False
    7. Button5.Visible = True
    8. For Each line In IO.File.ReadLines(OFD_source.FileName)
    9. If line.Contains("BRIEFE\") Then
    10. Dim line2 As String = CStr(line)
    11. Dim lastline As String = line2.Remove(0, line2.IndexOf("BRIEFE\"))
    12. Dim source2 As String = FBD_quelle.SelectedPath + "\" + lastline
    13. Dim destination2 As String = destination + "\" + lastline
    15. Dim return_copy As String = Await Task.Run(Function() FileCopy(source2, destination2))
    16. TextBox1.AppendText(return_copy & Environment.NewLine)
    17. status = status + 1
    18. End If
    19. Dim prozent As String = CStr(CInt(status / summe_verweise * 100.0))
    20. ProgressBar1.Value = CInt(status)
    21. lbl_von.Text = CStr(status)
    22. lbl_prozent.Text = prozent & " %"
    23. Me.Update()
    24. Next
    25. End Sub


    Wäre es ratsam hierfür die For Each Schleife in die Funktion zu setzen?

    Danke und Grüße,

    Stefan
    Nein! Doch! OHH!

    Du brauchst sowas hier

    VB.NET-Quellcode

    1. Public Cancel as Boolean = False
    2. 'mit einem Cancel Button stellst du auf True
    3. If Cancel then
    4. Dim Result As DialogResult
    5. Result = MessageBox.Show("Wollen sie wirklich abbrechen?", "Frage", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
    6. If Result = DialogResult.Yes Then
    7. Exit For
    8. End If
    9. End If


    Edit: mit User-Abfrage.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Snaptu“ ()

    samson schrieb:

    Geht das dann auch mit einer While Schleife?
    Tipp in solch einer Schleife ein Exit ein und sieh nach dem Leerzeichen, was die IDE Dir da anbietet:

    Das hättest Du experimentell wesentlich schneller rausbekommen. :D
    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!

    Nur um das ich es auch richtig verstanden habe... Snaptu sein Codefragment muss in die For Schleife... Korrekt?

    VB.NET-Quellcode

    1. If Cancel then
    2. Dim Result As DialogResult
    3. Result = MessageBox.Show("Wollen sie wirklich abbrechen?", "Frage", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
    4. If Result = DialogResult.Yes Then
    5. Exit For
    6. End If
    7. End If

    hab ich gemacht ;)
    Hat auch Funktioniert ;)
    Nuuuur... Wenn man auf "Nein" klickt, kommt die Meldung immer wieder erneut ;)
    Somit muss ich doch ebenfalls eine If Abfrage für DialogResult.No Then deklarieren mit Boolen False oder nicht?
    Nein! Doch! OHH!

    samson schrieb:

    Wenn man auf "Nein" klickt, kommt die Meldung immer wieder erneut
    Genau das macht der Code.
    Skizziere mal auf, wie sich Dein Code verhalten soll.
    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!

    Nur verzichte bitte bitte auf die Deppen-Messagebox.

    Ich denk immer, man denkt, ich sei voll-blöde, wenn eine Messagebox mich fragt, ob ich canceln möchte, wenn ich Cancel klickse.

    "Ja, was denkst du denn, warum ich Cancel klickse - etwa um einen Facebook-Account anzulegen?" :cursing:

    @ErfinderDesRades Ich hab es kurzerhand mit der Else Lösung gemacht.

    VB.NET-Quellcode

    1. cancel = false

    Damit kommt die Abfrage nur einmal.
    Ich muss gestehen, ich finde die Idee mit der Abfrage aber nicht so verkehrt, gerade was das Umkopieren der Daten angeht,...
    Ist mir persönlich schon passiert, (unter windoof), aus versehen weil ein Fenster auf und zu ging, genau den Abbrechen Button geklickt...
    Dumm gelaufen, eine Sicherheitsfrage wäre nicht schlecht gewesen :D
    Ich lass gerade einen Test laufen, bin gespannt was passiert, da ich den Kopiervorgang 2x unterbrochen hatte, wie sich die Progressbar verhält...
    Ob ich das dann resetten muss oder nicht...
    Wenn er die Pfaddatei von vorne anfängt, bekomm ich einen Überhang ;)
    Damit müsste ich ja den Kopiervorgang stoppen und alle Zähler auf 0 setzen :)
    Nein! Doch! OHH!

    samson schrieb:

    Damit müsste ich ja
    einen ordentlichen Plan machen, wie mein Programm ablaufen soll.
    Jou.
    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!

    @RodFromGermany ;) Den hab ich im Kopf :D
    Nein, ganz ehrlich, das Programm macht ja eigentlich nicht viel,...
    Es durchsucht eine Datei nach einem String, ist der Vorhanden, nimmt er den Pfad in der Zeile und kopiert dann die Datei von A nach B.
    Hat er das getan sucht er weiter in der Datei nach Pfaden :)
    Ablaufplan ist somit fast fertig.
    Nun ging es mir nur noch um das "saubere Abbrechen" des Vorgangs, man muss ja nicht immer mit aller gewalt auf das X oben rechts klicken ;)
    Nein! Doch! OHH!

    Wenn du die EDR-Aggressions Messagebox :D weglässt stellt sich die Frage des Else garnicht weil du kein DialogResult auswerten musst.
    Die Schleife läuft somit so lange bis du Cancel drückst.
    Dann genügt einfach

    VB.NET-Quellcode

    1. If Cancel then
    2. Exit For
    3. End If


    ausserhalb der For each setzt du wieder auf false
    Aber wie @RodFromGermany schon gesagt hat solltest du dir nen Plan machen also

    Schleife läuft
    Klick auf Cancel --> Aktion, Progressbar zurücksetzen
    keine Aktion --> Schleife läuft fertig
    Bei Fehler bei der abarbeitung --> Fehlermeldung
    usw,....
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    samson schrieb:

    Ich muss gestehen, ich finde die Idee mit der Abfrage aber nicht so verkehrt, gerade was das Umkopieren der Daten angeht,...
    Ist mir persönlich schon passiert, (unter windoof), aus versehen weil ein Fenster auf und zu ging, genau den Abbrechen Button geklickt...
    Dumm gelaufen, eine Sicherheitsfrage wäre nicht schlecht gewesen

    Ich weiß net.
    Also du hast da (offensichtlich) ein Fenster für einen umfangreichen Kopierauftrag.
    Dann startest du ihn, und daraufhin erscheint eine Progressbar, die langsam voll läuft, und ein Cancel-Button - beide vorher nicht zu sehen.

    Und dann gehen bei dir iwelche Fenster auf und zu, dass du vor Schreck auf den Cancel-Button klicksen musst?

    Also wenns so um dich bestellt ist, dann fürchte ich, wird auch eine "Sicherheitsfrage" keine zusätzliche Sicherheit bringen. ;)

    @ErfinderDesRades
    :D
    Nein, so schlimm ist es nicht... ich hab daheim nur 3 Monitore an meinem PC,.. ich war auf einem anderen Monitor was am arbeiten und der hat ne Meldung ausgegeben, bis ich mit dem Mauszeiger drüben war, ging die Meldung zu bevor ich geklickt hatte,... eine Sache von ein paar Millisekunden ;) Dummerweise war der OK Button genau über dem Abbrechenbutton von dem darunterliegenden Fenster ;) Demzufolge kam der Klick nicht bei dem Fenster an wo er hätte hin sollen :) Was solls... ist passiert ;)

    Aber mir ist gerade noch ein "Schönheitsfehler" aufgefallen...
    Wenn ich meine Pfaddatei geladen habe,... Liest er Async alle Pfade aus, damit ich eine Summe aller Daten habe,... (für den Progressbar)...
    Die ist unterschiedlich lang,... mal 3 digits mal 5 mal mehr...
    wie bekomm ich das hin, das die letzte Zahl immer am Ende des ProgressBar1 liegt?
    Danke und Grüße

    Nein! Doch! OHH!

    @Snaptu Jou.

    samson schrieb:

    macht ja eigentlich nicht viel
    Ich nehme an, die Betonung liegt auf eigentlich.
    Spätestens da solltest Du nen richtigen Plan entwerfen.
    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!

    ok ok, streichen wir das "eigentlich", es macht nicht viel... :D
    Hier mal der komplette Code :)
    Ich bitte um Beachtung, ich bin immernoch anfänger und lern mich noch ein :) wenn also optisch nicht alles in Ordnung ist und Ihr es ggf. anders gemacht hättet, bin ich für Verbesserungsvorschläge offen :)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.IO
    3. Imports System.Threading.Tasks
    5. Public Class Form1
    6. Dim cancel As Boolean = False
    7. Public source As String
    8. Public destination As String
    9. Public re_copy As String
    10. Public filename As String
    11. Public bdt_file As String
    12. Public lastline As String
    13. Public summe_verweise As Integer = 0
    14. Public status As Integer
    16. Private Function FileCopy(ByVal file_source As String, ByVal file_destination As String) As String
    17. Try
    18. If File.Exists(file_destination) Then
    19. Return "Datei " & file_destination & " bereits vorhanden"
    20. Else
    22. If Directory.Exists(IO.Path.GetDirectoryName(file_destination)) Then
    23. File.Copy(file_source, file_destination, False)
    24. 'Return "Kopiert: " & IO.Path.GetFileName(file_source)
    25. Return "Kopiert: " & file_source
    26. Else
    27. Directory.CreateDirectory(IO.Path.GetDirectoryName(file_destination))
    28. File.Copy(file_source, file_destination, False)
    29. 'Return "Kopiert: " & IO.Path.GetFileName(file_source)
    30. Return "Kopiert: " & file_source
    31. End If
    32. End If
    33. Catch
    34. 'Return "Datei " & IO.Path.GetFileName(file_source) & " nicht gefunden"
    35. Return "Datei " & file_source & " nicht gefunden"
    36. End Try
    37. End Function
    39. Private Function read_bdt(ByVal bdt_file As String) As String
    41. Try
    42. For Each line In IO.File.ReadLines(bdt_file)
    43. If line.Contains("BRIEFE\") Then
    44. summe_verweise = summe_verweise + 1
    45. End If
    46. Next
    47. Return CStr(summe_verweise)
    48. Catch
    49. Return CStr("Kann die BDT Datei (" & bdt_file & ") nicht verarbeiten!")
    50. End Try
    51. End Function
    53. Private Async Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    54. OFD_source.ShowDialog()
    55. If OFD_source.FileName = "" Then
    56. MsgBox("Keine BDT Datei ausgewählt")
    57. Else
    58. Label1.Text = "Analysiere BDT Datei..."
    59. Dim summe_files As String = Await Task.Run(Function() read_bdt(OFD_source.FileName))
    60. Label1.Text = summe_files
    61. lbl_summe.Text = summe_files
    62. ProgressBar1.Maximum = CInt(summe_files)
    63. End If
    64. End Sub
    66. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    67. FBD_destination.ShowDialog()
    68. Dim destination As String = FBD_destination.SelectedPath
    69. Label4.Text = destination
    70. End Sub
    72. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    73. FBD_quelle.ShowDialog()
    74. Dim source As String = FBD_quelle.SelectedPath
    75. Label6.Text = source
    76. End Sub
    78. Private Async Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    79. cancel = False
    80. Button1.Enabled = False
    81. Button2.Enabled = False
    82. Button3.Visible = False
    83. Button4.Enabled = False
    84. DateiToolStripMenuItem.Enabled = False
    85. Button5.Visible = True
    87. For Each line In IO.File.ReadLines(OFD_source.FileName)
    88. If cancel Then
    89. Dim Result As DialogResult
    90. Result = MessageBox.Show("Wollen sie wirklich abbrechen?", "Frage", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
    91. If Result = DialogResult.Yes Then
    92. ProgressBar1.Value = 0
    93. lbl_von.Text = CStr("0")
    94. lbl_prozent.Text = CStr("0")
    95. Exit For
    96. Else
    97. cancel = False
    98. End If
    99. End If
    100. If line.Contains("BRIEFE\") Then
    101. Dim line2 As String = CStr(line)
    102. Dim lastline As String = line2.Remove(0, line2.IndexOf("BRIEFE\"))
    103. Dim source2 As String = FBD_quelle.SelectedPath + "\" + lastline
    104. Dim destination2 As String = destination + "\" + lastline
    106. Dim return_copy As String = Await Task.Run(Function() FileCopy(source2, destination2))
    107. TextBox1.AppendText(return_copy & Environment.NewLine)
    108. status = status + 1
    109. End If
    110. Dim prozent As String = CStr(CInt(status / summe_verweise * 100.0))
    111. ProgressBar1.Value = CInt(status)
    112. lbl_von.Text = CStr(status)
    113. lbl_prozent.Text = prozent & " %"
    114. Me.Update()
    115. Next
    116. End Sub
    118. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    119. cancel = True
    120. Button1.Enabled = True
    121. Button2.Enabled = True
    122. Button3.Visible = True
    123. Button4.Enabled = True
    124. DateiToolStripMenuItem.Enabled = True
    125. Button5.Visible = False
    126. End Sub
    128. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    129. lbl_prozent.BackColor = Color.Transparent
    130. End Sub
    132. Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
    133. Application.Exit()
    134. End Sub
    136. Private Sub LogdateiSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogdateiSpeichernToolStripMenuItem.Click
    137. SaveFileDialog1.Filter = "txt(*.txt)| *.txt"
    138. SaveFileDialog1.ShowDialog()
    139. Try
    140. If SaveFileDialog1.FileName <> "Erfolgreich_kopiert.txt" Then
    141. FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
    142. PrintLine(1, TextBox1.Text)
    143. FileClose(1)
    144. End If
    145. Catch
    146. MsgBox("Datei wurde nicht gespeichert")
    147. End Try
    148. End Sub
    150. Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    151. AboutBox1.Show()
    152. End Sub
    153. End Class


    Der Button "Kopieren" liegt hinter dem Button "Kopieren stoppen" daher ist der 2. nicht sichtbar.
    Kopieren Stoppen wird als visible false geladen
    Bilder

    • Unbenannt.PNG

      10,67 kB, 482×607, 107 mal angesehen
    Nein! Doch! OHH!

    Also du hast einige Datentypen Probleme:

    Also der Schönheithalber gibt es einmal statt CStr -> .ToString und statt CInt -> Integer.Parse()

    Zeile 49 - Return CStr("Kann die BDT Datei (" & bdt_file & ") nicht verarbeiten!") -> Das ist alles String? wieso dann konvertieren? Return "Kann die BDT Datei" & bdt_file & "nicht verarbeiten!"
    Zeile 62 - ProgressBar1.Maximum = CInt(summe_files) -> Ist doch schon integer wieso dann konvertieren?
    Zeile 110 - Dim prozent As String = CStr(CInt(status / summe_verweise * 100.0)) -> Dim prozent As String = ((status / summe_verweise) * 100).ToString
    Zeile 93,94 - lbl_von.Text = CStr("0") - Is auch schon ein String? -> lbl_von.Text = "0"

    nur mal so als Beispiele...
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

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

    @Snaptu

    Zeile 49, hab ich vergessen zu ändern :saint:
    Zeile 93/94 hab ich ebenfalls vergessen :(

    Zeile 62, siehe Screenshot ;)

    Option Strict On möchte das nicht ^^
    aber geändert in ProgressBar1.Maximum = Integer.Parse(summe_files)

    Zeile 110 möchte Option Strict on ebenfalls nicht ;)
    geändert in Dim prozent As String = (status / summe_verweise * 100.0).ToString
    Nein! Doch! OHH!

Facebook
Telefonspende