Indice de contenido -> Capítulo 8 - Funciones para variables tipo cadena

A continuación se describe el uso de las siguientes funciones predeterminadas en TEIMSI:

1)- asc

2)- ascat

3)- chr

4)- chrat

5)- hashver

6)- hextostr

7)- isinsideof

8)- ke_hashxlen

9)- lcase

10)- left

11)- len

12)- ltrim

13)- makestring

14)- replace

15)- right

16)- rtrim

17)- scrc16b

18)- setascat

19)- setchrat

20)- str_count

21)- str_repeatn

22)- str_overwrite

23)- str_reverse

24)- strpos

25)- strposrev

26)- strtohex

27)- substr

28)- substring

29)- trim

30)- ucase

31)- loadszstring

asc

La función "asc", recibe un carácter y devuelve su código ASCII, un entero entre 0 y 255 (incluidos). Es la función inversa de la función chr.

	alert(asc("@"))		//	Muestra el entero 64.

ascat

La función "ascat", otorga el código ASCII de un carácter de la cadena que se le envía.

	alert(ascat("Hola", 1))	//	Muestra  el código ASCII de la letra "o", = 111

chr

La función "chr", recibe un entero entre 0 y 255 (incluidos) y devuelve un carácter cuyo código ASCII es el número que se le envía. Es la función inversa de la función asc.

	alert(chr(65))		//	Muestra la letra "A".

chrat

La función "chrat", otorga un carácter de la cadena que se le envía.

	alert(chrat("Hola",1))	//	Muestra la letra "o"

hashver

La función "hashver", calcula un número "hash" (o CRC, suma de comprobación) único a partir de una cadena que se le envía como parámetro.

	alert(hashver("fuego"))		//	Muestra -498913163

hextostr

La función "hextostr", recibe una cadena previamente creada con la función strtohex (realiza la tarea inversa a esa función).

	var cadena1=strtohex("@$")	//	cadena1 vale ahora la cadena "4024"

	alert(hextostr(cadena1))	//	Muestra la cadena "@$".

isinsideof

La función "isinsideof", determina si los primeros caracteres de una cadena coinciden con los de otra cadena que también se le envía.

La utilidad de esta función surge de su velocidad para determinar si parte de una cadena coincide con otra, porque otro código que realice ésta tarea seguramente sea mucho más lento. Su rendimiento es notable cuando se llama a la función miles de veces por segundo.

	alert(isinsideof("017-Ocean - Dreams", "-Ocean ", 3))

		//	Determina si la cadena "-Ocean" está en la cadena "017-Ocean - Dreams" a partir de
		//		la posición 3 (Verdadero).

ke_hashxlen

La función "ke_hashxlen", devuelve una cadena "hash" (única y no convertible en la cadena origen por función recíproca), a partir de la cadena origen. La longitud de la cadena de salida puede especificarse y los caracteres de la misma pertenecen a todo rango del código ASCII (del 0 al 255 incluidos).

La utilidad de esta función reside en su capacidad de devolver una cadena "binaria" de longitud arbitraria, al tiempo que proporciona un método "fuerte" de cálculo de la cadena de salida (y tiene considerable lentitud).

	// Muestra una cadena "hash" (similar a la que genera la función "md5hash", más información: buscar "rfc1321" en Internet).


	alert(strtohex(ke_hashxlen("Programando con TEIMSI", 16)))

lcase

La función "lcase", convierte los caracteres de una cadena en minúscula.

	alert(lcase("PROGRAMA"))		//	Muestra "programa"

left

La función "left", devuelve una cadena que constituye la parte izquierda de otra cadena.

	alert(left("UltraRayo", 5))		//	Muestra la cadena "Ultra".

len

La función "len", devuelve un entero con la longitud de una variable tipo cadena de TEIMSI.

	alert(len("numero"))		//	Muestra "6"

ltrim

La función "ltrim", quita los espacios y tabuladores de la parte izquierda de una cadena devolviendo la cadena resultante.

	alert("Este es un " + ltrim("	  	texto"))		// Muestra "Este es un texto"

makestring

La función "makestring", crea una cadena de la longitud deseada que contiene todos sus caracteres de valor igual a chr(0).

	alert(len(makestring(29)))		// Muestra "29"

replace

La función "replace", reemplaza en una cadena cierta coincidencia por otra cadena.

	alert(replace("ola", "o", "Ho"))

right

La función "right", devuelve una cadena que constituye la parte derecha de otra cadena.

	alert(right("UltraRayo", 4))		//	Muestra la cadena "Rayo".

rtrim

La función "rtrim", quita los espacios y tabuladores de la parte derecha de una cadena devolviendo la cadena resultante.

	alert("Este es un " + rtrim("texto	  	") + " pequeño")		// Muestra "Este es un texto pequeño"

scrc16b

La función "scrc16b", crea una cadena única (CRC) a partir de otra. La longitud de la cadena es de cuatro caracteres hexadecimales (números y letras A,B,C,D,E,F)

		function s16b_crc($encs){
			$rslt = 799477;
			for($i=0;$i<strlen($encs);$i++){
				$rslt = $rslt ^ (ord($encs[$i])*175 + (($i*3+171)^7977) ) ;
			}
			$rslt=$rslt-65536*floor($rslt/65536);
			$rslt1=floor($rslt/256);
			$rslt2=$rslt-256*$rslt1;

			$s1="00".dechex($rslt1);
			$s2="00".dechex($rslt2);

			return( substr($s1, len($s1)-2, 2) . substr($s2, len($s2)-2, 2)     );
		}

	

	alert(scrc16b("hola"))		//	Muestra "3787"

setascat

La función "setascat", escribe sobre una cadena un cáracter en la cadena especificada, cuya posición de escritura y código ASCII del carácter se especifica. La lectura de dicho valor se realiza con la función ascat.

	var cad1="Océani"

	setascat(cad1, 5, 111)

	alert(cad1)					//	Muestra la cadena "Océano".

	alert(setascat("Océuno", 3, 97))		//	Muestra la cadena "Océano".

setchrat

La función "setchrat", devuelve una cadena que surge de escribir un carácter en una cadena de entrada en una posición de escritura especificada. La lectura de dicho carácter se realiza con la función chrat.

	var cad1="Océani"

	setchrat(cad1, 5, "o")

	alert(cad1)					//	Muestra la cadena "Océano".

	alert(setchrat("Océani", 5, "o"))		//	Muestra la cadena "Océano".

str_count

La función "str_count", recibe dos variables tipo cadena de TEIMSI y determina la cantidad de veces que la segunda cadena se encuentra dentro de la primera (exceptuando interposiciones).

		alert(str_count("1111222211112222", "11"))		//	Muestra el número 4.

str_repeatn

La función "str_repeatn", crea una cadena repitiendo otra de entrada cuya cantidad de repeticiones se indica con un entero como el primer parámetro.

	alert(str_repeatn("*", 12))		//	Muestra la cadena "************"

str_overwrite

La función "str_overwrite", sobrescribe una parte de una varible tipo cadena. Recibe como el primer parámetro una variable pública o, local a una función TEIMSI y una segunda variable tipo cadena cuyos caracteres (bytes) se escribirán en la primera. El tercer parámetro es un entero largo (con signo) con el desplazamiento en la primer cadena a partir de donde se iniciará la escritura. Admite cadenas de hasta 2147483647 (es decir 2**31 - 1) bytes.

	var cadena1="onda de propagación"

	str_overwrite(cadena1, "en interacción", 5)

	alert(cadena1)

//Ejemplo 2

	//    El propósito de la función es acelerar el proceso de cambiar parte de una cadena en lenguaje TEIMSI, de otra manera sería una tarea lenta. Como en el siguiente ejemplo cuya meta es el cambio de la palabra "-centro-" por la "-cadena-" en una variable cadena conocida. 

	var cadena1="izquierda-centro-derecha"

	var buscar  = "-centro-"
	var cambiar = "-cadena-"

	var p=strpos(cadena1, buscar, 0)

	//	Opción 1 (lenta)

		cadena1=substr(cadena1, 0, p) + cambiar + substr(cadena1, p+len(buscar), -1)

	//	Opción 2 (rápida)

		str_overwrite(cadena1, cambiar, p)

str_reverse

La función "str_reverse", crea una cadena en la que se ha invertido la posición de los caracteres de una cadena de entrada (haciendo que los primeros caracteres aparezcan a lo último y los últimos aparezcan como primeros).

	alert(str_reverse("sohcum"))		//	Muestra la cadena "muchos"

strpos

La función "strpos", busca una cadena dentro de otra apartir de la posición especificada.

	alert(strpos("hola mundo", "ola", 0))		// Muestra "1"
	alert(strpos("hola mundo", "ola", 2))		// Muestra "-1"

strposrev

La función "strposrev", busca una cadena dentro de otra apartir de la posición especificada desde el final hacia el inicio.

	alert(strposrev("hola ola.", "ola", 1000000))	// Muestra "5"
	alert(strposrev("hola ola.", "ola", 3))		// Muestra "1"

strtohex

La función "strtohex", convierte una cadena en otra cuyos códigos ASCII de la primera están pegados, notación hexadecimal y con longitud de 2 bytes.

	alert(strtohex("@$"))	//	Muestra la cadena "4024", observar que el código ASCII de "@" es 64 (40 en hexadecimal) y el de "$" es 36 (24 en hexadecimal).

substr

La función "substr", substrae parte de una cadena. Es similar a la función substring pero se distingue en el tercer parámetro.

	alert(substr("universo", 3, 5))		//	muestra la cadena "verso"

substring

La función "substring", substrae parte de una cadena. Es similar a la función substr pero se distingue en el tercer parámetro.

	alert(substring("universo2", 3, 8))		//	muestra la cadena "verso"

trim

La función "trim", quita los espacios y tabuladores de los costados de una cadena devolviendo la cadena resultante.

	alert("El electrón es " + trim("	  	un 		") + " leptón")		// Muestra "El electrón es leptón"

ucase

La función "ucase", convierte los caracteres de una cadena en mayúscula.

	alert(ucase("programa"))		//	Muestra "PROGRAMA"

loadszstring

La función "loadszstring" carga una cadena definida en la sección de datos del ensamblador, la cadena debe terminar con el carácter chr(0).

	place_idata{
		descripcion db "El espacio no está vacío.",0

	}
	var entero=0;
	_direct{
		mov [entero+reg.vo], (descripcion)
	}
	alert(_c34+loadszstring(entero)+_c34);		//	Muestra la cadena: "El espacio no está vacío."