HOLA!!!
El reto consiste en hacer la version mas rapida de la siguiente funcion:
yo participo directamente con la que figura alli
GRACIAS POR LEER!!!
El reto consiste en hacer la version mas rapida de la siguiente funcion:
Cita de: 79137913 en 11 Junio 2012, 16:47 PM
Busca un string entre otros 2 strings.
Por ejemplo :Código (vb) [Seleccionar]Private Sub Form_Load()
str1 = "hola franco como andas, hola pepe como andas"
str2 = "hola "
str3 = " como"
Debug.Print EntreTextos(str1, str2, str3)
'imprimira: "franco"
'como veran solo la primera asi que ojo XD
End Sub
Public Function EntreTextos(Text As String, Text1 As String, Text2 As String) As String
EntreTextos = MidB$(Text, InStrB(Text, Text1) + LenB(Text1), InStrB(Text, Text2) - InStrB(Text, Text1) - LenB(Text1))
End Function
'o esta:
Public Function EntreTextos(Text As String, Text1 As String, Text2 As String) As String
Dim a As Long
a = InStrB(Text, Text1)
If a Then
Dim b As Long
b = InStrB(Text, Text2)
If b Then
Dim c As Long
Dim d As Long
c = LenB(Text1)
d = InStrB(Text, Text2) - a - c
If d > 0 Then
EntreTextos = MidB$(Text, a + c, d)
End If
End If
End If
End Function
yo participo directamente con la que figura alli
GRACIAS POR LEER!!!
