2 replies to this topic

[look]

Hola amigos, tengo estos datos en un excel.

 

 

lo que quiero hacer es seleccionar esos registros y pegarlos en un ClientDataset,

delphi

procedure TFrmGenPre.btnPegarClick(Sender: TObject);
var
  Str: string;
begin
 
  if Clipboard.HasFormat(CF_TEXT) then
  begin
 
    Str := Clipboard.AsText;
 
  end;
 
end;

alguien me hecha una mano?

[egostar]

Así a bote pronto usaria un StringList y despues vaciarlo a un dataset..

 

Saludos

[escafandra]

Te voy a dar una pista para que puedas interpretar el resultado del Texto que se copia en el ClipBoard desde Excel.

1º Se copian filas se texto.

2º Cada elemento de la fila (Campo Columna) termina con un separador tabulador: Carácter $09,

3º Cada fila termina con un CR + LF ($0D + $0A)

 

De este modo, en tu ejemplo en la primera linea tendrías:

'101380'+$09 + '1700' + $0D + $0A

 

Ahora solo tienes que recorrer el texto para encontrar tabuladores ($09) que separan los campos y encontrar los finales de línea($0D+$0A) para encontrar el fin del registro

 

Saludos.