Len te da la longitud total de la cadena. Las funciones clásicas para trabajar con cadenas son:
Left,
Right y
Mid
Ejemplo curioso:
j = "Prueba de cadena. Esto es una oración. Mas de lo mismo; lo mismo de siempre."
for n = 1 to len(j)
response.Write(Mid(j,n,1) & "<br>")
next
Investiga
Mid seguro que te interesa.
En cuanto a lo que dice Myakire sobre las funciones, imagina que creamos una función que nos quite los puntos, comas, puntos y comas, exclamaciones, interrogaciones, etc...
function quitameEso(texto)
Dim t
t = texto
if len(t)>0 then
t = replace(t, ".","")
t = replace(t, ";","")
t = replace(t, ":","")
t = replace(t, ",","")
t = replace(t, "?","")
t = replace(t, "¿","")
t = replace(t, "!","")
t = replace(t, "¡","")
end if
quitameEso = t
end function
y Modificamos lo anterior:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
<body>
<%
dim j
j = "Esto es una prueba de texto. Uno"
x = quitameEso(j)
for n = 1 to len(j)
response.Write(Mid(x,n,1) & "<br>")
next
function quitameEso(texto)
Dim t
t = texto
if len(t)>0 then
t = replace(t, ".","")
t = replace(t, ";","")
t = replace(t, ":","")
t = replace(t, ",","")
t = replace(t, "?","")
t = replace(t, "¿","")
t = replace(t, "!","")
t = replace(t, "¡","")
end if
quitameEso = t
end function
%>
</body>
</html>
Veras que curioso :D
(NOTA: Que maravillosamente simple es ASP comparado con la admin de MSSQL)
Buena Samana Santa a aquellos que la disfruten.
Y no se olviden: Estudien MSSQL. En España habrá 5 o 6 que sepan realmente como administrarla, resolver interbloqueos, liberar RPCs, etc. Dios lo que estoy aprendiendo en tres dias :(