Problema con salto de linea, ayuda please!

[jorgegetafe]

He puesto lo que me habeis dicho y el programa no funciona, os paso el codigo a ver si me podeis ayudar, lo que quiero es que cuando encuentre un 'do' y luego venga un salto de carro lo transforme a 'DO'

Código Delphi [-]
UNIT unit_do;

INTERFACE

  TYPE
    fichero = text;

  VAR
    f, FF: fichero;
    nombreFichero: STRING;
    letra1, letra2, letra3: char;

PROCEDURE MAYUSdo (VAR f, FF: fichero; nombreFichero:STRING);

IMPLEMENTATION

PROCEDURE MAYUSdo (VAR f, FF: fichero; nombreFichero:STRING);
  BEGIN
    WHILE (NOT eof (f)) DO
      BEGIN
        read (f, letra1);
        IF letra1 = 'd' THEN
          BEGIN
            read (f, letra2);
            IF letra2 = 'o' THEN
              BEGIN
                read (f, letra3);
                IF letra3 = #10 THEN
                  BEGIN
                    write (FF,'D');
                    write (FF, 'O');
                    write (FF, ' ');
                  END
                ELSE
                  BEGIN
                    write (FF, letra1);
                    write (FF, letra2);
                    write (FF, letra3);
                  END;
              END
          ELSE
            BEGIN
              write (FF, letra1);
              write (FF, letra2);
            END;
        END
      ELSE
        write (FF, letra1);
    END;
    close (f);
    close (FF);

END;


END.

[[seoane]]

Me parece que no me explique bien, cuando dije que el salto de linea, en windows, se correspondía con los caracteres #13 y #10, me refería a que el salto de linea se representa por los dos juntos, primero el #13 y luego el #10.

Es decir:

Texto+#13+#10

Así que deberías de usar algo así, ya que el #13 es el primer carácter de los dos en aparecer:

Código Delphi [-]
IF letra3 = #13 THEN

De todas formas, ir leyendo letra a letra se me hace un método poco eficiente. Porque no pruebas con algo así, donde Str es una variable de tipo String:

Código Delphi [-]
  while not Eof(F) do
  begin
    Readln(F,Str);
    if Copy(Str,Length(Str)-1,2) = 'do' then
      Writeln(FF,Copy(Str,1,Length(Str)-2) + 'DO')
    else
      Writeln(FF,Str);
  end;

[jorgegetafe]

Gracias, quizás te entendí yo mal.

Voy a probar como tu me has dicho.

[jorgegetafe]

Ya he hecho lo que me has dicho de #10+#13, de esta forma si encuentra un 'do' lo convierte en 'DO', que es lo que quiero, he abierto el fichero resultante con el delphi y va de lujo, pero si la unidad se abre como un txt aparece 'DO' seguido de dos cuadritos. ¿Eso puede influir en el código? ¿Hay alguna manera de que no ocurra esto? gracias.

[[seoane]]

Supongo que sigues utilizando el código que pusiste antes, solo cambiaste el "if".

Pues el problema creo que esta parte del código:

Código Delphi [-]
IF letra3 = #13 THEN
BEGIN
  write (FF,'D');
  write (FF, 'O');
  write (FF, ' '); // <-- Aqui el problema
END

Cuando tienes un texto como este:
do+#13#10

Tu lo conviertes a esto:
DO+Espacio+#10

En delphi un simple #10 lo interpreta como un salto de linea, así que sigue funcionando. Pero el bloc de notas, por ejemplo, si que necesita de los dos, así que si solo encuentra un #10 en vez de cambiar de linea muestra un "cuadradito". Creo que el problema se solucionaría con algo así:

Código Delphi [-]
IF letra3 = #13 THEN
BEGIN
  write (FF,'D');
  write (FF, 'O');
  write (FF,#13); // <-- Aqui el cambio
END

[jorgegetafe]

Muchiiiiiiiiiiiiiiiisimas gracias, va de perlas.

Es que utilizo mi codigo porque me parece más sencillo (aunque si menos eficiente), y como el algoritmo no es muy complicado lo hace muy rápido.

Gracias por todo.