Código:
Y luego tengo una variable, txtSite que contiene una URL, y hago esto: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
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?