vba - simples - Encuentra todas las cadenas dentro de una cadena

vba comillas entre comillas

Question

Obtengo StrTxt como cadena html mediante el texto de respuesta de solicitud http. Quiero encontrar todas las apariciones de ''"cadena"'' en StrTxt.

Algo como esto.

for each string in StrTxt
StrTxt = "all matched strings from StrTxt"
do something StrTxt.

Editar Esto está etiquetado como posible duplicado pero no lo es. Cómo recorrer cada palabra en un documento de Word: VBA Macro explica cómo encontrar la secuencia en el documento y no en la cadena.

Es simplemente simple. ¿Cómo encontrar todas las cadenas dentro de cadenas? ¿No es mi título lo explica todo?

Editar 2

De la respuesta de Ansgar Wiechers intenté seguir.

Do
i = InStr(strtxt, "startstring")
If i > 0 Then
strtxt = Mid(strtxt, i, Len(strtxt) - i)
i = InStr(InStr(strtxt, "midstring") + 1, strtxt, "endstring")
If i > 0 Then
strtxt = Left(strtxt, i + Len(endstring)) '' I am using i+4 as I know the length
WScript.Echo strtxt
End If
End If
Loop While i > 0

Da solo una ocurrencia. Cómo hacer un bucle correctamente?

Answer 1

Al usar Reemplazar y Dividir , esto se logró fácilmente.

Option Explicit
Public Sub StringInString()
Dim myString As String: myString = "This is my string. {This is another string.} How do I go about searching through this?"
Dim findString As String: findString = "this"
Dim var As Variant, mySplit As Variant
Dim matchCount As Integer: matchCount = 0
'' Remove any characters that aren''t pure text, but leave spaces so we can split on those.
Dim removeChars: removeChars = Array(".", ",", "/", "/", "|", "{", "}", "[", "]", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "-", "+", "=", ":", ";", """", "''", "<", ">", "?", "`", "~")
For Each var In removeChars
myString = Replace(myString, var, vbNullString)
Next
mySplit = Split(myString, " ")
For Each var In mySplit
If (LCase(findString) = LCase(var)) Then matchCount = matchCount + 1
Next
End Sub

No sé muy bien qué es lo que espera como resultado, así que modifíquelo según sea necesario.

EDITAR:

Incluso solución más simple, usando expresiones regulares (referencia requerida a Micrsoft VBScript Regular Expressions 5.5):

Public Sub StringInStringRegex()
Dim myString As String: myString = "This is my string. {This is another string.} How do I go about searching through this?"
Dim reg As New RegExp
reg.Pattern = "(this)"
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
Dim Matches As MatchCollection
Set Matches = reg.Execute(myString)
Dim matchCount As Integer: matchCount = Matches.Count
End Sub

Fuentes: cómo usar expresiones regulares (Regex) en Microsoft Excel tanto en celdas como en bucles y recuento de coincidencias de patrones en excel (regex y vba)

Answer 2

Pruebe este ejemplo comentado usando una matriz dinámica y la función InStr :

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''Find a string in a sentence
''Recherche d''une chaine de caractère dans une phrase
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''Instruction Option Explicit: Force explicit declaration of all variables in a script
''Instruction Option Explicit: Force la déclaration explicite de toutes les variables dans un script
Option Explicit
Dim Texte,sChaine
Texte = "This is my string. {This is another string.} How do I go about searching through this?"
sChaine = "this" ''chaine recherchée
''Instruction Dim: Declares variables and allocates storage space
''Instruction Dim: Déclare des variables et alloue l''espace de stockage
Dim aPos() , iPos
''ReDim Statement: Declares the dynamic array of variables and attribute or
''Reallocates storage space at the procedure
''Table where positions are stored
''Instruction ReDim: Déclare les variables de tableau dynamique et attribue ou
''réattribue l''espace de stockage au niveau de la procédure
''Tableau ou sont stockées les positions
ReDim aPos(0)
''InStr Function: Returns the position of the first occurrence of a string
''In the interior of another
''Fonction InStr: Renvoie la position de la première occurrence d''une chaîne
''à l''intérieur d''une autre
iPos = InStr(1, Texte, sChaine, vbTextCompare)
''Instruction While ... Wend: Run a set of instructions as long as a given condition is True
''Instruction While...Wend: Exécute une série d''instructions tant qu''une condition donnée est True
While iPos <> 0
''UBound Function: Returns the largest available subscript for the indicated dimension of an array
''Fonction UBound: Renvoie le plus grand indice disponible pour la dimension indiquée d''un tableau
ReDim Preserve aPos(UBound(aPos) + 1)
aPos(UBound(aPos)) = iPos
iPos = InStr(iPos + 1, Texte, sChaine, vbTextCompare)
Wend
''If ... Then ... Else Instruction: Executes a group of statements subject to a condition,
''In dependence of the value of an expression
''Instruction If...Then...Else: Exécute un groupe d''instructions soumises à une condition,
''en fonction de la valeur d''une expression
If UBound(aPos) > 0 Then
Dim i , Resultat
Resultat = "Occurrence """ & sChaine & """ found " & UBound(aPos) & " times " & _
"in the phrase" & vbCrLf & vbCrLf & """" & Texte & """" & vbCrLf & vbCrLf & _
"L''occurrence """ & sChaine & """ a été trouvée " & UBound(aPos) & " fois " &_
"dans l''expression " & vbCrLf & vbCrLf & """" & Texte & """" & vbCrLf
''Instruction For ... Next: Repeats a group of statements a specified number of times
''CStr Function: Returns an expression that has been converted to a String subtype Variant
''Len Function: Returns the number of characters in a string
''Instruction For...Next: Répète un groupe d''instructions un nombre spécifié de fois
''Fonction CStr: Renvoie une expression qui a été convertie en un Variant de sous-type String
''Fonction Len: Renvoie le nombre de caractères contenus dans une chaîne
For i = 1 To UBound(aPos)
Resultat = Resultat & vbCrLf & "Postion: " & CStr(aPos(i)) & "," & CStr(aPos(i)) + Len(sChaine)
Next
Else
Resultat = "L''occurrence """ & sChaine & """ n''a pas été trouvée dans l''expression " &vbCrLf&vbCrLf&_
"""" & Texte & """"
End If
Wscript.echo Resultat

Answer 3

Si desea utilizar InStr para buscar una cadena para todas las apariciones de una subcadena en particular, debe llamar a la función repetidamente, comenzando cada búsqueda nueva (al menos) un carácter después de la última coincidencia.

response = "..." ''your HTTP response string
srch = "..." ''the string you want to find in the response
start = 1
Do
pos = InStr(start, response, srch, vbTextCompare)
If pos > 0 Then
start = pos + 1 ''alternatively: start = pos + Len(srch)
WScript.Echo pos
WScript.Echo Mid(response, pos, Len(srch))
End If
Loop While pos > 0

Si desea que la comparación sea sensible a mayúsculas y minúsculas, reemplace vbTextCompare con vbBinaryCompare .

Editar: para encontrar patrones que comiencen con una cadena, contengan otra y terminen con una tercera, probablemente sea mejor usar una expresión regular . @TylerStandishMan ya mostró el principio básico en su respuesta , pero hay algunas cosas que observar en su escenario.

response = "..." ''your HTTP response string
startTerm = "startstring"
midTerm = "midstring"
endTerm = "endstring"
Set re = New RegExp
re.Pattern = startTerm & "[/s/S]*?" & midTerm & "[/s/S]*?" & endTerm
re.Global = True
re.IgnoreCase = True ''if required
For Each m In re.Execute(response)
WScript.Echo m
Next

Algunos caracteres en una expresión regular tienen un significado especial (por ejemplo, coincide con cualquier carácter excepto líneas nuevas), por lo que debe asegurarse de que dicho carácter en sus términos de inicio, medio y final se escape correctamente (por ejemplo, use /. Para hacer coincidir un literal punto). En caso de que la subcadena que desea combinar abarque más de una línea, necesita aquellas partes de la expresión que coincidan con el texto arbitrario entre los términos de búsqueda para incluir caracteres de nueva línea (por ejemplo [/s/S] para que coincida con cualquier espacio en blanco o no blanco) . También es posible que desee que el partido no sea codicioso, de lo contrario, obtendría una coincidencia única desde la primera aparición de startTerm hasta la última aparición de endTerm . Eso es lo que el modificador *? es para.