Necesito ayuda con el manejo de archivos usando delphi 7

[mauser1985]

Gracias por la molestia pero no termino e entender lo que me respondiste, es decir en la parte visual pienso usar un edit un opendialog y los botones que hagan falta para cargar el archivo grabado en mi pc, no entiendo que variables declarar con el codigo que me diste y que elementos visuales deberia usar..

El rchivo de mi interes es algo asi...

****
****
*****
****
*Inicio
1 25 69,4 87,9
2 4,7 85 745,89
3 65,89 9,7 47,8
4 ......................
.
.
.
.
*fin
.
.
.
Como ya explique anteriormente necesito que la info entre (*iniio y *fin) sea grabada en otro archivo con una extension especifica en la cual vayan los valores port orden de numeros sin contar los primeros.
Gracias

[[coso]]

elementos visuales en principio ninguno, de variables (importantes aparte del contador) dos stringlist, el nombre del archivo a cargar, el numero de archivo a grabar y un string temporal. Mira, te lo pongo en pseudocodigo

Código Delphi [-]
 
funcion Grabar
{
           ls     StringList // stringlist donde cargaremos el archivo a analizar
           ls_g  StringList // stringlist que usaremos para grabar los trozos
 
           ls := TStringList.Create
           ls_g := TStringList.Create
 
           ls.LoadFromFile(nombre_de_archivo); // cargamos archivo
 
           i = 0
           num_archivo = 0
 
           mientras i menor que ls.Numero_de_lineas haz
             si ls[i] = '*inicio' entonces
             {
                  num_archivo = num_archivo + 1
                  ls_g.Clear
                  s = ls[i]
                  mientras (s diferente de '*final') y (i menor que ls.Count) haz
                  {
                      ls_g.Add(ls[i]
                      i = i + 1
                      s = ls[i]
                  }
                  ls_g.SaveToFile(nombre_archivo + inttostr(num_archivo) + '.ext');
              }
              si no i = i + 1
 
            ls_g.Libera // liberamos los objetos TStringList creados
            ls.free      //
}

[mauser1985]

Ok Gracias me parece que ese codigo si me ayudara pero aun tengo unos problemas pues soy novato en delphi.
No entiendo la parte de num_de_lineas y nom_archivo??? los declaro como una variable??? use un opendialog para localizar el archivo y sacar su ubicacion y escribir esta ubicacion en un edit.
Gracias

[[coso]]

num de lineas es el numero de lineas que hay en el stringlist (si miras la ayuda de delphi, buscando TStringList, la propiedad count) y si, num_archivo seria para dar un nombre diferente a cada bloque que grabas. Te recomiendo que repases el codigo y lo entiendas bien. saludos

[*Caro*]

Hola mauser1985, para la parte del OpenDialog debes utilizar su propiedad FileName en el cual esta toda la ruta de tu archivo que has elegido y luego abrilo en el StringGrid.

Código Delphi [-]
var
  ls    : TStringList; // stringlist donde cargaremos el archivo a analizar
  ls_g : TStringList; // stringlist que usaremos para grabar los trozos
  FileName : String;
begin
  ls := TStringList.Create
  ls_g := TStringList.Create
  if OpenDialog.Execute then
   begin
     FileName := OpenDialog.FileName;
 
     ls.LoadFromFile(FileName); // cargamos archivo
     
     .........................
     .........................
   end;

Saluditos

[*Caro*]

Hola de nuevo, también lo puedes hacer de esta forma, no lo estoy escribiendo de cabeza pero si de memoria.

Código Delphi [-]
var
  slFile    : TStringList; // stringlist donde cargaremos el archivo a analizar
  slFileNuevo  : TStringList; // stringlist que usaremos para grabar los trozos
  FileName   : String;
  NumeroFile : Integer; 
  flgInicio, flgFin : Boolean; //Banderitas que nos serviran para saber cuando tenemos un inicio o fin
begin
  slFile := TStringList.Create;
  slFileNuevo := TStringList.Create;
  if OpenDialog.Execute then
   begin
     FileName := OpenDialog.FileName;
 
     slFile.LoadFromFile(FileName); // cargamos archivo
     
     flgInicio := False;
     flgFin := False;
     NumeroFile := 1;
 
     for i:=0 to slFile.Count-1 do
      begin
        if slFile[i]='*Inicio' then
          flgInicio := True;
 
        if (slFile[i]='*Fin' then
          flgFin := True;  
        
        if (flgInicio=True) and (flgFin=False) then //esto lo puedes simplificar, pero es solo para que se entienda
         slFileNuevo.Add(slFile[i+1]); //añadimos en el nuevo
 
        if  flgFin=True then //grabamos en el archivo
         begin
            slFileNuevo.SaveToFile('NombreArchivo'+NumeroFile+'.txt');
            flgInicio := False;
            flgFin := False;
            Inc(NumeroFile); 
         end;//if
      end;//for
      .................
      .................         
   end;

Saluditos

[mauser1985]

Hola Caro de verdad que muchas gracias, con ese codigo me ayudare para terminar el programa aunque debo descifrar aun como hacer para que la primera columna de numeros no me aparesca y aun no veo el porque el ultimo marcdor (*final) aun me aparece en el archivo final