Procesar un Txt delimitado con TAB antes de Importar a un Database
 

Buen dia, Panas
Estoy tratando de hacer una interfaz que procese un txt delimitado by TAB, es decir, revizarlo verificar que tenga las columnas designadas, con los codigos de algunos valores correctos y luego, si todo esta bien en el txt.... importarlo al database (Access).

Tengo la duda hacerca del proceso de revicion, es decir he visto muchos ejemplos de abrir, leer y escribir en un txt file, pero de comprobar contenido y delimitacion no.

Agradezco cualquier colaboracion que puedan brindarme.
Dago Ariza
dago_ariza@altamaragency.com

No creo que haya mucho que puedas hacer. Estamos hablando de un archivo de texto donde cada línea es independiente del resto. Esto es, tu archivo puede tener 25,000 líneas formateadas a cuatro columnas excepto 1 de cada 100 líneas comenzando por la milésima donde esté escrito:

"Esta línea va a hacer que falle la exportación a tu tabla en Access"

¿Cómo revisas estas anomalías como no sea revisando cada una de las líneas del archivo? Y dado que de una u otra forma vas a tener que leer todas las líneas para exportarlas pienso que lo mejor sería irlas validando conforme las lees. Posiblemente te convenga que tu rutina de exportación simplemente descarte las líneas inválidas y continué con las restantes a fin de exprtar lo más posible sin estar avisando al usuario.

Claro que esto sólo es lo que pienso y puedo estar equivocado. Sería interesante trabajar con un archivo "dañado" a propósito y ver qué hace Access al importar el archivo.

// Saludos

ROMAN, Viejo gracias por tu atencion.
No entiendo muy bien lo que me dices, pero me gustaria darte una idea mas clara de mi inconveniente.

La forma de mis archivos es :
BL<TAB>COC<TAB>05/05/2004<TAB>8569<TAB>

Son 125 columnas que comprenden dicho archivo.
Con un TstringList puedo recorrerlo linea x linea, pero como hago para llevar cada columna de mi txt a una columna de un TStringrid por ejemplo. O hay alguna otra manera de hacer eso??
Lo que quiero es validarlo antes de cargarlo a mi databases, para verificar que sean datos correctos y codigos correctos, ya que esos archivos los recibimos de diferentes partes del mundo y pero todos manejamos algunos codigos standart para algunas cosas y otros son independientes por Pais.

Dago

Supongo que el amigo Román se referiría a algo así

Código Delphi [-]
var
  F: TextFile;
  L: TStrings;
  str: string;
begin
  L := TStringList.Create;
  try
    if not FileExists('Fichero') then
      raise Exception.Create('Fichero innexistente');

    AssignFile(F, 'Fichero');
    Reset(F);
    while not EOF(F) do
    begin
      Readln(F, str);
      if CadenaCorrecta(str) then
        Añadir_A_Access(str)
      else
        L.Add(str);
    end;
    CloseFile(F);
    if L.Count > 0 then
      L.SaveToFile('c:\errores.txt');
  finally
    FreeAndNil(L);
  end;
end;

La función CadenaCorrecta y el procedimiento Añadir_A_Access ya te los dejo implementar a ti ;)