Zitat:

Hat noch wer nen vorschlag?

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim strDatei As String = "i:\zuckerberg.txt"
        Dim strInhalt As String = DatenAuslesen(strDatei)
 
        TextBox1.Text = DatenAuswerten(strInhalt)
 
    End Sub
 
 
    Private Function DatenAuslesen(ByVal strDatei As String) As String
 
        If Not System.IO.File.Exists(strDatei) Then
            MessageBox.Show("Die Datei " & strDatei & " Gibt es nicht!")
            Exit Function
        End If
 
        Dim sr As New System.IO.StreamReader(strDatei)
        Dim strInhalt As String = sr.ReadToEnd
        sr.Close()
        Return strInhalt
 
    End Function
 
    Private Function DatenAuswerten(ByVal strInhalt As String) As String
 
        Dim strArr() As String = strInhalt.Split(",")
        Dim strZeile() As String
        Dim i As Integer
 
        For i = 0 To UBound(strArr) - 1
 
            If InStr(strArr(i), Chr(34) & "name" & Chr(34) & ":") Then
                strZeile = strArr(i).Split(":")
                Return (strZeile(1).Replace(Chr(34), ""))
                Exit Function
            End If
        Next
 
        Return ""
 
    End Function
 
 
End Class

EALA FREYA FRESENA