StringBetween Funktion

slice · 30. Mai 2010, 18:59

StringBetween - Wert zwischen zwei vorgegeben Strings aus einer Quelle herrausfiltern

da ich ziemlich oft den Wert zwischen zwei Strings raussuch und über google nur eine brauchbar funktion gefunden hatte welche mich aber nicht sonderlich überzeugte schrieb ich mir ne eigene

VB.NET-Quellcode

Public Function StringBetween(ByVal quelle As String, ByVal anfang As String, ByVal ende As String)
Dim teil1() As String = Split(quelle, anfang)
If UBound(teil1) > 0 Then
Dim teil2() As String = Split(teil1(1), ende)
If UBound(teil2) > 0 Then
Return teil2(0)
Else
Return -2
End If
Else
Return -1
End If
End Function

Nutzung:

VB.NET-Quellcode

MsgBox(StringBetween("das ist ein test", "das ", " test"))

würde "ist ein" ausgeben ...

sollte der erste ausdruck "das " nicht gefunden werden wird "-1" zurück gegeben
sollte der zweite ausdruck " test" nicht gefunden werden wird "-2" zurück gegeben

mag sicherlich nicht die beste sein aber ich mein, solangs funktioniert

mikeb69 · 30. Mai 2010, 19:12

Hallo Slice,

und dein Code überzeugt dich ?

Mich nicht !

Ich hab auch lange überlegt ob ich das hier freischalten soll.

Gruss

mikeb69

slice · 30. Mai 2010, 19:26

hallo mike
nun für leute die schon länger mit vb arbeiten denk ich mal eher weniger

weiß nich also ich fands eig nützlich und dachte für andere die wie ich gerade erst anfangen könnts evtl nützlich sein
klar es ist keine "wow das revolutioniert die welt"-funktion und wird von vielen die es können innerhalb 1 minute oder noch weniger geschrieben *und das sogar wahrscheinlich noch besser*

kannst bei bedarf gern wieder rausnehmen wenn sie dich/euch nicht anspricht,
ich dachte mir nur wie oben schon geschrieben das es für user wie mir nützlich sein könnt

LG

singu · 30. Mai 2010, 22:13

Unter folgendem Link gibt es eine komfortablere Lösung.

dotnetbase.de/stringbetween-funktion-t625.html

picoflop · 31. Mai 2010, 09:59

slice schrieb:

weiß nich also ich fands eig nützlich und dachte für andere die wie ich gerade erst anfangen könnts evtl nützlich sein

Das "Problem" ist, dass du zwei Mal "splittest". "Eigentlich" musst du nur mit IndexOf die Position des Start- und des Endemarkers suchen und dann den Teil dazwischen mit Substring() ausgeben.

Vor einiger Zeit hatte ich das mal heispielhaft in nem anderen Thread gepostet - wo, weiß ich nicht mehr

VB.NET-Quellcode

Private Function Between(ByVal src As String, ByVal start As String, ByVal [end] As String) As String
Dim istart As Integer = src.IndexOf(start, 0)
If istart < 0 Then Return String.Empty
Dim iend As Integer = src.IndexOf([end], istart + start.Length)
If iend < 0 Then iend = src.Length - 1
Dim l As Integer = iend - istart - start.Length
Return src.Substring(istart + start.Length, l)
End Function

slice · 31. Mai 2010, 18:58

hm oke so hät mans auch schreiben können ... ich hab halt zu split gegriffen weil ichs so vorher immer gemacht hat

jvbsl · 31. Mai 2010, 19:24

und trotzdem ist das RegEx, wie es "singu" bereits gepostet hat am schönsten(zumindest meiner Meinung nach ;))

yeti2078 · 31. Mai 2010, 19:40

jvbsl schrieb:

und trotzdem ist das RegEx, wie es "singu" bereits gepostet hat am schönsten

Tja, das ist meiner Meinung nach die mit Abstand schlechteste Möglichkeit der hier 3 gezeigten Funktionen.

Nach meinem Performancetest benötigt die Regex-Variante 10 mal soviel Zeit, wie slice's und Thomy's (bzw picoflop's) Variante.

Und "kürzer" ist der Code auch nicht.

jvbsl · 31. Mai 2010, 19:46

das liegt daran, dass dies noch nicht ganz optimiert wurde

Ich hätte es z.B. eher so gemacht...

VB.NET-Quellcode

Private Function StringBetween(ByVal sInput As String, ByVal sStart As String, ByVal sEnd As String)
Dim RegEx As New Regex(sStart & "(?<Bet>.*)" & sEnd)
Dim Match As Match = RegEx.Match(sInput)
If Match.Success = True And Not Match.Length = 0 Then
Return Match.Groups("Bet").Value
Else
Return False
End If
End Function

kann sein, dass es immer noch langsamer ist, jedoch macht sich die Geschwindigkeit von RegEx auch erst bei größeren Sachen bemerkbar

yeti2078 · 31. Mai 2010, 19:51

Das Problem liegt einfach dabei, dass bei jedem Funktionsaufruf ein neues Regex-Objekt instanziier werden muss.
Somit ist das in diesem Fall vollkommen ungeeignet.

jedoch macht sich die Geschwindigkeit von RegEx auch erst bei größeren Sachen bemerkbar

Das stimmt natürlich.

singu · 3. Juni 2010, 14:56

Es ist jedem selber überlassen, welche Methode man verwendet.

%P% · 8. Juni 2010, 11:58

Wie wärs mit RegEx.Replace und dem Pattern

VB.NET-Quellcode

^\w+|[^\s]+$
'Und replaced wird mit ""

Das sind 1 oder maximal 2 Zeilen Code

%P%

StringBetween Funktion

StringBetween Funktion

VB.NET-Quellcode

VB.NET-Quellcode

slice schrieb:

VB.NET-Quellcode

jvbsl schrieb:

VB.NET-Quellcode

Hi

VB.NET-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

6 Benutzer haben hier geschrieben