PC Toledo

Enviado: **03 Jun 2022 16:59**

Boa tarde.
Então, infelizmente tem que ser o ";" porque o copiar e colar é propriamente para o e-mail.
Ocorre o seguinte resumidamente.
teste@gmail.com;outro@gmail.com;oumais@gmail.com (copiar ctrl+c da internet ou outro lugar)
e colar no sistema no campo email (char(350))
No harbour 3.2 cola perfeitamente com a função la em cima descrita.
mudei para harbour 3.4 e ao colar agora não cola mais os emails todos dentro do campo posicionado.
Ele cola teste@gmail.com no campo que estou no caso email com 350 de espaço disponivel e os demais de campo em campo pra frente
outro@gmail.com no próximo campo
oumais@gmail.com no outro seguinte
ele simplesmente não cola o texto todo dentro do campo, mas se eu trocar por "," ele cola certinho dentro do campo.
ou seja, o problema surgiu no 3.4 com o ";" que não funciona corretamente ou tem algum maçete para resolver.
Bom, era para resumir, mas não deu. rsrsrsrs

Grato

Enviado: **03 Jun 2022 17:38**

Nunca reparei nisso, mas confirmei aqui e acontece isso mesmo.
Inclusive num MemoEdit(), ao colar o ponto e vírgula divide em linhas.

Enviado: **04 Jun 2022 10:34**

Bom dia Quintas.
Então realmente existe um problema aí no harbour 3.4 quanto a isto aí, quanto ao restante resolveu todos os meus problemas até de criação de arquivos temporários, que dava erro do nada, pelo que vi até agora nenhuma falha no sistema mais.
Agora é achar uma solução para este impasse, e o problema esta no COLAR no harbour, pq se copiar do sistema com ';' e colar em um bloco de notas e copia e cola certinho, só não cola certo no harbour.

Blz, vou estudar este problema e ver se encontro solução.
Valeu

Enviado: **04 Jun 2022 11:36**

Olá Pessoal,

JoséQuintas escreveu:Inclusive num MemoEdit(), ao colar o ponto e vírgula divide em linhas.

Não uso o Harbour 3.4, mas acompanhando esse tópico inicialmente achei que pudesse ser algo no GetSys.Prg, mas se no MemoEdit também ocorre, então na minha opinião o bug está na função WVW_GetClipboard(), que está transformando o ";" em quebra de linha.

Enviado: **04 Jun 2022 15:39**

Olá!

O campo que recebe o valor do clipboard tem espaço suficiente para caber o conteúdo?

O que acontece se existir apenas um get na tela e fizer o Control-V nele?

Enviado: **05 Jun 2022 01:33**

Digamos 10 GETS de 100 caracteres cada.
colar 1;2;3;4;5;6;7;8;9;10; vai colocar um valor em cada GET.

Enviado: **05 Jun 2022 14:39**

Olá!

Isto ficou claro.

Quero saber o que acontece se houver apenas um get de cem posições e nele se colar 1;2;3;4;5;6;7;8;9;10

Se funcionar, é possível executar uma função no WHEN. Esta função receberia como parâmetro o get atual. Criaria um getlist separado com o get recebido no parametro, faria o READ, atualizaria o get original e retornaria falso...

Enviado: **05 Jun 2022 15:29**

alxsts escreveu:Quero saber o que acontece se houver apenas um get de cem posições e nele se colar 1;2;3;4;5;6;7;8;9;10

Sim! Funciona! Perfeitamente!!! Mas no Harbour 3.2 ou inferior.

O objeto nesse tópico é em relação ao Harbour 3.4, e nele: "BUG".... Não funciona!!!!

Por essa razão, ainda continuo achando que o bug é na funcão: WVW_GetClipboard() do Harbour 3.4.

Enviado: **05 Jun 2022 21:35**

Jairo Maia escreveu:Por essa razão, ainda continuo achando que o bug é na funcão: WVW_GetClipboard() do Harbour 3.4.

Seria, se fosse ela que estivesse sendo usada.

Enviado: **05 Jun 2022 21:47**

No CORE do Harbour 3.4:

Código: Selecionar todos

FUNCTION OL_WinCBCopy()
   RETURN hb_gtInfo( HB_GTI_CLIPBOARDDATA )

FUNCTION OL_WinCBPaste( cText )

   IF HB_ISSTRING( cText )
      hb_gtInfo( HB_GTI_CLIPBOARDDATA, cText )
      RETURN .T.
   ENDIF

   RETURN .F.

Sei não, acho que está considerando texto CSV e/ou DELIMITED WITH ;

Enviado: **05 Jun 2022 22:09**

JoséQuintas escreveu:Seria, se fosse ela que estivesse sendo usada.

E está! Pelo menos foi o que disse o autor do tópico na primeira mensagem que abriu esse tópico: Copia / Colar no HARBOUR

JoséQuintas escreveu:Sei não, acho que está considerando texto CSV e/ou DELIMITED WITH ;

Pois é... Considerando o ";" como quebra de linha (ENTER)...

Enviado: **05 Jun 2022 22:19**

Olá!

Jairo Maia escreveu:Sim! Funciona! Perfeitamente!!! Mas no Harbour 3.2 ou inferior.

Eu sei Jairo.

Vou reformular minha pergunta: quero saber o que acontece, NO HARBOUR 3.4, se houver apenas um get de cem posições e nele se colar 1;2;3;4;5;6;7;8;9;10

Não tenho como testar por não ter o Harbour 3.4 instalado e nem vou instalar.

Enviado: **06 Jun 2022 00:33**

Mesma coisa, não tem a ver com quantidade de GETs.

Enviado: **06 Jun 2022 01:12**

Olá!

Você testou? Ele coloca no get apenas o trecho da string antes do primeiro ponto e vírgula? É isto? Ou coloca a string toda?

Enviado: **06 Jun 2022 09:10**

Como eu disse, mesma reação.
Significa que é introduzido um ENTER no lugar do ponto e vírgula.
Isso lembra CSV, campos delimitados por ponto e vírgula.
E isso foi introduzido no CORE, e não em uma lib específica, o que complica fazer alguma mudança.