Copia / Colar no HARBOUR

[leandrolinauer]

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

[JoséQuintas]

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

[leandrolinauer]

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

[Jairo Maia]

Olá Pessoal,

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.

[alxsts]

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?

[JoséQuintas]

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.

[alxsts]

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...

[Jairo Maia]

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.

[JoséQuintas]

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.

[JoséQuintas]

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 ;

[Jairo Maia]

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

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

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

[alxsts]

Olá!

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.

[JoséQuintas]

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

[alxsts]

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?

[JoséQuintas]

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.