regularExpressions i forbindelse med url

Imports System
Imports System.Text.RegularExpressions

Class MainClass

    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(FirstPart("http://www.eksperten.dk/spg124/infoting/lala/"))
    End Sub

    Public Shared Function FirstPart(ByVal s As String) As String
        FirstPart = Regex.Matches(s, "(http://www.[^/]*/)")(0).Groups(1).Value
    End Function
End Class

streng = replace("dinurl","http://","")
nystreng = split(streng,"/")
streng = "http://" + nystreng(0)

Kan du også lave to regex mere, jeg skal bruge et der fjerner http://www. og et der fjerner www. fra url

2 minutter

Imports System
Imports System.Text.RegularExpressions

Class MainClass

    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(FirstPart("http://www.eksperten.dk/spg124/infoting/lala/"))
        Console.WriteLine(Domain("http://www.eksperten.dk/spg124/infoting/lala/"))
        Console.WriteLine(NoWww("http://www.eksperten.dk/spg124/infoting/lala/"))
    End Sub

    Public Shared Function FirstPart(ByVal s As String) As String
        FirstPart = Regex.Matches(s, "(http://www.[^/]*/)")(0).Groups(1).Value
    End Function

    Public Shared Function Domain(ByVal s As String) As String
        Domain = Regex.Matches(s, "(?:http://www.)([^/]*)")(0).Groups(1).Value
    End Function

    Public Shared Function NoWww(ByVal s As String) As String
        Dim m As Match = Regex.Matches(s, "(http://)(?:www.)([^/]*/)")(0)
        NoWWW = m.Groups(1).Value & m.Groups(2).Value
    End Function
End Class

giver

http://www.eksperten.dk/
eksperten.dk
http://eksperten.dk/

kan ikke rigtigt få det til at virke, følgende gir det jeg havde før fra starten:

goUrl2 = System.Text.RegularExpressions.Regex.Match(goUrl1, "(http://)(?:www.)([^/]*)").ToString()

gourl1 = http://www.eksperten.dk

jeg får returneret det samme gourl2 = http://www.eksperten.dk

Ja.

Men du bruger heller ikke den regex på samme måde som jeg gør.

ToString tager det hele jeg fisker gruppe 1 og 2 ud.

goUrl2 = System.Text.RegularExpressions.Regex.Match(goUrl1, "(http://)(?:www.)([^/]*)").Groups(1).Value + System.Text.RegularExpressions.Regex.Match(goUrl1, "(http://)(?:www.)([^/]*)").Groups(2).Value;

vil muligvis virke

det fjernede kun www, den skal fjerne http://www. hvis der står det og den skal fjerne www. hvis der står det foran stringen

Så er det jo den forkerte regex du bruger.

Tag den oppe i min Domain function.

goUrl2 = System.Text.RegularExpressions.Regex.Match(goUrl1, "(?:http://www.)([^/]*)").Groups(1).Value

går ud fra jeg bruger den forkert har følgende:

url2 = System.Text.RegularExpressions.Regex.Match(url, "http://www.\S+.\S+(?=/)").ToString()
         
nu får jeg http:// og det var jo ikke meningen

undskyld det var den forkerte jeg kopirede her er den: 

goUrl2 = System.Text.RegularExpressions.Regex.Match(goUrl1, "(http://)(?:www.)([^/]*)").Groups(1).Value + System.Text.RegularExpressions.Regex.Match(goUrl1, "(?:http://www.)([^/]*)").Groups(2).Value