Borrar caracteres de una cadena
DELETE borra L caracteres de la cadena IN comenzando en la posición P, donde 1 indica el primer carácter de la cadena. El resultado se guarda en la variable de salida.
Entrada
Cadena de entrada
Número de caracteres a borrar
Posición del primer carácter a borrar
Salida
Resultado
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 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
input_string: STRING[15]:='Ideas for life';
character_number: INT:=8;
start_position: INT:=6;
output_string: STRING[5]:='';
END_VAR
En este ejemplo se han declarado las variables de entrada (input_string, character_number y start_position). También se puede introducir directamente en la función, la cadena ('Ideas for life'), el número de caracteres a copiar y la posición del primer carácter a borrar. La cadena de caracteres debe ir entre comillas simples, tanto en la cabecera de la POU como en la función.
Se eliminan 8 caracteres (character_number) de la cadena de entrada input_string ('Ideas for life’) a partir del carácter start_position (6). La cadena resultante ('Ideas') se copia en output_string.
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,DELETE!,Instance,10,0,16,5,,?DIN?DL?DP?C);
B(B_VARIN,,input_string,8,1,10,3,);
B(B_VARIN,,character_number,8,2,10,4,);
B(B_VARIN,,start_position,8,3,10,5,);
B(B_VAROUT,,output_string,16,1,18,3,);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
output_string:=DELETE(input_string, character_number, start_position);