49 - Funciones para administrar string (cadenas) |
VBScript cuenta con un conjunto de funciones que nos permiten procesar cadenas de caracteres, veremos un ejemplo y posterior explicación de estas funciones:
Solicitar el ingreso de un nombre y apellido. Aplicar las funciones de string sobre el mismo.
pagina1.html
<html> <head> <title>problema</title> </head> <body> <form action="pagina1.asp" method="post"> Ingrese su nombre y apellido: <input type="text" name="nom"><br> <input type="submit" value="cargar"><br> </form> </body> </html>
y el archivo que procesa el string cargado por teclado.
pagina1.asp
<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim nom
dim temp,cant
nom=request.form("nom")
response.write("string original:<strong>" & nom&"</strong><br>")
cant=len(nom)
response.write("cantidad de caracteres:<strong>" & cant&"</strong><br>")
temp=ucase(nom)
response.write("convertido a mayúsculas:<strong>" & temp & "</strong><br>")
temp=lcase(nom)
response.write("convertido a minúsculas:<strong>" & temp &"</strong><br>")
temp=left(nom,3)
response.write("Los primeros tres caracteres:<strong>" & temp &"</strong><br>")
temp=right(nom,3)
response.write("Los últimos tres caracteres:<strong>" & temp &"</strong><br>")
temp=mid(nom,2,3)
response.write("A partir del segundo caracter tres caracteres:<strong>" & temp& "</strong><br>")
temp=strreverse(nom)
response.write("cadena invertida:<strong>" & temp&"</strong><br>")
temp=trim(nom)
response.write("cadena original suprimiendo los espacios blanco del principio
y el final:<strong>" & temp &"</strong><br>")
temp=ltrim(nom)
response.write("cadena original suprimiendo los espacios blanco del principio:
<strong>" & temp & "</strong><br>")
temp=rtrim(nom)
response.write("cadena original suprimiendo los espacios blanco del final:<strong>"
& temp & "</strong><br>")
temp=replace(nom," ","-")
response.write("cadena remplazando los espacios en blanco por guión:<strong>"
& temp & "</strong><br>")
response.write("cadena dividida por los espacios en blanco<br>")
dim vec,f
vec=split(nom," ")
for f=0 to ubound(vec)
response.write("<strong>" & vec(f) &"</strong><br>")
next
if instr(nom,"juan")=0 then
response.write("No se encuentra el nombre juan en la cadena<br>")
else
response.write("Si se encuentra el nombre juan en la cadena<br>")
end if
%>
</body>
</html>