Tras probar...
Hola de nuevo ecfisa, tardé en contestar porque estuve probando lo que tuviste atención de ayudarme (;, tuve algunos detalles para mostrar en mi grid el archivo cargado. Porque me lo mostraba todo en una sola línea....aunque si me respetaba mis campos en blanco.
Tras otras pruebas y modificaciónes, me encontré con una cadena dentro de mi archivo :
Cita:
6,18042012,Abono,13,00,666,,,"8,671.00",06666666,
|
Y con la solución que me enviaste, me ponia en una columna "8 y en otra 671.00 porque
el delimitador es la "," esto teoricamente estaba bien porque respetaba el delimitador, pero en mi caso estaba mal porque es una cantidad completa...
Lo que hice fue lo siguiente :
Código Delphi [-]procedure TForm1.BAbrirClick(Sender: TObject);
function ExtractStrings1(Separators, WhiteSpace: TSysCharSet; Content: PChar;
Strings: TStrings): Integer;
var
Head, Tail: PChar;
EOS, InQuote: Boolean;
QuoteChar: Char;
Item: string;
begin
Result := 0;
if (Content = nil) or (Content^=#0) or (Strings = nil) then Exit;
Tail := Content;
InQuote := False;
QuoteChar := #0;
Strings.BeginUpdate;
try
repeat
while Tail^ in WhiteSpace + [#13, #10] do Inc(Tail);
Head := Tail;
while True do
begin
while (InQuote and not (Tail^ in ['''', '"', #0])) or
not (Tail^ in Separators + [#0, #13, #10, '''', '"']) do Inc(Tail);
if Tail^ in ['''', '"'] then
begin
if (QuoteChar <> #0) and (QuoteChar = Tail^) then
QuoteChar := #0
else QuoteChar := Tail^;
InQuote := QuoteChar <> #0;
Inc(Tail);
end else Break;
end;
EOS := Tail^ = #0;
if (Head <> Tail) and (Head^ <> #0) then
begin
if Strings <> nil then
begin
SetString(Item, Head, Tail - Head);
Strings.Add(Item);
end;
Inc(Result);
end
else
begin
Strings.Add(' ');
end;
Inc(Tail);
until EOS;
finally
Strings.EndUpdate;
end;
end;
Var
i, filas : Integer;
Fichero : TStringList;
cadena : String;
const SaltoLinea = #13#10;
begin
If ODArchivo.Execute Then Begin
Fichero := Nil;
Try
Fichero := TStringList.Create;
Fichero.LoadFromFile(ODArchivo.FileName);
filas := Fichero.Count;
SGDatos.RowCount := filas;
filas := filas - 1;
for i:= 0 to filas do begin
ExtractStrings1([','], [' '], PChar(Fichero[i]), SGDatos.Rows[i]);
end;
Finally
Fichero.Free;
End;
End;
end;
Hice una pequeña modificacion a la funcion ExtractStrings original. Como te puedes dar cuenta en la linea .
Y asi me muestra ya mis campos como en el excel. ¿Crees que no tenga problema alguno con datos posteriores, el haber hecho esa modificación en la función? :S
Espero tu valioso comentario.
Un gran saludo y muchas gracias por demostrar tu interés y ayuda. Si tienes alguna observación o comentario para que mejore este asunto, te lo agradeceré demás.
P.D.:El archivo con datos incompletos es similar a este (.csv):
Cita:
No. Cliente:,22222222,
Nombre del Cliente:,INTERNACIONAL,
Fecha de la Consulta:,19042012,
Total de Cuentas:,1,
Movimientos,18042012,
Movimientos de Cargos:,0,
Movimientos de Abonos:,15,
Resumen General,
Nombre de la Cuenta:,F NORMAL,
Sucursal:,0000,
Cuenta:,'1111111',
Moneda:,Pesos,
Saldo Inicial:,+,"44,142.10",
Saldo Final:,+,"199,222.41",
Total de Número de Cargos:,0,
Total de Cargos:,0.00,
Total de Número de Abonos:,15,
Total de Abonos:,"150,377.36",
Detalle de Movimientos:,
Num,Fecha,Tipo,Código,Subcódigo,Sucursal,Referencia Numérica,Referencia Alfanumérica,Importe,Autorización,
1,18042012,Abono,15,00,1111,,FMC1111I,464.00,88888888,
2,18042012,Abono,07,32,2222,,464.00,0.00,99999999,
3,18042012,Abono,15,00,3333,,FMC10111,464.00,66666666,
4,18042012,Abono,07,32,4444,,464.00,0.00,88888888,
5,18042012,Abono,71,01,555,2222222,AUT. 11111 SER ELEC.,"103,000.00",01222222,
6,18042012,Abono,13,00,666,,,"8,671.00",06666666,
7,18042012,Abono,13,00,777,,,"3,389.06",03333333,
8,18042012,Abono,11,03,888,,,"4,841.06",02222222,
9,18042012,Abono,07,32,999,,"4,841.06",0.00,14444444,
10,18042012,Abono,11,03,000,,,"9,349.89",14444444,
11,18042012,Abono,07,32,777,,"9,349.89",0.00,15555555,
12,18042012,Abono,11,03,888,,,"4,951.44",18888888,
13,18042012,Abono,07,32,999,,"4,951.44",0.00,19999999,
14,18042012,Abono,13,00,666,,,"8,246.91",14444444,
15,18042012,Abono,11,00,555,,,"7,000.00",17777777,
|
__________________
"El mejor alimento del alma, es la inspiración de uno mismo.."
Última edición por Jetzuvely21 fecha: 24-05-2012 a las 19:16:02.
Razón: Por que no se mostró bien el codigo de delphi
|