Korrektes Fehler abfangen

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Orion.

    Korrektes Fehler abfangen

    Guten Tag Zusammen,

    Ich habe hier ein Snippet aus meinem Programm welches eine Datei einliest welche zuvor angeklickt wurde und dann den Inhalt ins Programm lädt und in die gegebenen Felder abfüllt. Da habe ich noch nicht alles gemacht der Übersichtshalber aber bevor ich dies vervollständige möchte ich euch fragen wo und wie ich korrekt Fehler abfangen kann. Bei einem Testlauf habe ich immer Fehler mit dem Datumsformat darum würde ich dieses gerne abfangen und überspringen falls es zu einem Fehler kommt. Try-Catch ging nicht, weil die Variable nacher weiterverwendet wird oder bereits vorher genutzt wird...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Linq
    3. Imports System.Environment
    5. Public Class FormAutoComplete
    7. 'Dim Dateiliste() As String = System.IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Dokumente\Indexierung", "*.*", System.IO.SearchOption.TopDirectoryOnly)
    9. Public scrWidth As Integer = Screen.PrimaryScreen.Bounds.Width
    10. Public scrHeight As Integer = Screen.PrimaryScreen.Bounds.Height
    11. Public poswid As Integer = scrWidth \ 2
    12. Public poswidi As Integer = poswid - 467
    13. Public poshei As Integer = scrHeight \ 2
    14. Public _isbestkeyword As String = ""
    15. Public _iskeyword As Boolean
    16. Public woerterbuchS As New List(Of String)
    17. Public appData As String = GetFolderPath(SpecialFolder.ApplicationData)
    18. Public path As String = appData & "\Dokumente"
    20. Public Sub myForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    22. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    23. Me.ListBox1.Dock = DockStyle.Fill
    26. End Sub
    27. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    28. _isbestkeyword = Me.ListBox1.Items(Me.ListBox1.SelectedIndex)
    29. End Sub
    31. Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
    32. Get
    33. Return True
    34. End Get
    35. End Property
    36. Public i As Integer = 0
    37. Public Sub RefreshList(ByVal key As String)
    39. Dim Files = New System.IO.DirectoryInfo(path + "\Indexierung").GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
    41. While i <> 1
    42. woerterbuchS.AddRange(Files.Select(Function(f) f.Name).ToArray())
    43. i = i + 1
    44. End While
    46. Dim LA() As String
    48. LA = woerterbuchS.ToArray
    49. Dim all = LA.Length
    50. Me.ListBox1.Items.Clear()
    51. find_key_arg = key & "*"
    52. Dim t() As String
    54. t = Array.FindAll(LA, AddressOf find_key)
    55. If t.Count > 0 Then
    56. If key = "" Or t(t.Length - 1) = key Then
    57. _iskeyword = False
    58. Me.ListBox1.Items.Clear()
    59. Me.Hide()
    60. Else
    61. _iskeyword = True
    62. Me.ListBox1.Items.Clear()
    63. Me.ListBox1.Items.AddRange(t)
    64. Me.ListBox1.SelectedIndex = 0
    65. Me.Show()
    66. End If
    68. Else
    69. _iskeyword = False
    70. Me.Hide()
    71. End If
    72. End Sub
    73. Private Sub Main_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged
    74. Me.Location = New Point(Main.Location.X - Me.Width, Main.Location.Y)
    75. End Sub
    76. Private Sub listBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
    77. Try
    78. Dim ValCon As Date
    79. Dim ValCon2 As Date
    80. Dim Valcon3 As Date
    81. Dim reader = My.Computer.FileSystem.ReadAllText(path & "\Indexierung\" + IsBestKeyWord)
    82. Dim parts = reader.Split(";"c)
    83. Dim part12 = parts(40).ToString.Split(" "c)
    85. Dim tripple2 = part12(0).Split("."c)
    87. Main.RichTextBox1.Text = parts(0)
    88. Main.RichTextBox2.Text = parts(1)
    89. Main.RichTextBox3.Text = parts(2)
    90. Main.RichTextBox4.Text = parts(3)
    92. Dim part1 = parts(4).ToString.Split(" "c)
    93. Dim tripple = part1(0).Split("."c)
    94. Dim EndDate As String = tripple(0) + "/" + tripple(1) + "/" + tripple(2)
    96. ValCon = Date.ParseExact(EndDate, "dd/MM/yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
    98. Main.DateTimePicker2.Value = ValCon
    99. Main.RichTextBox5.Text = parts(5)
    100. Main.RichTextBox6.Text = parts(6)
    101. Main.RichTextBox7.Text = parts(7)
    102. Main.RichTextBox8.Text = parts(8)
    103. Main.TextBox9.Text = parts(9)
    104. Main.TextBox1.Text = parts(10)
    105. Main.ComboBox12.SelectedIndex = -1
    106. Main.ComboBox12.SelectedText = parts(14).ToString
    107. Main.TextBox10.Text = parts(15)
    108. Main.TextBox11.Text = parts(16)
    109. Main.RichTextBox9.Text = parts(17)
    110. If parts(18).ToString = "True" Then
    111. Main.CheckBox1.Checked = True
    112. Else
    113. End If
    114. If parts(19).ToString = "Frei" Then
    115. Main.RadioButton1.Select()
    116. Else
    117. Main.RadioButton2.Select()
    119. End If
    120. Main.RichTextBox13.Text = parts(20)
    121. Main.RichTextBox11.Text = parts(21)
    122. Main.TextBox4.Text = parts(22)
    123. Main.TextBox8.Text = parts(23)
    124. Main.TextBox2.Text = parts(24)
    125. Main.TextBox5.Text = parts(25)
    126. Main.TextBox6.Text = parts(26)
    127. Main.TextBox7.Text = parts(27)
    128. Main.TextBox3.Text = parts(28)
    129. Main.ComboBox21.SelectedIndex = -1
    130. Main.ComboBox21.SelectedText = parts(29).ToString
    131. Main.ComboBox16.SelectedIndex = -1
    132. Main.ComboBox16.SelectedText = parts(30).ToString
    133. Main.ComboBox20.SelectedIndex = -1
    134. Main.ComboBox20.SelectedText = parts(31).ToString
    135. Main.ComboBox7.SelectedIndex = -1
    136. Main.ComboBox7.SelectedText = parts(32).ToString
    137. Main.ComboBox9.SelectedIndex = -1
    138. Main.ComboBox9.SelectedText = parts(33).ToString
    139. Main.ComboBox15.SelectedIndex = -1
    140. Main.ComboBox15.SelectedText = parts(34).ToString
    141. Main.ComboBox22.SelectedIndex = -1
    142. Main.ComboBox22.SelectedText = parts(35).ToString
    143. Main.RichTextBox12.Text = parts(36)
    144. Main.RichTextBox10.Text = parts(37)
    145. Main.ComboBox4.SelectedIndex = -1
    146. Main.ComboBox4.SelectedText = parts(38).ToString
    147. Main.TextBox12.Text = parts(39)
    151. Dim EndDate2 As String = tripple2(0) + "/" + tripple2(1) + "/" + tripple2(2)
    152. ValCon2 = Date.ParseExact(EndDate2, "dd/MM/yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
    153. Main.DateTimePicker1.Value = ValCon2
    154. Main.RichTextBox14.Text = parts(41)
    155. Main.RichTextBox15.Text = parts(42)
    156. Main.RichTextBox16.Text = parts(43)
    157. Dim part13 = parts(44).ToString.Split(" "c)
    158. Dim tripple3 = part13(0).Split("."c)
    159. Dim EndDate3 As String = tripple3(0) + "/" + tripple3(1) + "/" + tripple3(2)
    160. Valcon3 = Date.ParseExact(EndDate3, "dd/MM/yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
    161. Main.DateTimePicker3.Value = Valcon3
    162. Main.ComboBox2.SelectedIndex = -1
    163. Main.ComboBox2.SelectedText = parts(45).ToString
    167. Catch Ex As Exception
    168. MsgBox("Fehler beim abfüllen der Daten")
    169. MsgBox(Ex.ToString)
    170. End Try
    172. End Sub
    174. Public ReadOnly Property IsKeyWord() As Boolean
    175. Get
    176. Return _iskeyword
    177. End Get
    178. End Property
    180. Public ReadOnly Property IsBestKeyWord() As String
    181. Get
    182. If _iskeyword = True Then
    183. Return _isbestkeyword
    184. Else
    185. Return ""
    186. End If
    187. End Get
    188. End Property
    189. Private find_key_arg As String
    190. Private Function find_key(ByVal s As String) As Boolean
    191. If s Like find_key_arg Then
    192. Return True
    193. Else
    194. Return False
    195. End If
    196. End Function
    198. Dim ValCon As Date
    199. Dim ValCon2 As Date
    200. Dim Valcon3 As Date
    201. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    202. Try
    203. Dim ValCon As Date
    204. Dim ValCon2 As Date
    205. Dim Valcon3 As Date
    206. Dim reader = My.Computer.FileSystem.ReadAllText(path & "\Indexierung\" + IsBestKeyWord)
    207. Dim parts = reader.Split(";"c)
    209. Main.RichTextBox1.Text = parts(0)
    210. Main.RichTextBox2.Text = parts(1)
    211. Main.RichTextBox3.Text = parts(2)
    212. Main.RichTextBox4.Text = parts(3)
    214. Dim part1 = parts(4).ToString.Split(" "c)
    215. Dim tripple = part1(0).Split("."c)
    216. Dim EndDate As String = tripple(0) + "/" + tripple(1) + "/" + tripple(2)
    218. ValCon = Date.ParseExact(EndDate, "dd/MM/yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
    220. Main.DateTimePicker2.Value = ValCon
    221. Main.RichTextBox5.Text = parts(5)
    222. Main.RichTextBox6.Text = parts(6)
    223. Main.RichTextBox7.Text = parts(7)
    224. Main.RichTextBox8.Text = parts(8)
    225. Main.TextBox9.Text = parts(9)
    226. Main.TextBox1.Text = parts(10)
    227. Main.ComboBox12.SelectedText = parts(14).ToString
    228. Main.TextBox10.Text = parts(15)
    229. Main.TextBox11.Text = parts(16)
    230. Main.RichTextBox9.Text = parts(17)
    231. If parts(18).ToString = "True" Then
    232. Main.CheckBox1.Checked = True
    233. Else
    234. End If
    235. If parts(19).ToString = "Frei" Then
    236. Main.RadioButton1.Select()
    237. Else
    238. Main.RadioButton2.Select()
    240. End If
    241. Main.RichTextBox13.Text = parts(20)
    242. Main.RichTextBox11.Text = parts(21)
    243. Main.TextBox4.Text = parts(22)
    244. Main.TextBox8.Text = parts(23)
    245. Main.TextBox2.Text = parts(24)
    246. Main.TextBox5.Text = parts(25)
    247. Main.TextBox6.Text = parts(26)
    248. Main.TextBox7.Text = parts(27)
    249. Main.TextBox3.Text = parts(28)
    250. Main.ComboBox21.SelectedIndex = -1
    251. Main.ComboBox21.SelectedText = parts(29).ToString
    252. Main.ComboBox16.SelectedIndex = -1
    253. Main.ComboBox16.SelectedText = parts(30).ToString
    254. Main.ComboBox20.SelectedIndex = -1
    255. Main.ComboBox20.SelectedText = parts(31).ToString
    256. Main.ComboBox7.SelectedIndex = -1
    257. Main.ComboBox7.SelectedText = parts(32).ToString
    258. Main.ComboBox9.SelectedIndex = -1
    259. Main.ComboBox9.SelectedText = parts(33).ToString
    260. Main.ComboBox15.SelectedIndex = -1
    261. Main.ComboBox15.SelectedText = parts(34).ToString
    262. Main.ComboBox22.SelectedIndex = -1
    263. Main.ComboBox22.SelectedText = parts(35).ToString
    264. Main.RichTextBox12.Text = parts(36)
    265. Main.RichTextBox10.Text = parts(37)
    266. Main.ComboBox4.SelectedIndex = -1
    267. Main.ComboBox4.SelectedText = parts(38).ToString
    268. Main.TextBox12.Text = parts(39)
    270. Dim part12 = parts(40).ToString.Split(" "c)
    271. Dim tripple2 = part12(0).Split("."c)
    272. Dim EndDate2 As String = tripple2(0) + "/" + tripple2(1) + "/" + tripple2(2)
    274. ValCon2 = Date.ParseExact(EndDate2, "dd/MM/yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
    275. Main.DateTimePicker1.Value = ValCon2
    276. Main.RichTextBox14.Text = parts(41)
    277. Main.RichTextBox15.Text = parts(42)
    278. Main.RichTextBox16.Text = parts(43)
    279. Dim part13 = parts(44).ToString.Split(" "c)
    280. Dim tripple3 = part13(0).Split("."c)
    281. Dim EndDate3 As String = tripple3(0) + "/" + tripple3(1) + "/" + tripple3(2)
    282. Valcon3 = Date.ParseExact(EndDate3, "dd/MM/yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
    283. Main.DateTimePicker3.Value = Valcon3
    284. Main.ComboBox2.SelectedIndex = -1
    285. Main.ComboBox2.SelectedText = parts(45).ToString
    287. Catch Ex As Exception
    288. MsgBox("Fehler beim abfüllen der Daten")
    289. MsgBox(Ex.ToString)
    290. End Try
    292. End Sub
    293. End Class
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Orion schrieb:

    habe ich immer Fehler mit dem Datumsformat
    in welcher Zeile Deines Programms?
    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!

    Orion schrieb:

    möchte ich euch fragen wo und wie ich korrekt Fehler abfangen kann
    Das kommt doch auf den Fehler an - welchen Fehler meinst du? (bitte mit Zeile und Fehlermeldung - Exceptions, und was sie uns sagen wollen)


    Orion schrieb:

    Try-Catch ging nicht,...
    aber sind doch TryCatchens drinne (Sogar ziemlich grausige).


    Generell gilt: Programmier halt so, dass keine Fehler auftreten.
    Etwa wenn du die Daten selbst schreibst, dann ist auch 100% sicher möglich, dass du die auch fehlerfrei wieder einlesen kannst.


    Übrigens: Du sitzt dem 3.Deppen-Feature von vb.net auf, indem du Main wie ein Objekt benutzst, obwohls ein Typ ist: Instanziierung von Forms und Aufruf von Dialogen

    Die Try-Catchs die jetzt drin sind hab ich nur um die Fehler zu finden im allgemeinen. Die geb ich mir am liebsten mit MsgBoxen aus weil der Eventlog voll ist mit nicht zugewiesenen Werten und so weiter. In Zeile 151 bekomm ich den ersten Fehler das der Index des Arraybereichs überschritten ist weil vermutlich irgendwo kein Wert eingegeben wurde aber diese Werte werden eben vom User schlussendlich eingegeben und sollen keine Pflichtfelder sein, darum muss das irgendwie übersprungen werden wenn der Wert nicht korrekt ist. Da man ein Formular ausfüllt und dann im Nachhinein der Kunde mit seinem Kunden das Formular bespricht und von Hand erweitert und so weiter.
    EDIT: Das mit dem Deppenfeature weiss ich... Das Programm ist ein altes Projekt und muss von mir nur angepasst werden innerhalb kürzester Zeit grosse Korrekturen passen da nicht rein. Zukünftige Programme und Codes sehen ganz sicher nicht so aus ^^
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    eventlog - was ist das, und was hast du damit zu schaffen?

    Mach die Trycatchens einfach weg, dann kriegst du auch vernünftige Fehlermeldungen.
    Und kannst dann auch ganz einfach und eindeutig Rods und meine Frage nach Fehlermeldung und Fehlerzeile beantworten.

    Zu Zeile#151: Also TryCatch wegmachen, und im Lokal-Fenster gucken, warum Triple2 nicht so viele Elemente hat, als wie du dachtest.
    Sowas wird hier gezeigt: VisualStudio richtig nutzen

    Orion schrieb:

    um die Fehler zu finden
    zu verschleiern.
    So findest Du gar nix.
    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!

    Ich weiss warum es nicht so viele Elemente hat wie es sollte. Es geht mir ja darum solche Fehler zu überspringen weil das Feld kein Pflichtfeld sein soll. Gibt es da nicht so eine Möglichkeit wie zum Beispiel mit If Abfragen den Wert auf Gültigkeit zu prüfen und dann zu ersetzen mit einem Leerschlag oder so ähnlich wenn das Feld ungültig ist?
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Orion schrieb:

    Es geht mir ja darum
    hier was zu lernen.
    Jou.
    Fang an und schmeiß zunächst alle Try / Catches raus. Dann kümmern wir uns um jeden einzelnen Fehler. :thumbup:
    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!

    Okay, hab dank eurer Hilfe schon alle Fehler behoben. Hatte nur wieder mal ein Brett vorm Kopf weil ich jetzt seit längerer Zeit nicht mehr(oder nur Java) programmiert hab. Aber wäre ja ganz einfach gewesen.
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)