Ins from ClipBoard to Xbrowse

[Silvio.Falconi]

I have this xbrowse




and I wish insert from clipbard into cell of browse , So how I can Make


sample of file on memory clipboard

Code: Select all  Expand view  RUN

88  59  5   46  44
48  88  20  50  26
83  10  86  27  78
85  42  87  4   19
13  6   49  4   8
87  20  5   84  33
66  37  28  16  50
71  62  5   87  66
86  24  8   59  58
14  31  37  5   76
83  11  2   39  47
 

[nageswaragunupudi]

Set

Code: Select all  Expand view  RUN

oBrw:nEditTypes := EDIT_GET
oBrw:lCanPaste := .t.

But the text in clipboard should be TAB delimited text.
XBrowse Paste works just like pasting into Excel.

Sample:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   AEval( aData, { |aRow,i| aRow[ 1 ] := Replicate( Chr( 64+i ), 4 ) } )
   XBROWSER aData SETUP ( oBrw:nEditTypes := EDIT_GET, oBrw:lCanPaste := .t. )

return nil

[Silvio.Falconi]

Set

Code: Select all  Expand view  RUN

oBrw:nEditTypes := EDIT_GET
oBrw:lCanPaste := .t.

But the text in clipboard should be TAB delimited text.
XBrowse Paste works just like pasting into Excel.

Sample:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   AEval( aData, { |aRow,i| aRow[ 1 ] := Replicate( Chr( 64+i ), 4 ) } )
   XBROWSER aData SETUP ( oBrw:nEditTypes := EDIT_GET, oBrw:lCanPaste := .t. )

return nil

here not work
the last xbrowse release make error asizerect I sent you a mail


it run only if I create a txt.txt and Import on Excel then the paste command on xbrowse run ok as you can see on this picture





But I wish copy from a websiste I explain you
I created the procedure for automatic updating from a particular website and it works well, but it is possible that in one day this address is changed or it no longer works (like all the free services that are disappearing) so the user will be forced to enter the extractions manually or copy them from a website

If the user wants to copy the extracts from a website, highlight the extracts on the website and then copy them into xbrowse

sample try - on https://www.estrazionedellotto.it/

I tried but not work

[Marc Venken]

Silvio,

With the changed program from Mr. Rao I was able to copy/paste from the site into Xbrowse directly.
The local aData was missing for the test.

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()
  local aData:={{"","","","",""},{"","","","",""},{"","","","",""},{"","","","",""},{"","","","",""}}

   AEval( aData, { |aRow,i| aRow[ 1 ] := Replicate( Chr( 64+i ), 4 ) } )
   XBROWSER aData SETUP ( oBrw:nEditTypes := EDIT_GET, oBrw:lCanPaste := .t. )

return nil

 

[Silvio.Falconi]

Silvio,

With the changed program from Mr. Rao I was able to copy/paste from the site into Xbrowse directly.
The local aData was missing for the test.

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()
  local aData:={{"","","","",""},{"","","","",""},{"","","","",""},{"","","","",""},{"","","","",""}}

   AEval( aData, { |aRow,i| aRow[ 1 ] := Replicate( Chr( 64+i ), 4 ) } )
   XBROWSER aData SETUP ( oBrw:nEditTypes := EDIT_GET, oBrw:lCanPaste := .t. )

return nil

 

Marc the adata is an empty array

If I copy this text on excel

Code: Select all  Expand view  RUN

88  59  5   46  44
48  88  20  50  26
83  10  86  27  78
85  42  87  4   19
13  6   49  4   8
87  20  5   84  33
66  37  28  16  50
71  62  5   87  66
86  24  8   59  58
14  31  37  5   76
83  11  2   39  47

and the make Copy and paste run ok on Xbrowse

If I copy the text from a websiste and I try to paste on Xbrowse it not work I pressed Crtl+V to paste

[Marc Venken]

Version 23.07

Here it works.

You have to give the cell focus and then past. Don't enter the cell and try to paste.

I noticed that when you give focus to the top/left cell and paste, all cells and rows are pasted.

The array don't need all the rows, but the columns it does. Xbrowse appends automaticaly the folowing rows (Smart xBrowse Mr. Rao ....)

[nageswaragunupudi]

the last xbrowse release make error asizerect I sent you a mail

Please delete these 4 lines in the method checksize()

Code: Select all  Expand view  RUN

  if ::aSizeRect != nil
      ::CalcSize()
      return nil
   endif
 

[nageswaragunupudi]

But I wish copy from a websiste I explain you
I created the procedure for automatic updating from a particular website and it works well, but it is possible that in one day this address is changed or it no longer works (like all the free services that are disappearing) so the user will be forced to enter the extractions manually or copy them from a website

If the user wants to copy the extracts from a website, highlight the extracts on the website and then copy them into xbrowse

sample try - on https://www.estrazionedellotto.it/

I tried but not work

[Silvio.Falconi]

But I wish copy from a websiste I explain you
I created the procedure for automatic updating from a particular website and it works well, but it is possible that in one day this address is changed or it no longer works (like all the free services that are disappearing) so the user will be forced to enter the extractions manually or copy them from a website

If the user wants to copy the extracts from a website, highlight the extracts on the website and then copy them into xbrowse

sample try - on https://www.estrazionedellotto.it/

I tried but not work

with xbrowse last release run ok