| |
VB.NET - Ein- und UmsteigerRe: Datei auf Inhalt überprüfen | | | Autor: FormFollowsFunction | Datum: 05.09.17 02:54 |
| Hallo Leberkas
Ich denke , mit "Format" ist der Inhalt gemeint, denn das Format ist hier Textfile (.txt).
Zu deinem code oben, zwei Anmerkungen.
Zum einen; Finger weg von Try Catch, es sei denn, es ist an der stelle nicht vermeidbar und du weist was du tust.
Exeptions sind dafür da fehler aufzuzeigen, wenn du sie unterdrückst, bekommst du früher, oder spähter Probleme.
Gut gecodet wirft keine Exeptions!
Zum anderen; Vermeide den My Namespace, das ist olles kompatiblitätsgerümpell aus vb6 Zeiten.
Am besten schmeist du den Namespase gleich ganz aus dem (allen) Projekt(en)
@ Manfred X
Es ist nicht sinnvoll, alles in eine Methode zu stopfen, das ist wenig flexibel.
Ich versuche Methoden immer möglicht nativ zu gestallten, in etwa so:
Private Sub VerifyFile(ByVal targetFile As String)
If FileExist(targetFile) Then
If Not FileEmty(targetFile) Then
Dim Lines As List(Of String) = ReadFile(targetFile, _
System.Text.Encoding.UTF8, True)
If Lines(0).Contains("otto") AndAlso Lines.Last.Contains("end") _
Then
' Do something
Else
If MessageBox.Show("Invalid file.", "Error", _
MessageBoxButtons.OK) = Windows.Forms.DialogResult.Yes _
Then
Application.Exit()
End If
End If
Else
If MessageBox.Show("File is empty.", "Error", _
MessageBoxButtons.OK) = Windows.Forms.DialogResult.Yes Then
Application.Exit()
End If
End If
Else
If MessageBox.Show("File don't exist.", "Error", _
MessageBoxButtons.OK) = Windows.Forms.DialogResult.Yes Then
Application.Exit()
End If
End If
End Sub
Private Function FileExist(ByVal filePath As String) As Boolean
Return IO.File.Exists(filePath)
End Function
Private Function FileEmty(ByVal filePath As String) As Boolean
Dim fi As IO.FileInfo = New IO.FileInfo(filePath)
If fi.Length = 0 Then
Return True
Else
Return False
End If
End Function
Private Function ReadFile(ByVal filePath As String, ByVal encoding As _
System.Text.Encoding, ByVal detectEncoding As Boolean) As List(Of String)
Return IO.File.ReadAllLines(filePath).ToList
End Function
Private Function Verify(ByVal value As String, ByVal searchPattern As _
String) As Boolean
Return value.Contains(searchPattern)
End Function VerifyFile kann jetz natürlich auch ganz anders aussehen, der Rest kann aber unangetastet bleiben.
z.B kann man die Liste auch global iniziieren und dann belibig weiter verwursten.
Dim gruß As New Gruß("Mit freundlichen Grüßen, FormFollowsFunction :) ")
gruß.Schow() https://msdn.microsoft.com/de-de/library <- Mal rein schauen! ;)
Beitrag wurde zuletzt am 05.09.17 um 02:57:41 editiert. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|