Development VB.Net


            Imports System
Imports System.Text
Imports System.Text.RegularExpressions
Public Class MainClass
    
    Shared Sub Main()
             Dim string1 As String = _
              "04:03:27 127.0.0.0 www.rntsoft.com"
             ' time = one or more digits or colons
             ' followed by a space
             ' ip address = one or more digits or dots
             ' followed by space
             ' site = one or more characters
             Dim regString As String = "(?(\d|\:)+)\s" & _
             "(?(\d|\.)+)\s" & _
             "(?\S+)"
             Dim theReg As New Regex(regString)
             Dim theMatches As MatchCollection = theReg.Matches(string1)
             Dim theMatch As Match
             For Each theMatch In theMatches
                 If theMatch.Length <> 0 Then
                     Console.WriteLine( _
                         "theMatch: {0}", _
                         theMatch.ToString(  ))
                     Console.WriteLine( _
                         "time: {0}", _
                        theMatch.Groups("time"))
                     Console.WriteLine( _
                          "ip: {0}", _
                         theMatch.Groups("ip"))
                     Console.WriteLine( _
                          "site: {0}", _
                         theMatch.Groups("site"))
                 End If
             Next theMatch
   End Sub
End Class