Tratar cadenas

[sanfermin]

Como puedo tratar una cadena para eliminar parte de la misma, mi idea es que de:ç

http://direccion/di1/

obtenga http://direccion

eliminando el resto

[sanfermin]

alguien sabe algo al respecto????

sobre el tratamiento de cadenas????

alguna función al respecto????

[tarlipes]

Fijate que seguro en las faqs, habla del tratamiento de cadenas.

te doy un ejemplo que puedea ayudarte:

Dim texto, findenombre, nombre, temporal, findedireccion, direccion

texto= "cacho perez; calle 56 s/n; 1 de octubre de 1890"
findenombre=instr(texto,";")
nombre=mid(texto,1, findenombre - 1)
temporal=mid(texto, findenombre + 1, len (texto)
findedireccion = instr (temporal, ";")
direccion = mid (temporal, 1, findedireccion - 1)

si te lees todo lo que es manejo de cadenas, haciendo unos pocos cambios, esto te va a servir para lo que necesitas.

sino, hay colecciones del request, que ahora no las tengo presente, que te pueden servir, e incluso tienen menos código, pero bueno, esta en vos por cual optar.

esta última creo que es request.servervariables ("remote_host")

saludos

[sanfermin]

estoy intentando pero la verdad q tratar cadenas no es lo mio:

function direccion(cadena)

Dim findenombre,temporal,findedireccion,cadena2
cadena2=cadena
findenombre=instr(11,cadena2,"/")
cadena2=mid(cadena2,1, findenombre)

if len(cadena2)<15 then

direccion=cadena

else
direccion=cadena2

end if

end function

cadena=http://www.unapagina.es
ó
cadena=http://www.otrapagina.es/

parece q funciona x ahora


alguna otra sugerencia?