God I hate foxpro
-
My FoxPro isn't exactly great, and just been passed some long script to "finish". This is an extract from near the beginning. It's the sort of thing that makes me feel grateful when I have to work on a VB6 monstrosity (my preferred language is C#).... IF I > 0 && valid lnA = I * 0.47 ELSE && SYS(3050, 1) lnA = VAL(SYS(3050, 1)) / 0.65 * 0.47 ENDIF = SYS(3050, 1, lnA) = SYS(3050, 2, lnA/2) set talk on use it in 0 shared select iu from it; having max(cdate) <= {^2008-04-30}; group by iu into cursor cdata select atble append from DBF('cdata') use in cdata select it pack memo pack use in it
-
My FoxPro isn't exactly great, and just been passed some long script to "finish". This is an extract from near the beginning. It's the sort of thing that makes me feel grateful when I have to work on a VB6 monstrosity (my preferred language is C#).... IF I > 0 && valid lnA = I * 0.47 ELSE && SYS(3050, 1) lnA = VAL(SYS(3050, 1)) / 0.65 * 0.47 ENDIF = SYS(3050, 1, lnA) = SYS(3050, 2, lnA/2) set talk on use it in 0 shared select iu from it; having max(cdate) <= {^2008-04-30}; group by iu into cursor cdata select atble append from DBF('cdata') use in cdata select it pack memo pack use in it
Oh, c'mon! Foxpro's cute! You should be laughing at it, not getting annoyed.
I wanna be a eunuchs developer! Pass me a bread knife!
-
Oh, c'mon! Foxpro's cute! You should be laughing at it, not getting annoyed.
I wanna be a eunuchs developer! Pass me a bread knife!
Oh yes it's so cute having a function called GOMONTH (why GO and not ADD?) to add or subtract months from a date but not having equivalent functions (that I can find) for days, years etc. Or having && as one of the many ways to do a comment (I read it as logical and at first and want to strangle whoever decided to put that everywhere followed by various variable names / functions to make it look even more like a logical and). Ah well at least the dates are year-month-date format (tho i'm not sure what the ^ is all about). And people call C++! lol
-
My FoxPro isn't exactly great, and just been passed some long script to "finish". This is an extract from near the beginning. It's the sort of thing that makes me feel grateful when I have to work on a VB6 monstrosity (my preferred language is C#).... IF I > 0 && valid lnA = I * 0.47 ELSE && SYS(3050, 1) lnA = VAL(SYS(3050, 1)) / 0.65 * 0.47 ENDIF = SYS(3050, 1, lnA) = SYS(3050, 2, lnA/2) set talk on use it in 0 shared select iu from it; having max(cdate) <= {^2008-04-30}; group by iu into cursor cdata select atble append from DBF('cdata') use in cdata select it pack memo pack use in it
It Burns! [My eyes]
CCC solved so far: 2 (including a Hard One!) 37!?!! - Randall, Clerks
-
My FoxPro isn't exactly great, and just been passed some long script to "finish". This is an extract from near the beginning. It's the sort of thing that makes me feel grateful when I have to work on a VB6 monstrosity (my preferred language is C#).... IF I > 0 && valid lnA = I * 0.47 ELSE && SYS(3050, 1) lnA = VAL(SYS(3050, 1)) / 0.65 * 0.47 ENDIF = SYS(3050, 1, lnA) = SYS(3050, 2, lnA/2) set talk on use it in 0 shared select iu from it; having max(cdate) <= {^2008-04-30}; group by iu into cursor cdata select atble append from DBF('cdata') use in cdata select it pack memo pack use in it
What is that... thing? :~
If you truly believe you need to pick a mobile phone that "says something" about your personality, don't bother. You don't have a personality. A mental illness, maybe - but not a personality. - Charlie Brooker My Photos/CP Flickr Group - ScrewTurn Wiki v3
-
My FoxPro isn't exactly great, and just been passed some long script to "finish". This is an extract from near the beginning. It's the sort of thing that makes me feel grateful when I have to work on a VB6 monstrosity (my preferred language is C#).... IF I > 0 && valid lnA = I * 0.47 ELSE && SYS(3050, 1) lnA = VAL(SYS(3050, 1)) / 0.65 * 0.47 ENDIF = SYS(3050, 1, lnA) = SYS(3050, 2, lnA/2) set talk on use it in 0 shared select iu from it; having max(cdate) <= {^2008-04-30}; group by iu into cursor cdata select atble append from DBF('cdata') use in cdata select it pack memo pack use in it
God I feel sorry for you, but look on the bright side it - could be VB you're using :)
Software Kinetics (requires SL3 beta) - Moving software
-
Oh yes it's so cute having a function called GOMONTH (why GO and not ADD?) to add or subtract months from a date but not having equivalent functions (that I can find) for days, years etc. Or having && as one of the many ways to do a comment (I read it as logical and at first and want to strangle whoever decided to put that everywhere followed by various variable names / functions to make it look even more like a logical and). Ah well at least the dates are year-month-date format (tho i'm not sure what the ^ is all about). And people call C++! lol
Don't you like go-carts? Go-go dancers? What's the problem? A little smile on your lips can help you to forget to bash your head against the wall, scream and swear, and take an uzi into your boss' office.
I wanna be a eunuchs developer! Pass me a bread knife!
-
Don't you like go-carts? Go-go dancers? What's the problem? A little smile on your lips can help you to forget to bash your head against the wall, scream and swear, and take an uzi into your boss' office.
I wanna be a eunuchs developer! Pass me a bread knife!
Mark Wallace wrote:
A little smile on your lips can help you to forget to bash your head against the wall, scream and swear, and take an uzi into your boss' office.
That works when dealing with the wife as well, I've found :)
¡El diablo está en mis pantalones! ¡Mire, mire! SELECT * FROM User WHERE Clue > 0 0 rows returned Save an Orange - Use the VCF! Personal 3D projects Just Say No to Web 2 Point Blow
-
Don't you like go-carts? Go-go dancers? What's the problem? A little smile on your lips can help you to forget to bash your head against the wall, scream and swear, and take an uzi into your boss' office.
I wanna be a eunuchs developer! Pass me a bread knife!
Mark Wallace wrote:
A little smile on your lips can help you to forget to bash your head against the wall, scream and swear, and take an uzi into your boss' office.
I think he was the one who started the script....
-
My FoxPro isn't exactly great, and just been passed some long script to "finish". This is an extract from near the beginning. It's the sort of thing that makes me feel grateful when I have to work on a VB6 monstrosity (my preferred language is C#).... IF I > 0 && valid lnA = I * 0.47 ELSE && SYS(3050, 1) lnA = VAL(SYS(3050, 1)) / 0.65 * 0.47 ENDIF = SYS(3050, 1, lnA) = SYS(3050, 2, lnA/2) set talk on use it in 0 shared select iu from it; having max(cdate) <= {^2008-04-30}; group by iu into cursor cdata select atble append from DBF('cdata') use in cdata select it pack memo pack use in it
I worked with Foxpro for years, right up to version 9, and loved it for it's data handling capabilities. I always defended it when people knocked it. Then I learnt C#... and haven't looked back. Foxpro doesn't force you to do anything by the book. Which is why most Fox code is awful.
-
Mark Wallace wrote:
A little smile on your lips can help you to forget to bash your head against the wall, scream and swear, and take an uzi into your boss' office.
That works when dealing with the wife as well, I've found :)
¡El diablo está en mis pantalones! ¡Mire, mire! SELECT * FROM User WHERE Clue > 0 0 rows returned Save an Orange - Use the VCF! Personal 3D projects Just Say No to Web 2 Point Blow
Jim Crafton wrote:
That works when dealing with the wife as well, I've found
Sounds like I'm lucky I don't have to deal with your wife!
I wanna be a eunuchs developer! Pass me a bread knife!
-
I worked with Foxpro for years, right up to version 9, and loved it for it's data handling capabilities. I always defended it when people knocked it. Then I learnt C#... and haven't looked back. Foxpro doesn't force you to do anything by the book. Which is why most Fox code is awful.
Yeah same with VB6, even though its intended to be easy to understand. Of all the VB6 crap I've inherited over the years I don't think any has had "Option Explicit" turned on prior to me ending up with it.
-
My FoxPro isn't exactly great, and just been passed some long script to "finish". This is an extract from near the beginning. It's the sort of thing that makes me feel grateful when I have to work on a VB6 monstrosity (my preferred language is C#).... IF I > 0 && valid lnA = I * 0.47 ELSE && SYS(3050, 1) lnA = VAL(SYS(3050, 1)) / 0.65 * 0.47 ENDIF = SYS(3050, 1, lnA) = SYS(3050, 2, lnA/2) set talk on use it in 0 shared select iu from it; having max(cdate) <= {^2008-04-30}; group by iu into cursor cdata select atble append from DBF('cdata') use in cdata select it pack memo pack use in it
do you have a decompiler for foxpro? Bryce
MCAD --- To paraphrase Fred Dagg - the views expressed in this post are bloody good ones. --
Publitor, making Pubmed easy. http://www.sohocode.com/publitorOur kids books :The Snot Goblin, and Book 2 - the Snotgoblin and Fluff
-
do you have a decompiler for foxpro? Bryce
MCAD --- To paraphrase Fred Dagg - the views expressed in this post are bloody good ones. --
Publitor, making Pubmed easy. http://www.sohocode.com/publitorOur kids books :The Snot Goblin, and Book 2 - the Snotgoblin and Fluff
No, I've never needed one. Some way of getting symbolic debug information (PDB files) would be nice though.