Nr. 3 / fra venstre

Ja

Jeg skal også bruge en func. som udfra http://www.jensen.dk/hans_egne/fil2.html kan udtrække http://www.jensen.dk/hans_egne/

Okay, næste skridt: Kan det ordnes HER og kan det evt. skrives her :-) ?

mitzy17 >> http://www.jensen.dk/hans_egne/fil2.html => http://www.jensen.dk/



Private Function UrlSplit(ByRef UrlNewFile As String, ByRef UrlFilePath As String)
Dim UrlPos As Long
  If Left$(LCase(UrlNewFile), 7) = "http://" Then
    UrlNewFile = Right$(UrlNewFile, Len(UrlNewFile) - 7)
      ElseIf Left$(LCase(UrlNewFile), 6) = "ftp://" Then
    UrlNewFile = Right$(UrlNewFile, Len(UrlNewFile) - 6)
  End If
    UrlPos = InStr(1, UrlNewFile, "/")
  If UrlPos > 0 Then
    UrlFilePath = Right$(UrlNewFile, Len(UrlNewFile) - UrlPos + 1)
    UrlNewFile = Left$(UrlNewFile, UrlPos - 1)
  End If
End Function

Private Sub Command1_Click()
Dim UrlFilePath As String
Dim UrlNewFile As String
  UrlNewFile = "http://www.jensen.dk/hans_egne/fil2.html"
 
  Call UrlSplit(UrlNewFile, UrlFilePath)
 
  'UrlNewFile er nu www.jensen.dk
  'UrlFilePath er nu /hans_egne/fil2.html
 
  Me.Caption = UrlNewFile & UrlFilePath
End Sub

Lav en ny form med en label med navnet: Lbl
Et edit felt med navnet:TxtFelt
En knap med navnet StripDom
Dobbeltklik på StripDom knappen og skriv følgende kode:

Private Sub StripDom_Click()
Dom = InStr(8, TxtFelt, "/", 1)
MinStr = Left(TxtFelt, Dom)
Lbl = MinStr
End Sub

' http://www.jensen.dk/hans_egne/fil2.html => fil2.html

Private Sub Form_Load()
Dim strPath  As String
  strPath = "http://www.jensen.dk/hans_egne/fil2.html"
Me.Caption = Right(strPath, Len(strPath) - InStrRev(strPath, "/")) 'Return = fil2.html
End Sub

'InStrRev for vb4-vb5
Public Function InStrRev(StringCheck As String, StringMatch As String, _
                Optional Start As Long = -1, Optional Compare As _
                VbCompareMethod = vbBinaryCompare) As Long
Dim i As Long
  If Compare = vbTextCompare Then
    StringCheck = LCase(StringCheck)
    StringMatch = LCase(StringMatch)
  End If
If Start > -1 And Start > 0 Then StringCheck = Left(StringCheck, Start)
  For i = Len(StringCheck) To 1 Step -1
    If Mid(StringCheck, i, Len(StringMatch)) = StringMatch Then
      Exit For
    End If
  Next
InStrRev = i
End Function

sjh> Hvorfor så meget kode for en så enkelt funktion??

hvis du tinker på "InStrRev" så er det for de vb4-vb5 ikke har denne funktion.

Har udvidet koden lidt så den tager højde for meget korte domæne navne:

Lav en ny form med en label med navnet: Lbl
Et edit felt med navnet:TxtFelt
En knap med navnet StripDom

Dobbeltklik på StripDom knappen og skriv følgende kode:

Private Sub StripDom_Click()
If InStr(1, TxtFelt, "http", 1) = 1 Then
Dom = InStr(8, TxtFelt, "/", 1)
MinStr = Left(TxtFelt, Dom)
Else
Dom = InStr(1, TxtFelt, "/", 1)
MinStr = Left(TxtFelt, Dom)
End If
Lbl = MinStr
End Sub

Denne kode kaldes f.eks. fra en knap med:

strOut = StripStr("den streng der skal tjekkes")

Function StripStr(ByVal sStr As String) As String
    Dim i As Integer, j As Integer
   
    j = 0
    For i = 1 To Len(sStr)
        If Mid(sStr, i, 1) = "/" Then j = j + 1
        If j = 3 Then Exit For
    Next i
    If j < 3 Then
        MsgBox "Der er ikke 3 skråstreger i strengen."
        StripStr = "Fejl"
        Exit Function
    End If
    StripStr = Left(sStr, i)

End Function

Det er meget fint, men jeg mangler:

http://www.jensen.dk/filer/hans/menneske.exe
=>
http://www.jensen.dk/filer/hans/

MiTZY :-)

Hvis du i en knap skriver:

Private Sub Command1_Click()
    Dim strPath As String, strOut As String

    strPath = "http://www.jensen.dk/hans_egne/fil2.html"
    strOut = StripStr(strPath)

End Sub

Så vil strOut indeholde "http://www.jensen.dk/"

/tjacob

Du skal naturligvis derudover have funtionen StripStr liggende enten i formen eller i et modul.    ;-)tjacob

Det er meget fint altsammen, og I har alle gjort et godt stykke arbejde. På'en igen:

http://www.jensen.dk/filer/hans/menneske.exe
=>
http://www.jensen.dk/filer/hans/

MiTZY :-)

Den "strip" du lige beskriver indeholder jo 4 "/".
så ændrer du blot koden i funktionen StripStr til:
  If j = 3 Then Exit For
denne linie ændres til if j = 4 osv.

Men hvis du vil lave en funktion, hvor du frit kan vælge hvor mange "/" du vil acceptere, så skal funktionen se sådan ud:

Function StripStr(ByVal sStr As String, ByVal Num as Integer) As String
    Dim i As Integer, j As Integer
   
    j = 0
    For i = 1 To Len(sStr)
        If Mid(sStr, i, 1) = "/" Then j = j + 1
        If j = Num Then Exit For
    Next i
    If j < Num Then
        MsgBox "Der er ikke " & Num & " skråstreger i strengen."
        StripStr = "Fejl"
        Exit Function
    End If
    StripStr = Left(sStr, i)

End Function

Funktionen kaldes så med:

  strPath = "http://www.jensen.dk/hans/menneske.exe"
      strOut = StripStr(strPath, 4)  'hvis der skal være 4 "/"

/tjacob

tjacob > Ja, men hvordan finder man ud af hvor mange / der er i en string?!?!?!?!

Tja, du kunne bruge en modificeret udgave af StripStr:

Function StripStr(ByVal sStr As String) As Integer
    Dim i As Integer, j As Integer
   
    j = 0
    For i = 1 To Len(sStr)
        If Mid(sStr, i, 1) = "/" Then j = j + 1
    Next i
    StripStr = j

End Function

Vil returnere antal "/" i en streng:

strPath = "http://www.jensen.dk/hans/menneske.exe"
      strOut = StripStr(strPath, 4)  'hvis der skal være 4 "/"

Hov, det gik lige hurtigt nok

    strPath = "http://www.jensen.dk/hans/menneske.exe"
    NumOut = StripStr(strPath) 

NumOut vil indeholde antallet af "/"

/tjacob

>>mitzy17
Jeg skal i byen nu (og drikke mig selv hammerlam), men jeg vil tjekke igen i morgen, og svare (så godt jeg kan). OK?

/tjacob

>>mitzy17
Kontakt mig venligst på respons@webkurs.dk ang. en gevinst.

Public Function FunkStreg(Tekst)
    Dim I, J, K, Lgd As Long
    J = 1
    Lgd = Len(Tekst)
    For I = 1 To 3
        K = InStr(J, Tekst, "/")
        J = K + 1
    Next
    FunkStreg = Left(Tekst, K)
End Function