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>