Foros del Web » Programando para Internet » ASP Clásico »

Problema al cortar cadena...

Estas en el tema de Problema al cortar cadena... en el foro de ASP Clásico en Foros del Web. Tengo la siguiente funcion, que se encarga de cortar la cadena desde el caracter especificado a partir del caracter que tu escojas: Código: Function cortarHasta(desde,cadena,caracterCortador) ...
  #1 (permalink)  
Antiguo 25/06/2003, 15:53
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Problema al cortar cadena...

Tengo la siguiente funcion, que se encarga de cortar la cadena desde el caracter especificado a partir del caracter que tu escojas:
Código:
Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function
Y luego tengo una variable, txtSite que contiene una URL, y hago esto:
If len(txtSite) > 7 Then
scriptname = cortarHasta(1,txtSite, "/")
txtSite = scriptname
End If

Funciona bien si la variable tiene algo como www.forosdelweb.com/foro/loquesea.htm, opr que me lo deja en www.forosdelweb.com , pero si tengo una del tipo www.forosdelweb.com , me da un error, por que no hay nada que cortar...

¿Como puedo solucionar el error?
__________________
Tu portal de manga y anime.
  #2 (permalink)  
Antiguo 25/06/2003, 15:59
Avatar de Cauchemar  
Fecha de Ingreso: junio-2003
Ubicación: Madrid
Mensajes: 137
Antigüedad: 21 años
Puntos: 0
es que no encuentra el caracter "/" y el instr se hace la picha un lio
__________________
La utopía está en el horizonte: cuando yo camino dos pasos ella se aleja dos pasos. Yo camino diez pasos y ella está diez pasos más lejos ¿Para qué sirve la utopía?. Sirve para eso: para caminar.
  #3 (permalink)  
Antiguo 25/06/2003, 16:02
Avatar de Mickel  
Fecha de Ingreso: mayo-2002
Ubicación: Lima, Peru
Mensajes: 4.619
Antigüedad: 22 años
Puntos: 7
Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = iif(enc>0,left(cadena,enc - 1),cadena)
Else
cortarHasta = cadena
end if
end function
__________________
No tengo firma ahora... :(
  #4 (permalink)  
Antiguo 25/06/2003, 16:07
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Okas. Ya se me soluciono la duda ^^
__________________
Tu portal de manga y anime.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:18.