Qbasic

TUT.9. Instrucciones de manipulación de cadenas
TUT.9.1. ASC y CHR$, funciones

ASC devuelve el código ASCII correspondiente al primer carácter de una
expresión de cadena. CHR$ devuelve el carácter correspondiente al código ASCII especificado.

ASC(expresión-cadena$)
CHR$(código-ascii%)

[pic]expresión-cadena$: cualquier expresión de cadena.
[pic]código-ascii%: el código ASCII delcarácter deseado.

Ejemplo:

PRINT ASC("Q") 'Resultado: 81
PRINT CHR$(65) 'Resultado: A

TUT.9.2. HEX$ y OCT$, funciones

HEX$ devuelve una representación hexadecimal de cadena de un número. OCT$ devuelve una representación octal de cadena de un número.

HEX$(expresión-numérica&)
OCT$(expresión-numérica&)

[pic]expresión-numérica&: cualquier expresión numérica. Laexpresión será redondeada a un entero o entero largo antes de ser evaluada.

Ejemplo:

INPUT x
a$ = HEX$ (x)
b$ = OCT$ (x)
PRINT x; "decimal es "; a$; " hexadecimal y "; b$; " en octal."

TUT.9.3. INSTR, función

Devuelve la posición de la primera aparición de una cadena dentro de otra.

INSTR([inicio%,]expresión-cadena1$,expresión-cadena2$)
[pic]inicio%:establece la posición del carácter donde se iniciará la búsqueda. Si se omite inicio%, INSTR se iniciará en la posición 1.
[pic]expresión-cadena1$: la cadena en la que se realizará la búsqueda.
[pic]expresión-cadena2$: la cadena que será buscada.

Ejemplo:

a$ = "Microsoft QBasic"
PRINT "Posición de cadena ="; INSTR(1, a$, "Qbasic")

7.9.4. LCASE$ y UCASE$, funcionesConvierten cadenas en letras minúsculas (LCASE$) o letras mayúsculas (UCASE$).

LCASE$(expresión-cadena$)
UCASE$(expresión-cadena$)

[pic]expresión-cadena$: cualquier expresión de cadena.

Ejemplo:

Test$ = "LA cadena"
PRINT Test$
PRINT LCASE$(Test$); " en minúsculas"
PRINT UCASE$(Test$); " EN MAYUSCULAS"

TUT.9.5. LEFT$ y RIGHT$, funciones

Devuelven un númeroespecífico de caracteres al extremo izquierdo o derecho en una cadena.

LEFT$(expresión-cadena$,n%)
RIGHT$(expresión-cadena$,n%)

[pic]expresión-cadena$: cualquier expresión de cadena.
[pic]n%: el número de caracteres que devolverá como resultado, comenzando con el último carácter de la izquierda o de la derecha de la cadena.

Ejemplo:
a$ = "Microsoft QBasic"
PRINT LEFT$(a$, 5)'Resultado: Micro
PRINT RIGHT$(a$, 5) 'Resultado: Basic

TUT.9.6. LEN, función

Devuelve el número de caracteres en una cadena, o el número de bytes requeridos para almacenar una variable.

LEN(expresión-cadena$)
LEN(variable)

[pic]expresión-cadena$: cualquier expresión de cadena.
[pic]variable: cualquier variable que no sea de cadena.

Ejemplo:

a$ ="Microsoft QBasic"
PRINT LEN(a$)

TUT.9.7. LSET y RSET, instrucciones

LSET y RSET mueven datos, colocándolos en un buffer de archivo de acceso aleatorio (en preparación para una instrucción PUT) y alinean a la izquierda o a la derecha el valor de una variable de cadena. LSET también copia el contenido de una variable de registro en otra.

LSET variablecadena$=expresióncadena$
RSETvariablecadena$=expresióncadena$
LSET variableregistro1=variableregistro2

[pic]variablecadena$: cualquier variable de cadena o un campo de un archivo de acceso aleatorio definido en una instrucción FIELD.
[pic]expresióncadena$: para LSET, la versión alineada a la izquierda de variablecadena$. Para RSET, la versión alineada a la derecha de variablecadena$.
[pic]variableregistro1: variables deregistro de cualquier tipo de datos definido por el usuario.
[pic]variableregistro2: usaremos LSET para asignar una variable de registro de un tipo de datos a otro tipo de datos definido por el usuario.

Ejemplo:

OPEN "FILEDAT.DAT" FOR RANDOM AS #1 LEN = 10
FIELD #1, 5 AS Ls1$, 5 AS Rs1$
LSET Ls1$ = "LSET"
RSET Rs1$ = "RSET"
PUT #1, 1
CLOSE #1
OPEN...