Jump to content


Photo

copiar excel clipboard a ClientDataset

excel clipboard dataset

  • Please log in to reply
2 replies to this topic

#1 look

look

    Advanced Member

  • Miembros
  • PipPipPip
  • 418 posts
  • LocationLa Ceiba-Atlantida-Honduras

Posted 21 November 2018 - 11:13 AM

Hola amigos, tengo estos datos en un excel.

 

ex.png

 

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


delphi
  1. procedure TFrmGenPre.btnPegarClick(Sender: TObject);
  2. var
  3. Str: string;
  4. begin
  5.  
  6. if Clipboard.HasFormat(CF_TEXT) then
  7. begin
  8.  
  9. Str := Clipboard.AsText;
  10.  
  11. end;
  12.  
  13. end;

alguien me hecha una mano?


  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14448 posts
  • LocationMéxico

Posted 21 November 2018 - 05:37 PM

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

 

Saludos :)


  • 0

#3 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4107 posts
  • LocationMadrid - España

Posted 23 November 2018 - 12:49 AM

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.

 

  • 1





Also tagged with one or more of these keywords: excel, clipboard, dataset

IP.Board spam blocked by CleanTalk.