Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Noch eine Frage - Stringverstümmelung

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Noch eine Frage - Stringverstümmelung
26.02.2006 10:01:25
Ramses
Hallo
probier mal
Option Explicit

Sub Test()
    MsgBox myStrRev("http://www.ggg.de/ghak.html")
End Sub

Function myStrRev(toRevStr As String) As String
    myStrRev = Left(toRevStr, InStrRev(toRevStr, "/", -1))
End Function

Gruss Rainer
Anzeige
Stringverstümmelung 2. Möglichkeit
26.02.2006 11:31:36
Daniel
Hallo,
es kommt jetzt darauf an, wie dein Ergebnis aussehen soll, wenn mehrere Slashs vorkommen sollten:
Eingabestring: "http://xxxxx.xx/yyy/zzz"
Ergebnis Var1: "http;//xxxxx.xx/yyy"
Ergebnis Var2: "http://xxxxx.xx"
Wenn du Ergebnis Variante 1 haben möchtest, nimmst du die Lösung von Ramses, wenn du Ergebnis Variante 2 bevorzugst, nimmst du folgenden Code, der den den String vor dem 1. Slash nach dem Doppel-Slash abschneidet

Function URL_kürzen(EING As String) As String
Dim Pos As Long
Pos = InStr(InStr(EING, "//") + 2, EING, "/") - 1
If Pos < 1 Then Pos = Len(EING)
URL_kürzen = Left(EING, Pos)
End Function

Sollte kein Släsh im String vorkommen, wird der komplette Eingabestring zurückgegeben.
Gruß, Daniel
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige