Imports System.Text.RegularExpressions
 
Public Class Class1
 
    Public Shared Sub Main()
        Console.WriteLine("Suchvorgang läuft...")
 
        Dim suchText As String = IO.File.ReadAllText("C:\MeineDaten.log")
        Dim suchMuster As New Regex("(?<=<anmenge>)\d*(?=</anmenge>)")
 
        Dim gesamtSumme As Integer
        Dim suchErgebnisse As MatchCollection = suchMuster.Matches(suchText)
 
        For Each suchErgebnis As Match In suchErgebnisse
            gesamtSumme += CInt(suchErgebnis.Value)
        Next
 
        Console.WriteLine("Summe:" & gesamtSumme.ToString)
        Console.ReadLine()
    End Sub
 
End Class

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co