viernes, 7 de febrero de 2020

Buscar de derecha a Izquierda

=(Len([Text11]))-(InStr(StrReverse([Text11]);"\"))+1

explico:
el comando    InStr

solo busca de izquiera a derecha


si tengo varios signos o cadenas iguales
buscará la primera coincidencia

que pasa si yo quiero buscar la ultima coincidencia???

ejemplo
en el texto    Dato:"D:\Pictures\jpg\Group 7\file006012.jpg"

yo quiero que me diga automaticamente, donde se encuentra ubicado el ultimo "\"

Al poner =InStr([Dato];"\")   = 3
pero yo quiero que me muestre el ultimo, no el primero = 24

entonces aplico otro comando SrtReverse

que invierte todo el texto  al poner  =SrtReverse([Dato])  

queda: "gpj.210600elif\7 puorG\gpj\serutciP\:D"   ALREVES !

si a esto le aplico el primer comando  =InStr(SrtReverse([Dato]);"\")

contará ahora alrevez = 15

pero aun no me sigue mostrando el dato original que yo quiero que es el 24

entonces aplico otro comando que cuenta la cantidad de caracteres

=Len([Dato])  = 38

Luego   28 - 15  = 23,  porque le resta un caracer, luego habria que sumarle 1 y llegamos
             28 - 15 + 1

entonces   =Len([Dato])-InStr(SrtReverse([Dato]);"\")+1  = 24

APLICABLE A CUALQUIER CONJUNTO DE CARACTERES
ASI CUENTA DE IZUIERDA A DERECHA EL ULTIMO CARACTER BUSCADO !!


ENTONCES LLEGO A MI RESULTADO FINAL

PARA QUE ME PUEDA ABRIR EL LUGAR DONDE SE ENCUENTRA EL ARCHIVO

EN EL TEXTO  

"D:\Pictures\jpg\Group 7\file006012.jpg"


=Left([Dato];(Len([Dato])-InStr(SrtReverse([Dato]);"\")+1))

EXTRAIGO


"D:\Pictures\jpg\Group 7\"  LA CARPETA DONDE ESTA EL ARCHIVO


Con un click pasar datos ordenados a una planilla google sheet excel

     Dim http As Object     Dim url As String     Dim datos As String     Dim codigoerlangenold As String ' 02     Dim codigofabricaaa A...