Copiar caracteres de la derecha
RIGHT copia en la variable de salida, n caracteres de la cadena asignada a la primera variable de entrada, empezando por la derecha. El número de caracteres a copiar n se define la segunda variable de entrada (L).
Entrada
Primera entrada: cadena de entrada
Segunda entrada: número de caracteres a copiar, empezando por la derecha
Salida
Caracteres copiados
Si esta instrucción se utiliza con caracteres UTF-8, consultar las notas relativas a los caracteres UTF-8 en el tipo de datos STRING.
Si el número de caracteres a copiar es mayor que la cadena de entrada, se copiará la cadena entera en la variable de salida.
Si la cadena a copiar en la salida es más larga que la longitud definida para la variable de salida en el campo “Tipo”, solo se copian tantos caracteres como quepan en la variable de salida.Se activa la variable del sistema sys_bIsCarry.
si una cadena aplicada en la entrada o la salida es una cadena no válida.
si una cadena aplicada en la entrada o la salida es una cadena no válida.
si la cadena de salida es más larga que la longitud definida para la variable de salida en el campo "Tipo".
Todas las variables de entrada y de salida utilizadas para la programación de esta función han sido declaradas en la Cabecera de la POU. Se utiliza la misma cabecera de la POU para todos los lenguajes de programación.
VAR
sInput: STRING[15]:='abcd efg hijk';
(*sample string*)
iChar_number: INT:=4;
(*characters to be delivered*)
sResult: STRING[4]:='';
(*result here= 'hijk'*)
END_VAR
En este ejemplo se han declarado las variables de entrada (sInput y iChar_number). También se puede introducir directamente en la función, la cadena ('abcd efg hijk') y el número de caracteres a copiar. La cadena de caracteres debe ir entre comillas simples, tanto en la cabecera de la POU como en la función.
Empezando por la derecha se copian en la salida sResult el número de caracteres iChar_number (4 en este caso) de la cadena sInput ('abcd efg hijk’) > ('hijk’).
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 5 ;
NETWORK_BODY
B(B_F,RIGHT!,Instance,10,0,15,4,,?DIN?DL?C);
B(B_VARIN,,sInput,8,1,10,3,);
B(B_VARIN,,iChar_number,8,2,10,4,);
B(B_VAROUT,,sResult,15,1,17,3,);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
sResult:=RIGHT(IN := sInput, L := iChar_number);
LD |
sInput |
RIGHT |
iChar_number |
ST |
sResult |