Cadenas de Caracteres Leonel Morales Daz Ingeniera Simple

Cadenas de Caracteres Leonel Morales Díaz Ingeniería Simple leonel@ingenieriasimple. com Copyright 2008 by Leonel Morales Díaz – Ingeniería Simple. Derechos reservados Disponible en: http: //www. ingenieriasimple. com/introprogra

2 de 16 Cadenas de Caracteres n Sucesión de caracteres n n AKA: Strings En memoria se almacenan los códigos n ASCII, UNICODE, etc.

3 de 16 Ejemplo n Almacenamiento en memoria

4 de 16 Inicializar Strings n Asignar valores Dim Un. Str = “Computing is about people” n Concatenar Dim Otro. Str, Nvo. Str Otro. Str = “not machines. ” Nvo. Str = Un. Str & “, ” & Otro. Str Document. Write “<H 1>” & Nvo. Str & “</H 1>”

5 de 16 Cadena Vacía Dim Vacio. Str = “” Dim i For i = 1 To 1000 Vacio. Str = Vacio. Str & Vacio. Str Next Document. Write “<P>” & Vacio. Str & “</P>”

6 de 16 Longitud de un String Dim Largo. Str = “Easy does it” Dim Largo = Len(Largo. Str) Document. Write “<P>” & _ “el largo es: “ & Largo & “</P>”

7 de 16 Caracteres por los Lados Dim Lados. Str = “Know your users” Dim Izq. Str = Left(Lados. Str, 4) Dim Der. Str = Right(Lados. Str, 5) Document. Write “<P>” & Izq. Str & _ “ our “ & Der. Str & “</P>”

8 de 16 Eliminar Espacios Dim Spc. Str = “ not bad “ Document. Write “<P>” & _ Len(Spc. Str) & “</P>” Spc. Str = Trim(Spc. Str) Document. Write “<P>” & _ Len(Spc. Str) & “</P>”

9 de 16 Sub. Cadenas Dim Entera. Str = “Working in the lab” Dim Media. Str = Mid(Entera. Str, 4, 15) Document. Write “<P>” & Media. Str & “</P>” Dim i Document. Write “<Table>” For i = 1 To Len(Entera. Str) Document. Write “<TR><TD>” & i & “</TD>” & _ “<TD>” & Mid(Entera. Str, i, 1) & “</TD></TR>” Next Document. Write “</Table>”

10 de 16 Encontrar Sub. Cadenas Dim En. Str = “Feria Juvenil Landivariana” Dim Pos = In. Str(En. Str, ”ri”) Document. Write “<P>ri aparece la primera vez en la posición: “ & Pos & “</P>” Pos = In. Str(Pos+1, En. Str, ”ri”) Document. Write “<P>ri aparece la segunda vez en la posición: “ & Pos & “</P>”

11 de 16 Eliminar Espacios Dim ISpc. Str = “Programming is fun” Document. Write “<P>” & _ Len(ISpc. Str) & “</P>” ISpc. Str = Replace(ISpc. Str, ” “) Document. Write “<P>” & _ Len(ISpc. Str) & “</P>” n ¿Funciona?

12 de 16 Eliminar Espacios Bien Dim ISpc. Str = “Programming is fun” Document. Write “<P>” & _ Len(ISpc. Str) & “</P>” Do While In. Str(ISpc. Str, ” “) > 0 ISpc. Str = Replace(ISpc. Str, ” “) Loop Document. Write “<P>” & _ Len(ISpc. Str) & “</P>”

13 de 16 Convertir en Arreglo Dim Sep. Str = “Guatemala, El Salvador, Honduras, Nicaragua, Costa Rica, Panamá” Dim Paises = Split(Sep. Str, ”, ”) Dim i For i = 0 To Ubound(Paises) Document. Write “<P>” & Paises(i) & “</P>” Next

14 de 16 Recibir Parámetros en URL Dim Pars. Str = Document. Location. Search Pars. Str = Replace(Pars. Str, ”? ”, ””) Pars. Str = Replace(Pars. Str, ”%20”, ” “) Dim Pars = Split(Pars. Str, ”&”) Dim i For i = 0 To Ubound(Pars) Document. Write “<P>” & i & “: “ & Pars(i) & _ “</P>” Next

15 de 16 Ejercicio 1 n Hacer subrutina Tabla. Str(Un. Str) Recibe un String n Genera una tabla: n Código ASCII

16 de 16 Ejercicio 2 n Construir la función: n n n Quita. Pre(De. Str, Cars) Recibe un string “De. Str” Le quita “Cars” cantidad de caracteres • De la izquierda n n n Devuelve el string resultante Ej Quita. Pre(“súbase”, 2) = “base” Construir Quita. Su(De. Str, Cars) n Ej Quita. Su(“Rendering”, 3) = “Render”