Jetzuvely21
23-05-2012, 23:00:17
Hola a todos!!
Escribo para preguntarles sobre una duda que me ha traido de cabeza, he leido ya los post e hilos del foro en lo que refiere a importar archivos a delphi. Estoy programando en Delphi5 y archivos .csv .Ya tengo la importación, mi problema ahora radica en que si tengo en mi archivo:
1,18042012,Abono,15,00,6446,,FMC1998I,464.00,00075272,
2,18042012,Abono,07,32,6446,,,464.00,0.00,00075272, En mi StringGrid los datos los mueve de columna por los campos en blanco. He probado
la función de:ExtractStrings([','],[], PChar(Strings[i]), StringGrid1.Rows[i]);
para los delimitadores y si funciona bien cuando tengo todos los campos completos.
Todo lo que hasta ahorita llevo lo he aprendido de este maravilloso Foro y de los hilos que muchos de los usuarios han posteado, asi como las sugerencias y dudas que han tenido, los cuales me han servido de mucho y ayudado también, pero no sé como poder resolver esto =(.
El archivo .csv me lo pasan así con esos datos y campos.
Espero de verdad me puedan orientar y ayudar, ¡se los agradeceria mucho!
Saludos, Karen
ecfisa
23-05-2012, 23:18:18
Hola Karen.
Espero haberte entendido bién, proba si te funciona de este modo:
procedure PasarAStrGrd(const Cad: string; const aRow: Integer; aGrid: TStringGrid);
var
i: Integer;
TS: TStrings;
begin
with TStringList.Create do
try
DelimitedText:= Cad;
Delimiter:= ',';
for i:= Count-1 downto 0 do
if Strings[i] = '' then
Strings[i] := ' ';
aGrid.ColCount:= Count-1; // (*)
for i:= 0 to Count-1 do
aGrid.Cells[i + aGrid.FixedCols, aRow]:= Strings[i];
finally
Free;
end;
end;
Llamada de prueba:
procedure TForm1.Button1Click(Sender: TObject);
var
Cadena: string;
begin
Cadena:= '1,18042012,Abono,15,00,6446,,FMC1998I,464.00,00075272,2,18042012,Abono,07,32,6446,,464.00,0.00,0007 5272,';
PasarAStrGrd(Cadena , 1, StringGrid1);
end;
Saludos. :)
Edito: (*) Esta línea la usé para garantizar que existan en el StringGrid tantas columnas como campos se le envían. La podés quitar si ya tenes definido con anterioridad cuantas columnas serán. ( si hay algo en lo que no fuí claro por favor decime )
Jetzuvely21
23-05-2012, 23:34:11
¿Y exactamente el problema que tienes cual es?
Gracias por interesarte, lo que pasa es que al leer mi archivo .csv tengo algunos campos en blanco
como puse en un principio:
1,18042012,Abono,15,00,6446,,FMC1998I,464.00,00075272,
2,18042012,Abono,07,32,6446,,,464.00,0.00,00075272,
y al mostrarlos en el StringGrid me los pone en la columna que no corresponde, es decir los recorre a la izquierda.
ecfisa
24-05-2012, 02:15:38
Hola Karen.
Y bueno... si no la trae, no nos queda más remedio que hacerla :)
Una opción para que pruebes si funciona en Delphi 5:
...
(* Esta función reemplaza a DelimitedText/Delimiter *)
function SplitString(Cadena: string; const Delimitadores: string): TStrings;
var
c,i,p:Integer;
s: string;
begin
Result:= TStringList.Create;
Cadena:= Cadena+Delimitadores[1];
c:= 0;
p:= 1;
for i:= 1 to Length(Cadena) do
begin
if Pos(Cadena[i], Delimitadores) <> 0 then
begin
s:= Copy(Cadena, p, i-p);
Result.Add(s);
p:= i + 1;
Inc(c);
end;
end;
end;
(* Separar por comas *)
procedure PasarAStrGrd(const Cad: string; const aRow: Integer; aGrid: TStringGrid);
var
i: Integer;
TS: TStrings;
begin
TS:= TStringList.Create;
try
TS:= SplitString(Cad, ','); // Aca la llamamos con el delimitador ','
for i:= 0 to TS.Count-1 do
aGrid.Cells[i + aGrid.FixedCols, aRow]:= TS[i];
finally
TS.Free;
end;
end;
Llamada de ejemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
Cadena: string;
begin
Cadena:= '1,18042012,Abono,15,00,6446,,FMC1998I,464.00,00075272,2,18042012,Abono,07,32,6446,,464.00,0.00,0007 5272,';
PasarAStrGrd(Cadena , 1, StringGrid1);
end;
La función que hice tiene la ventaja que podés pasarle varios delimitadores, por ejemplo:
Cadena:= 'ho.la,m/un do';
ListBox1.Items:= SplitString(Cadena, ', -./');
Saludos. :)
Jetzuvely21
24-05-2012, 19:10:14
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 :
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 :
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 Strings.Add(' ');.
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):
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,
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.