ProFox

profox@leafe.com

2704 discussions

RE: Checking for All-Different Characters
by Darren 18 Jul '16

18 Jul '16

This will give you all the dates that have a unique set of digits 1900 to 9999 - probably more efficient ways to do it but this runs sub second on my machine and spits out 44,640 values. Have not done any testing or checking but it'll give you at least an idea. CREATE CURSOR w_dates (uniquedate D) FOR lnYear = 1900 TO 9999 STORE 0 TO lnCheck STORE .F. TO llDuplicate *- Check the year part for duplicate number usage STORE STR(m.lnYear, 4) TO lcYear FOR n = 1 TO 4 STORE VAL(SUBSTR(m.lcYear, n, 1)) TO lnVal IF BITTEST(m.lnCheck, m.lnVal) STORE .T. TO llDuplicate EXIT ELSE lnCheck = BITSET(m.lnCheck, m.lnVal) ENDIF ENDFOR IF m.llDuplicate LOOP ENDIF STORE m.lnCheck TO lnCheckYr *------------------------------------------- *- Process Months *------------------------------------------- FOR lnMth = 1 TO 12 *- Check the mth + year part for duplicate number usage STORE .F. TO llDuplicate STORE PADL(m.lnMth, 2, "0") TO lcMth FOR n = 1 TO 2 STORE VAL(SUBSTR(m.lcMth, n, 1)) TO lnVal IF BITTEST(m.lnCheck, m.lnVal) STORE .T. TO llDuplicate EXIT ELSE lnCheck = BITSET(m.lnCheck, m.lnVal) ENDIF ENDFOR IF m.llDuplicate STORE m.lnCheckYr TO lnCheck && Restore baseline to the year value LOOP ENDIF STORE m.lnCheck TO lnCheckYrMth *------------------------------------------- *- Process Days *------------------------------------------- *- How many days in the month ? lnDays = ICASE(; INLIST(m.lnMth, 1, 3, 5, 7, 8, 10, 12), 31, ; m.lnMth = 2, 28, ; 30) *- Is this a leap Year ? IF m.lnMth = 2 AND MOD(m.lnYear, 4) = 0 AND IIF(MOD(m.lnYear, 100) = 0, IIF(MOD(m.lnYear, 400) = 0, .T., .F.), .T.) STORE 29 TO lnDays ENDIF FOR lnDay = 1 to m.lnDays *- Check the mth + year + day parts for duplicate number usage STORE .F. TO llDuplicate STORE PADL(m.lnDay, 2, "0") TO lcDay FOR n = 1 TO 2 STORE VAL(SUBSTR(m.lcDay, n, 1)) TO lnVal IF BITTEST(m.lnCheck, m.lnVal) STORE .T. TO llDuplicate EXIT ELSE lnCheck = BITSET(m.lnCheck, m.lnVal) ENDIF ENDFOR IF NOT m.llDuplicate INSERT INTO w_dates (; uniquedate) ; VALUES (; DATE(m.lnYear, m.lnMth, m.lnDay)) ENDIF STORE m.lnCheckYrMth TO lnCheck && Restore baseline to the year + month value - check next day in month. ENDFOR STORE m.lnCheckYr TO lnCheck && Check Next Mth in Year ENDFOR ENDFOR -----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Gene Wirchenko Sent: Monday, 18 July 2016 2:29 AM To: profoxtech(a)leafe.com Subject: Checking for All-Different Characters Hello: I write a logic/math puzzle each week. They appear in my blog (http://genew.ca/) and two local newspapers. Here is the latest problem: "Consider a date in YYYY-MM-DD format. What is the next date where all eight digits will be different?" I solved this by hand. I decided to verify my solution with a program. I often cook up something in GW-BASIC, but since VFP has date functions, I decided to go with it. It was very easy to set up the framework of the loop. What threw me for a loop is how to check that all of the digits are different. I ended up converting the date to string with dtos() and then testing the string with a rather ugly-looking condition. Is there something faster? ***** Start of Code ***** * 16s-16.prg * Date Puzzle * Last Modification: 2016-07-17 * * Consider a date in YYYY-MM-DD format. What is the next date where all * eight digits will be different? ? "*** Execution begins." ? program() close all clear all set talk off set exact on set century on set date ansi * local startdate startdate=date() ? "Start Date: "+transform(startdate) local trydate, looping trydate=startdate looping=.t. do while looping local trydtos trydtos=dtos(trydate) if right(trydtos,4)="0101" ? "Working on year "+left(trydtos,4) endif if; iif("0"$trydtos,1,0)+; iif("1"$trydtos,1,0)+; iif("2"$trydtos,1,0)+; iif("3"$trydtos,1,0)+; iif("4"$trydtos,1,0)+; iif("5"$trydtos,1,0)+; iif("6"$trydtos,1,0)+; iif("7"$trydtos,1,0)+; iif("8"$trydtos,1,0)+; iif("9"$trydtos,1,0)#8 trydate=trydate+1 else && solution looping=.f. endif enddo ? "Solution is "+transform(trydate)+"." * close all clear all ? "*** Execution ends." return ***** End of Code ***** Sincerely, Gene Wirchenko [excessive quoting removed by server]

6 5

Grid scrollbars
by Sytze de Boer 18 Jul '16

18 Jul '16

Well, I have this small package working on a tablet, almost. (And I shouldn't say this without mentioning the great help from Bernard Bout) One aspect is annoying me though. It's almost impossible to scroll my grid. For the moment I've placed 2 big arrows/Command buttons on the Form The width of the scroll bar is pathetic and I think I've read somewhere that *gestures* simply won't work with a VFP application. Does someone want to comment (or otherwise assist me?) -- Kind regards, Sytze de Boer --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

2 1

RE: Checking for All-Different Characters
by Darren 17 Jul '16

17 Jul '16

Maybe something like .. STORE CAST(0 AS I) TO lnCheck lcDtString = STRCONV(DTOS(DATE()), 12) =ALINES(laValues, m.lcDtString, 0, CHR(0)) FOR lnPosn = 1 TO 8 STORE VAL(laValues(m.lnPosn)) TO lnVal ? lnVal IF BITTEST(m.lnCheck, m.lnVal) *- Have a duplicate number - do what ever =MESSAGEBOX(laValues(m.lnPosn) + " appears more than once.") EXIT ELSE STORE BITSET(m.lnCheck, m.lnVal) TO lnCheck ENDIF ENDFOR -----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Gene Wirchenko Sent: Monday, 18 July 2016 2:29 AM To: profoxtech(a)leafe.com Subject: Checking for All-Different Characters Hello: I write a logic/math puzzle each week. They appear in my blog (http://genew.ca/) and two local newspapers. Here is the latest problem: "Consider a date in YYYY-MM-DD format. What is the next date where all eight digits will be different?" I solved this by hand. I decided to verify my solution with a program. I often cook up something in GW-BASIC, but since VFP has date functions, I decided to go with it. It was very easy to set up the framework of the loop. What threw me for a loop is how to check that all of the digits are different. I ended up converting the date to string with dtos() and then testing the string with a rather ugly-looking condition. Is there something faster? ***** Start of Code ***** * 16s-16.prg * Date Puzzle * Last Modification: 2016-07-17 * * Consider a date in YYYY-MM-DD format. What is the next date where all * eight digits will be different? ? "*** Execution begins." ? program() close all clear all set talk off set exact on set century on set date ansi * local startdate startdate=date() ? "Start Date: "+transform(startdate) local trydate, looping trydate=startdate looping=.t. do while looping local trydtos trydtos=dtos(trydate) if right(trydtos,4)="0101" ? "Working on year "+left(trydtos,4) endif if; iif("0"$trydtos,1,0)+; iif("1"$trydtos,1,0)+; iif("2"$trydtos,1,0)+; iif("3"$trydtos,1,0)+; iif("4"$trydtos,1,0)+; iif("5"$trydtos,1,0)+; iif("6"$trydtos,1,0)+; iif("7"$trydtos,1,0)+; iif("8"$trydtos,1,0)+; iif("9"$trydtos,1,0)#8 trydate=trydate+1 else && solution looping=.f. endif enddo ? "Solution is "+transform(trydate)+"." * close all clear all ? "*** Execution ends." return ***** End of Code ***** Sincerely, Gene Wirchenko [excessive quoting removed by server]

1 0

Re: Checking for All-Different Characters
by Charlie 17 Jul '16

17 Jul '16

I may not be on-target with what you want but.... If you just want to increment increase/decrease dates by 1 I would suggest doing date math. dDateVal = dDaveVal + 1 If you have to work with a string as a source, you could convert it to date first. For example cteststr = "2019-12-31" ddateval = DATE(VAL(SUBSTR(cteststr,1,4)), VAL(SUBSTR(cteststr,6,2)), VAL(RIGHT(cteststr,2))) ddateval = ddateval + 1 (the above assumes you can ALWAYS really on the format to be "YYYY-MM-DD" - with no spaces - aka Feb 5, 2019 would be 2019-02-05) And then if you need it as a string coming out: cNewStr = str(year(ddateval), 4) + "-" + strtran(str(month(ddateval),2), " ", "0") + "-" + strtran(str(day(ddateval),2), " ", "0") (I put the "STRTRAN" in there to force the day result to a 2-character 0-filled value) -Charlie On 7/17/2016 12:28 PM, Gene Wirchenko wrote: > Hello: > > I write a logic/math puzzle each week. They appear in my blog > (http://genew.ca/) and two local newspapers. > > Here is the latest problem: > > "Consider a date in YYYY-MM-DD format. What is the next date > where all eight digits will be different?" > > I solved this by hand. I decided to verify my solution with a > program. I often cook up something in GW-BASIC, but since VFP has > date functions, I decided to go with it. > > It was very easy to set up the framework of the loop. What threw > me for a loop is how to check that all of the digits are different. I > ended up converting the date to string with dtos() and then testing > the string with a rather ugly-looking condition. Is there something > faster? > [snip]

1 0

Re: Mscomm32.ocx on Windows 7?
by joceravolo＠yahoo.com 17 Jul '16

17 Jul '16

Thanks Tracy and Ted, The link Ted provided was enough to register the ocx. Now I'll test the program. Cheers! Jose. --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

1 0

Checking for All-Different Characters
by Gene Wirchenko 17 Jul '16

17 Jul '16

Hello: I write a logic/math puzzle each week. They appear in my blog (http://genew.ca/) and two local newspapers. Here is the latest problem: "Consider a date in YYYY-MM-DD format. What is the next date where all eight digits will be different?" I solved this by hand. I decided to verify my solution with a program. I often cook up something in GW-BASIC, but since VFP has date functions, I decided to go with it. It was very easy to set up the framework of the loop. What threw me for a loop is how to check that all of the digits are different. I ended up converting the date to string with dtos() and then testing the string with a rather ugly-looking condition. Is there something faster? ***** Start of Code ***** * 16s-16.prg * Date Puzzle * Last Modification: 2016-07-17 * * Consider a date in YYYY-MM-DD format. What is the next date where all * eight digits will be different? ? "*** Execution begins." ? program() close all clear all set talk off set exact on set century on set date ansi * local startdate startdate=date() ? "Start Date: "+transform(startdate) local trydate, looping trydate=startdate looping=.t. do while looping local trydtos trydtos=dtos(trydate) if right(trydtos,4)="0101" ? "Working on year "+left(trydtos,4) endif if; iif("0"$trydtos,1,0)+; iif("1"$trydtos,1,0)+; iif("2"$trydtos,1,0)+; iif("3"$trydtos,1,0)+; iif("4"$trydtos,1,0)+; iif("5"$trydtos,1,0)+; iif("6"$trydtos,1,0)+; iif("7"$trydtos,1,0)+; iif("8"$trydtos,1,0)+; iif("9"$trydtos,1,0)#8 trydate=trydate+1 else && solution looping=.f. endif enddo ? "Solution is "+transform(trydate)+"." * close all clear all ? "*** Execution ends." return ***** End of Code ***** Sincerely, Gene Wirchenko

1 0

Mscomm32.ocx on Windows 7?
by joceravolo＠yahoo.com 17 Jul '16

17 Jul '16

Hi All, Did you ever use the Mscomm32.ocx that ships with VFP9 on Windows 7?I wonder if that's possible. Thanks, Jose. --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

3 2

[NF] Windows 10 god mode.
by Alan Bourke 15 Jul '16

15 Jul '16

Any Windows 10 users might find this useful: -- Alan Bourke alanpbourke (at) fastmail (dot) fm --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

3 3

[NF} Windows 10 god mode #2
by Alan Bourke 15 Jul '16

15 Jul '16

Let's try that again. http://www.techrepublic.com/article/how-to-create-a-custom-folder-to-access… You basically create a folder with a certain name and it gets populated with over 200 shortcuts for various configuration items. -- Alan Bourke alanpbourke (at) fastmail (dot) fm --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

2 1

more on PDF and VFP
by rafael copquin 15 Jul '16

15 Jul '16

I was just fooling around and did the following: (I have the free version of FoxitReader installed in my computer) I created a form and inserted the FoxitReader control which was now available in my PC and named it pdfreader In the click event of a button I put this code: thisform.pdfreader.openFile ('c:\donna\columbia.pdf') It opened the pdf file in the form as expected. Caveat: the FoxitReader menu was also inside the control. This is not ideal, but at least should give some idea on how to deal with the insertable activex controls. Rafael Copquin

6 5

Jump to page:

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox