Ayuda a novato en un programa
Publicado por Eliecer (3 intervenciones) el 24/03/2014 06:15:23
Buen día. Estoy creando un pequeño programa que sirva para buscar y reemplazar una palabra (o parte de esta) por otra. El caso es que algo sale mal al querer usar la función "insert" para reemplazar la palabra, ya que me sale muchas veces la palabra reemplazada a la izquierda del texto ingresado. Agradecería mucho su ayuda... Dejo el código del programa para explicarme mejor:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program ins;
uses crt;
var
texto,pal1,pal2:string;
posi,x:integer;
begin
clrscr;
readln(texto); {Texto a ingresar. Ejemplo: Hernando Hernandez}
readln(pal1); {palabra a reemplazar. Ejemplo: 'Her'}
readln(pal2); {palabra a insertar. Ejemplo: 'Fer'}
for x:= 1 to length(texto) do
begin
posi:=pos(pal1,texto);
delete(texto,posi,length(pal1));
insert(pal2,texto,posi);
end;
writeln(texto);
readkey;
end.Valora esta pregunta
0
