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?