file of, caracter de separación

[jonmendi]

muchas gracias lepe, pero (parezco el hombre de los peros) me temo que en turbo pascal no existe TStringList (o al menos yo no lo conozco). Lo único que se me ocurre es antes de escribir leer todo, añadir en el sitio adecuado la ristra que quiero y volver a escribir todo. Pero no me convence en absoluto.

Un saludo
Jon

[luisgutierrezb]

porque no pruebas a bajar el FreePascal? si mal no recuerdo ya tiene la clase de TStrings o TStringList,

otra opcion seria que hicieras el guardado de registros a mano, pero guardandolos como texto delimitado por comas, y donde cada registro es un renglon por ejemplo
"reg1campo1","reg1campo2","reg1Campo3","etc"
"reg2campo1","reg2campo2","etc","etc"

lo que si, es que es mas chamba, sin embargo, no dudo que haya por ahi una unidad ya hecha para leer y guardar datos en este formato...

[jonmendi]

gracis luisgutierrezb.
El free pascal ya lo tengo bajado, pero el problema es que el programilla que estoy haciendo yo lo tengo que importar a un proyecto bastante grande que está hecho en turbo pascal 7.0. Este proyecto he intentado pasarlo a free pascal, pero es más trabajo que matar una burra a pellizcos. por eso desistí.
Lo de los campos separados con comas tampoco me sirve, ya que tengo que dejar un fichero solo con los datos que yo le paso, pero sin comas ni nada. Si el registro es

  tRegistro = record
    nombre : string[15];
    apellido1 : string[30];
    telefono : string[9];
  end;

yo tengo que escribir en el fichero de texto

nnnnnnnnnnnnnnnaaaaaaaaaaaaaaaaaaaaaaaaaaattttttttt

y nada más que eso. Sin espacios ni comas ni nada de nada. El problema es que si tengo 2000 líneas de estas, y quiero modificar una, por distintos problemas de permisos y demás no puedo leer y escribir todo, por lo que no me srive un fichero de texto y usar readln writeln.
Muchas gracias a los que estáis mostrando tanto interés.
Un saludo
Jon

[[Lepe]]

Pues se acabó lo que se daba, esto tiene que funcionar en Turbo pascal, ya que usa las funcionies de bajo nivel del sistema operativo.

Edito: Las funciones las pillo de SysUtils, pero estarán en otra unidad de Turbo Pascal. THandle es un Entero largo.

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
var F:THandle;
    s: string[10];
    i:Integer;
begin
  if not sysutils.FileExists('c:\mio.txt') then
    F:= sysutils.FileCreate('c:\mio.txt')
  else
    f:= sysutils.FileOpen('c:\mio.txt',fmOpenReadWrite);

  if f>0  then
    ShowMessage('archivo abierto');

  s := 'texto 1';
  FileWrite(F,s,SizeOf(s));
  s := 'texto 2';
  FileWrite(F,s,SizeOf(s));
  s := 'texto 3';
  FileWrite(F,s,SizeOf(s));
  FileSeek(f,-(SizeOf(s)*2),1); // ir atrás en el fichero
{
  Al movernos tenemos que ir sumando los bytes que hay escritos
  realmente en el fichero. Multiplico por 2 para irme 2 "registros"
  hacia atrás, el primero es el "Texto 3", y al retroceder otro más
  me situo al principio de "texto 2", que se debe mostrar en el último
  ShowMessage
}
  FileRead(f,s,SizeOf(s));
  ShowMessage(s);
  FileClose(f);
end;

Espero que sea viable .

SAludos

[jonmendi]

muchas gracias lepe, pero.... me pasa solo a mi o en el archivo que crea escribe

texto 18@ texto 28@ texto 38@

a todo el mundo?
Precisamente son los "cuadraditos", las arrobas y demás signos los que quiero evitar.
No sé, estoy liado.
Un saludo y muchas grcias
Jon

[rafita]

Hola Jonmendi,
No sé si me he perdido un poco con el tema, pero creo que lo estais complicando demasiado.

Lo que tu necesitas es un fichero de texto, no de un tipo concreto, de esa forma te pondrá los datos que necesitas uno tras otro, sin separadores de campo. Únicamente tendrá el caracter de fin de registro, lo cual no te dará ningún tipo de problema con la otra aplicación que debe leer ese fichero.

Con lo que sí tienes que tener cuidado es con completar el tamaño de los campos, ya que al no ir separados por nada tienen que tener su longitud exacta. Me explico con un ejemplo hecho de cabeza:

var MiNombre, MiApellido, MiTelefono, LoQueGrabo, Espacios : String;
     FDisco :  Text; 
begin
   // Inicializa la variable Espacios con 50 de caracteres en blanco
   Espacios:=StringOfChar(' ', 50);
   // en Pascal estándar sería algo así:
   // Espacios:='';
   // for i:=1 to 50 do Espacios:=Espacios+' ';
  
   // asignar el fichero de texto y crearlo nuevo
  AssignFile(FDisco,'TuFichero.txt'); // no olvides ponerle la ruta
  {$I-} Rewrite(FDisco); {$I+}       //  lo abro borrando todo lo que tiene
  if IOResult<>0 then                   // esto controlaba si había algún error
    begin 
       ShowMessage('No encuentro el fichero');
       Exit;
    end;
  // haz el bucle para ir encontrando los datos, y dentro de él grabas el fichero de texto
    // MiNombre:=......
    // MiApellido:=......
    // MiTelefono:=.....

   // completo la línea de texto a grabar uniendo los campos
   LoQueGrabo:=MiNombre+Copy(Espacios,1,15-Length(MiNombre))
                    +MiApellido+Copy(Espacios,1,30-Length(MiApellido))
                    +MiTelefono+Copy(Espacios,1,9-Length(MiTelefono));
  Writeln(FDisco,LoQueGrabo);
  // fin del bucle 

  // cierra el fichero generado
   CloseFile(FDisco);

Ahora mismo no recuerdo los sentencias exactas que se utilizan en pascal estándar para trabajar con ficheros de texto, pero me suena que son exactamente las mismas que estas utilizando para los ficheros con tipo, es decir: reset y rewrite para abrirlos, readln y writeln para leer o escribir una línea,... si necesitas información más exacta te busco un ejemplo hecho con Turbo Pascal.

Saludos

[jonmendi]

muchas gracias rafita!
si yo tb opino que me estoy liando, pero.... que no encuentro solución!
El código que me envías lo tengo probado, pero hay un problemilla: cuando abres un fichero de texto con reset(F), no puedes escribir en el mismo, solo leer. Si lo abro con rewrite(F) me borra todo lo que haya, cosa que tampoco me interesa (por distintos motivos de permisos etc etc...), y el append no me sirve porque yo quiero modificar una línea en concreto. Por eso creo que no puedo usar un archivo de texto. En basic se que había un put y get que hacian lo que yo quiero, pero en turbo pascal .... pues que no me sale!

Muchas gracias a todos. Y ya es jueves, así que animo.
Jon