Autor
|
Tema: Parte de una String (Leído 2,712 veces)
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Tengo un problema k se solucionar mas o menos pero keria sus opiniones. El caso es k tengo una url cualkiera, en este caso : http://www.lalala.com/esto.htmPues yo keria k solo me mostrara: http://www.lalala.com/Por ahora lo ago usando la funcion InStr y Mid, pero no va bn. Lo k quiero saber es como hacer para sabar el lugar k ocupa el ultimo "/" de una cadena.PD: no vale usar right ni left por k puede ser una url cualkiera. Salu2
|
|
|
En línea
|
|
|
|
-Riven-Ward-
RivenSoft
Desconectado
Mensajes: 2.215
Do you like Mario? xDDDDDDDDDDDD
|
Te diré cómo hacerlo pero con pseudocódigo, o mas o menos xD. Primero separas la URL carácter a carácter en un Array. Luego con un bucle vas recorriendo el array, viendo carácter a carácter si este es un /. Cuando cuentes 3 slashes, paras y guardas lo recorrido en una cadena. ¿Y que pasa siesque la URL viene sin http://? Bueno, primero debes comprobar si lo tiene. Si no lo tiene, ps lo pones xD. Si lo tiene, lo dejas asi . Y bueno, no se si habrá en VB una función que haga eso... Salu2!
|
|
|
En línea
|
Usuario Banneado
|
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
Bueno, primero tendrias que fijarte si hay una /al final de la URL, si esta, la sacas y podes usar este codigo. Var = Split(Text1, "/") 'Text1 contiene la pagina For i = 0 To UBound(Var) - 1 'uno menos que el maximo Text2 = Text2 & Var(i) & "/" 'vas poniendo todas las subdiviciones y la "/" Next i
Espero que te sirva, un abrazo y feliz año.-
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Ya va, muchas gracias NYlOn feliz año. Salu2
|
|
|
En línea
|
|
|
|
sch3m4
Ex-Staff
Desconectado
Mensajes: 1.608
Nihil est in intelectu quod prius not fuerit insen
|
podrías hacerlo usando strreverse() y separar desde instr(cadena,"\") hasta len(cadena) y que no se te olvide de nuevo, strreverse()
|
|
|
En línea
|
SafetyBits
"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Eso ya se le ocurrio a un amigo, grax de todas formas, me kedo con lo de nylon.
Salu2
|
|
|
En línea
|
|
|
|
Slasher-K
Desconectado
Mensajes: 1.477
|
Existe la función InsStrRev que busca datos desde atrás hacia adelante de una cadena. La sintaxis es parecida a InStr. Dim iPos%
iPos = InStrRev("http://www.lalala.com/lalala.htm", "/")
Debug.Print "La última barra está en la posición " & iPos
Saludos.
|
|
|
En línea
|
A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
no se instalar la grafia 2ª parte.
GNU/Linux
|
Roboto
|
3
|
2,555
|
9 Mayo 2011, 22:57 pm
por portaro
|
|
|
Problema con UnPackMe_ReCrypt0.80 Parte 50
Ingeniería Inversa
|
.:UND3R:.
|
6
|
3,571
|
14 Julio 2011, 21:09 pm
por .:UND3R:.
|
|
|
diferencia de + y & en dos string
.NET (C#, VB.NET, ASP)
|
lessionone
|
1
|
1,700
|
21 Abril 2012, 22:53 pm
por seba123neo
|
|
|
string bidemencional
Programación C/C++
|
marchiali
|
1
|
1,482
|
31 Julio 2014, 07:24 am
por leosansan
|
|