'Funktion für die Meldeparameter auslesen
    Public Function Para_auslesen()
        Dim myStreamReader As IO.StreamReader
        Dim Einzelzeile As String
        Dim TextNachGleichheitszeichen As String
        Dim TextVorGleichheitszeichen As String
 
        myStreamReader = New StreamReader(strMeldedatei, _
          System.Text.Encoding.Default, True)
 
        Do Until myStreamReader.EndOfStream
            Einzelzeile = myStreamReader.ReadLine
 
            Dim Position As Integer = Einzelzeile.IndexOf("=")
            If Position >= 0 Then
                TextVorGleichheitszeichen = Einzelzeile.Substring(0, Position)
                TextNachGleichheitszeichen = Einzelzeile.Substring(Position + 1)
            Else
                TextVorGleichheitszeichen = Einzelzeile
                TextNachGleichheitszeichen = String.Empty
            End If
 
            Select Case TextVorGleichheitszeichen
                Case "DB_SERVER"
                    db_server = TextNachGleichheitszeichen
                Case "DB_USER"
                    db_user = TextNachGleichheitszeichen
                Case "DB_PassWORT"
                    db_passwort = TextNachGleichheitszeichen
                Case "DB_DATENBANK"
                    db_Datenbank = TextNachGleichheitszeichen
                Case "MSG_VERTEILER"
                    MSG_VERTEILER = TextNachGleichheitszeichen
                Case "MSG_MELDEART"
                    MSG_MELDEART = TextNachGleichheitszeichen
                Case "MSG_NACHRICHT"
                    MSG_NACHRICHT = TextNachGleichheitszeichen
                Case "MSG_ID"
                    MSG_ID = TextNachGleichheitszeichen
 
            End Select
        Loop
        myStreamReader.Close()
 
 
        strMeldeTxt = MSG_NACHRICHT
 
        'aktuelles Datum und die Uhrzeit ermitteln
        strDate = DateTime.Now.ToString
        'Ausgabetext zusammenfügen aus Datum und eingelesenem Text aus der TXT
        sAnimatedText = "                     ****" & strDate & "****         " _
          & strMeldeTxt
 
        Return sAnimatedText
        Return db_server
        Return db_user
        Return db_passwort
        Return db_Datenbank
        Return MSG_VERTEILER
        Return MSG_MELDEART
        Return MSG_NACHRICHT
        Return MSG_ID
 
 
 
    End Function

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET