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.  

Comments

Anonymous said…
Don't forget _vfp.DataToClip().
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!
Tamar E. Granor said…
Just want to point out the Toolbox is a great place to store stuff like this.
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.

Popular posts from this blog

Well, that explains CodePlex...

In a move that will be sure to anger open source (or rather anti-paid software, anti-Microsoft open source)  zealots, Microsoft is planning to buy GitHub . A year ago, I mused about why Microsoft would shut down CodePlex and how the world needs competing source code repositories to be strong. I'm not the only one per this Slashdot article  : "...   people have warned about GitHub becoming as large as it did as problematic because it concentrates too much of the power to make or break the open source world in a single entity, moreso because there were valid questions about GitHubs financial viability...." - Jacques Mattheij I will be interested in seeing this play out - whether developers jump ship or not. Have all the efforts Microsoft has made in pushing towards open source be seen as genuine or will all the zealots jump ship or maybe even attack? Microsoft's comment about why they shut down CodePlex referred to how spammers were using CodePlex. Well, GitHub

Attending Southwest Fox 2019 could change your life - Find out how

Southwest Fox is coming up in October and as I do every year, I spoke with the organizers Rick , Doug and Tamar on the FoxShow. Deadlines for Southwest Fox: Super-saver price (before July 1): $695 Early-bird price (before August 1): $770 Regular price (August 1 and later): $820 This year, I took a different approach with separate shows for each organizer but the main message is still the same : July 1st is their Go/No-Go date. Conferences don't talk about this very often. I don't think developers really question if Apple will hold their WWDC in June or Microsoft will hold their Build conference - but that's because those conferences are vendor-led. Southwest Fox is a community-driven conference - it's not driven by a company with an agenda. Listen to the interviews and you can hear how important each of the organizers feel the live connection between speakers and among attendees.

FoxInCloud Stats

FoxInCloud sent this link a while back about their statistics regarding visits to their site: http://foxincloud.com/blog/2017/12/27/VFP-community-lessons-from-foxincloud-site.html What's interesting here is the breakdown of people. Yes, I think it's understandable that the Fox community is getting older. Another factor is the growth of the mobile and web environments taking over development. These environments really do push people towards the newer non-SQL or free SQL/hosted environments but more towards hosted storage options like Amazon and Google. A tool like FoxInCloud that helps MOVE existing applications to the cloud inherently competes with those environments. But FoxInCloud also allows developers to extend their application further by giving them a starting point using Javascript and the basic CSS (such as Bootstrap). If you're not rebuilding your application from scratch, it's certainly a great step forward. FoxPro VFP