instr instrrev - xtes Auftreten eines Strings

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Public Function InstrN(strText As String, strZ As String, Optional lngN As Long) 'Aufruf: MsgBox INSTRN("Das ist ein kleines Beispiel"," ",3) '=> ergibt 12 Dim lngI As Long, lngS As Long If IsMissing(lngN) Then InstrN = InStr(strText, strZ) Else If UBound(Split(strText, strZ))

Public Function InstrN(strText As String, strZ As String, Optional varN) 'Aufruf: MsgBox INSTRN("Das ist ein kleines Beispiel"," ",3) '=> ergibt 12 'Variante: MsgBox INSTRN("Das ist ein kleines Beispiel"," ") '=> ergibt 4 (1.Auftreten) Dim lngI As Long, lngS As Long If IsMissing(varN) Then InstrN = InStr(strText, strZ) Else If UBound(Split(strText, strZ))

Public Function InstrN(strText As String, strZ As String, Optional varN) 'Aufruf: MsgBox INSTRN("Das ist ein kleines Beispiel"," ",3) '=> ergibt 12 'Variante: MsgBox INSTRN("Das ist ein kleines Beispiel"," ") '=> ergibt 4 (1.Auftreten) Dim lngI As Long, lngS As Long If IsMissing(varN) Then InstrN = InStr(strText, strZ) Else If Len(strText) - Len(Replace(strText, strZ, "")) 'Falls es kein n.Auftreten des Suchbegriffs gibt: Ergebnis auf 0 setzen InstrN = 0 Else For lngI = 0 To varN - 1 lngS = lngS + Len(Split(strText, strZ)(lngI)) + Len(strZ) Next InstrN = lngS End If End If End Function

Public Function InstrN(strText As String, strZ As String, Optional varN, Optional _ blnVonHinten = False) 'Aufruf: MsgBox INSTRN("Das ist ein kleines Beispiel"," ",3) '=> ergibt 12 'Variante: MsgBox INSTRN("Das ist ein kleines Beispiel"," ") '=> ergibt 4 (1.Auftreten) Dim lngI As Long, lngS As Long If blnVonHinten Then strText = StrReverse(strText): strZ = StrReverse(strZ) If IsMissing(varN) Then InstrN = InStr(strText, strZ) Else If Len(strText) - Len(Replace(strText, strZ, ""))

Hallo Gerd
StrReverse kannte ich nicht. Das ist ja hier sehr hilfreich. Ich wollte nicht die Suche der Position von Links und Rechts in die gleiche Funktion implementieren, sondern einfach zwei separate UDFs (instrN und instrRevN).
Mit der Kenntnis von StrReverse konnte ich jetzt in InstrRevN mit den zwei zusätzlichen Zeilen
strText = StrReverse(strText)
strZ = StrReverse(strZ)
dieses Ziel erreichen.
Vielen Dank und Gruss
Peter
Public Function InstrRevN(strText As String, strZ As String, Optional varN)
'Aufruf: MsgBox INSTRN("Das ist ein kleines Beispiel"," ",3) '=> ergibt 12
'Variante: MsgBox INSTRN("Das ist ein kleines Beispiel"," ") '=> ergibt 4 (1.Auftreten)
Dim lngI As Long, lngS As Long
strText = StrReverse(strText)
strZ = StrReverse(strZ)
.....
....

Hi,
wenn ich dich richtig verstanden habe ,
hier mal 2 Möglichkeiten die Positionen des Suchstrings aufzulisten:
Option Explicit

Sub searchText()
Dim myString As String, strIndex As String
Dim Regex As Object, myItems, n
Set Regex = CreateObject("vbscript.regexp")
myString = "das Haus ist im Haus vom Haus"
With Regex
.Global = True
.Pattern = "Haus"
Set myItems = .Execute(myString)
End With
For Each n In myItems
strIndex = strIndex & n.firstindex & vbNewLine
Next
If myItems.Count > 0 Then MsgBox "Suchtext kommt im Text an den Stellen " & vbNewLine &  _
strIndex & "vor"
Set Regex = Nothing
End Sub

Sub searchText2()
Dim inText, n, strIndex As String
Dim myString As String, mySearch As String, myItems, lenTemp As Byte
mySearch = "Haus"
myString = "das Haus ist im Haus vom Haus"
myItems = Split(myString, mySearch)
For n = LBound(myItems) To UBound(myItems) - 1
strIndex = strIndex & Len(myItems(n)) + lenTemp & vbNewLine
lenTemp = lenTemp + Len(myItems(n)) + Len(mySearch)
Next
If UBound(myItems) > 0 Then MsgBox "Suchtext kommt im Text an den Stellen " & vbNewLine &  _
strIndex & "vor"
End Sub

Grüße
Steffen

Beliebteste Forumthreads (12 Monate)

instr instrrev - xtes Auftreten eines Strings

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread