Vereis, estoy intentando hacer un programa que busque en un texto unos usuarios, y que diga los numero que tiene, es decir:

Es decir quiero que cuando busque "Usuario=" aqui me ponga su numero y que vuelva a buscar y encuentre otro "Usuario=" y coloque aqui su otro numero etc

Aver si me pueden ayudar, no lo encuentropor ninguna parte

Pues mira, aqui deberias rellenar un array con los resultados de usuario y cada vez que pidas un usuario que te retorne el siguiente valor, por ejemplo:


Function usuario(ByVal posicion as Integer)
Dim a As String
a = "hola Usuario=1 buenas Usuario=2 tardes Usuario=3"
Dim b As String()
Dim res As String
Dim i As Integer
i = 0
b = a.Split()
For Each res In b
If res.IndexOf("Usuario=", 0) Then
If i = posicion Then
Return res
Else
i += 1
End If

End If
Next
Return -1
End Function

Cada vez que quieras un valor le mandas una posición más, en ese caso 0, 1 o 2, y en cada caso retornara Usuario=1, despues Usuario=2 y por ultimo Usuario=3, si le mandas una posición que no exista, por ejemplo le pasas el 4 el resultado será -1.

No lo he probado, pero seguramente funciona bien.

Saludos

¿Quieres ganar dinero escribiendo sobre tus aficiones? - www.Redactores.es