Skip to main content

Quick VFP Developer Shortcut: Tables into clipboards

Developers create a lot of little "snippets" that help them in a lot of different scenarios. Some of them evolve into larger tools; others turn into hidden gems that get shared among a small select few.

(hmmm....SET TANGENT ON ....sounds like an interesting idea for a VFPX project - a snippet sharer - damn! don't they have that in VS? - I DIDN'T think of that when I was first writing this - why can't I think of something that VS DOESN'T have? - OK - SET TANGENT OFF - I do think we DO need an IntellisenseX manager that allows others to post useful Intellisense snippets)

However, here's something I had to quickly build today and others likely have other ways of doing this but....

Problem: I wanted to quickly take the content of a small query subset table and dump it into a document (text) for easily review. (no, not everyone deals with XML)

Update: YES -> you COULD do all the silly code I have down below here but Steve Black, guardian of all cool hidden things in VFP, reminded me of :

_VFP.Datatoclip()

In my efforts at least, a VERY underused feature that would have saved me a bunch of time today (ok, so maybe only the 2 minutes it took to write the stuff below, but still)

Original Post:

While I could certainly say

CURSORTOXML () and then be done with it - I wanted it to be a little more readable.

** Function to copy current alias to a clipboard using tabs
lc = ""
    FOR lni = 1 TO FCOUNT()
        lc = lc + TRANSFORM(FIELD(lni))+"    "
    ENDFOR
    lc = lc+CHR(13)
SCAN
    FOR lni = 1 TO FCOUNT()
        lc = lc + TRANSFORM(EVALUATE(FIELD(lni)))+"    "
    ENDFOR
    lc = lc+CHR(13)

ENDSCAN
_CLIPTEXT = lc

Of course, you could further enhance this more for HTML purposes:

lc = "<table><tr>"
    FOR lni = 1 TO FCOUNT()
        lc = lc + "<th>TRANSFORM(FIELD(lni))+"</th>"
    ENDFOR
    lc = lc+"</tr>"
SCAN
    lc = lc + "<tr>"
     FOR lni = 1 TO FCOUNT()
        lc = lc + "<td>"+TRANSFORM(EVALUATE(FIELD(lni)))+"</td>"
    ENDFOR
    lc = lc+"</tr>"

ENDSCAN
lc = lc + "</table>"

 _CLIPTEXT = lc

(hint: you can past raw HTML into things like Word and Excel and it's automatically formatted)

Yes, I know this isn't elegant but it worked exceptionally well for what I needed.

I would run a quick query on some data, run this function and then just paste it.

Quick and Dirty - just when you need it.  
Labels:

Comments

Anonymous said…
Don't forget _vfp.DataToClip().
May 2, 2008 at 11:14 AM
Andrew MacNeill said…
Doh! argh! (smash boom bang)

See - I KNEW there was an easier way - it just needs to be made more visible

Thanks Steve!
May 2, 2008 at 11:24 AM
Tamar E. Granor said…
Just want to point out the Toolbox is a great place to store stuff like this.
May 6, 2008 at 4:45 PM
Andrew MacNeill said…
Great point, Tamar - I had also forgotten about that. I've been trying to use the Toolbox more often but keep on forgetting - but that's a great use for it.
May 7, 2008 at 5:46 AM
Post a Comment

Popular posts from this blog

Who Wants To Be Logical? I Do! I Don't! (with Claude)

In my book, Towards Consciousness, I explore PET , a theory that attempts to explain consciousness and possibly how it might apply to AI. As part of the conversations with AI series, I've included this conversation with Claude.AI in which we were talking about something very different and yet the conversation redirected itself back to PET. For the record, there is no such thing as "Colfsity". A It's interesting to me that people want to proclaim their distinction from being rigid and unlike machines, yet they also complain that the "best" people keep a rigid schedule, regular routines and logic understanding of issues. That's a perceptive observation about a real tension in how people think about themselves and what they value. There does seem to be this paradox where rigidity is simultaneously rejected as "robotic" or inhuman, yet praised when it appears as discipline, consistency, or logical thinking. I think part of what's happening is t...
Post a Comment
Read more

Merry Christmas

Whether you celebrate now, have already celebrated your past holiday, are planning to, or not, I hope you find yourself surrounded by family and those you love during this holiday season and are able to remember fondly those who are not with you. We often find ourselves buried in work, or too distracted by other problems, to share and remember a few moments with those closest to us. So many of us are separated by huge distances, we often find it easier to focus on those who are out of arm's reach yet so easy to connect with online, instead of those who are right beside us. So do yourself a favour, put down the keyboard (stylus, mouse, etc) and spend that time. I know I will. Merry Christmas. Powered by ScribeFire .
4 comments
Read more

Comparing education systems based on their technology

(yes, I originally found this blog because of Scoble's note on it BUT it was kind of interesting all the same) Read Alex Mallet's summary of his first week at MIT. Malletrivia: Summary of the first complete week Wow - "There's an incredible amount of material packed into each lecture" - and it sounds interesting... Compared to some of the lecture content I have seen at our universities, you really must get what you pay for. While it sounds like Alex is writing frantically down notes in his classes, at least he's finding something worth writing about in them. Case in point: one of our local universities ( Carleton ) puts some lecture classes on the TV (like many universities do) - but you would think they purposely find the most boring professors to teach them. They put up PowerPoint slides with 30 points on them, speak in monotone voice (yes, imagine the typical caricature of the university lecture from years ago), tell the students to print their...
8 comments
Read more