Guten Morgen zusammen,
ich möchte eine ".log" Datei in meine From ziehen und diese dann einlesen.
Hier mein Code:
Das AllowDrop ist bereits auf True gesetzt.
Wo mache ich meinen Fehler?
Grüße SaMsOn
!!!!!!
Fehler gefunden!
Ich habe vergessen die Variable "filenames" als "filenames()" zu schreiben. Der Zweite Fehler ist durch die Automation von VB passiert. Es sollte nicht "e.Data.GetDataPresent(DataFormats.FileDrop)" sondern nur "e.Data.GetData(DataFormats.FileDrop)" heißen.
Für alle die sowas mal brauchen, hier der funktionierende Code...
Spoiler anzeigen
Und nicht vergessen...!
ich möchte eine ".log" Datei in meine From ziehen und diese dann einlesen.
Hier mein Code:
VB.NET-Quellcode
- Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
- Dim filenames As String
- Dim strFile As String
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- strFile = filenames(0)
- filenames = e.Data.GetDataPresent(DataFormats.FileDrop)
- Try
- Dim i As Integer = 0
- Dim c = File.ReadAllText(strFile, System.Text.Encoding.Latin1)
- contents = c.Split(vbCrLf)
- For Each t As String In contents
- Dim z As New Zeile
- z.num = i
- z.text = contents(i)
- KompletteDatei.Add(z)
- i += 1
- Next
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End If
- End Sub
Das AllowDrop ist bereits auf True gesetzt.
Wo mache ich meinen Fehler?
Grüße SaMsOn
!!!!!!
Fehler gefunden!
Ich habe vergessen die Variable "filenames" als "filenames()" zu schreiben. Der Zweite Fehler ist durch die Automation von VB passiert. Es sollte nicht "e.Data.GetDataPresent(DataFormats.FileDrop)" sondern nur "e.Data.GetData(DataFormats.FileDrop)" heißen.
Für alle die sowas mal brauchen, hier der funktionierende Code...
VB.NET-Quellcode
- Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
- Dim filenames() As String
- Dim strFile As String
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- filenames = e.Data.GetData(DataFormats.FileDrop)
- strFile = filenames(0)
- Try
- Dim i As Integer = 0
- Dim c = File.ReadAllText(strFile, System.Text.Encoding.Latin1)
- contents = c.Split(vbCrLf)
- For Each t As String In contents
- Dim z As New Zeile
- z.num = i
- z.text = contents(i)
- KompletteDatei.Add(z)
- i += 1
- Next
- FiltereArztzeilen()
- 'aListe...
- bListe = EntferneDubletten(aListe)
- 'bListe
- ExtrahiereLANR()
- 'cListe
- dListe = EntferneDubletten(cListe)
- 'dListe
- SchreibeErgebnis()
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End If
- End Sub
Und nicht vergessen...!
Nein! Doch! OHH!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „samson“ ()