Mega sena database

[bplus]

OK I fool proofed the code.

Now it does rewrite the file every day!

Code: QB64: [Select]

1. DIM count AS _INTEGER64
2.  
3. INPUT "How many millions today "; millions 'day 1 say 1, day 2 say 2...
4.  
5. PRINT "Calculating..."
6. OPEN "temp.txt" FOR OUTPUT AS #1
7. FOR num1 = 1 TO 55
8.     LOCATE 5, 3: PRINT num1,
9.     FOR num2 = num1 + 1 TO 56
10.         LOCATE 5, 5: PRINT num2,
11.         FOR num3 = num2 + 1 TO 57
12.             LOCATE 5, 7: PRINT num3,
13.             FOR num4 = num3 + 1 TO 58
14.                 LOCATE 5, 9: PRINT num4,
15.                 FOR num5 = num4 + 1 TO 59
16.                     LOCATE 5, 11: PRINT num5,
17.                     FOR num6 = num5 + 1 TO 60
18.                         LOCATE 5, 13: PRINT num6
19.                         s$ = LTRIM$(STR$(num1)) + ","
20.                         IF num1 < 10 THEN s$ = "0" + s$
21.                         IF num2 < 10 THEN s$ = s$ + "0"
22.                         s$ = s$ + LTRIM$(STR$(num2)) + ","
23.                         IF num3 < 10 THEN s$ = s$ + "0"
24.                         s$ = s$ + LTRIM$(STR$(num3)) + ","
25.                         IF num4 < 10 THEN s$ = s$ + "0"
26.                         s$ = s$ + LTRIM$(STR$(num4)) + ","
27.                         IF num5 < 10 THEN s$ = s$ + "0"
28.                         s$ = s$ + LTRIM$(STR$(num5)) + ","
29.                         IF num6 < 10 THEN s$ = s$ + "0"
30.                         s$ = s$ + LTRIM$(STR$(num6))
31.                         count = count + 1
32.                         IF count < millions * 10 ^ 6 + 1 THEN
33.                             PRINT #1, s$
34.                         ELSE
35.                             CLOSE #1: PRINT "Done :)": END
36.                         END IF
37.                     NEXT
38.                 NEXT
39.             NEXT
40.         NEXT
41.     NEXT
42. NEXT
43. CLOSE #1
44. PRINT "Done :)"
45.  

[SMcNeill]

Easiest fix:

First, look to see if the file exists.  If not, all the loops numbers start at 1.  If it does, read the last set of numbers into the program and continue:

Code: QB64: [Select]

1. IF _FILEEXISTS(“temp.txt” THEN
2.     OPEN “temp.txt” FOR INPUT AS #1
3.     SEEK #1, LOF(1) - 19 ‘records are 19 bytes each, so back up 19 spots
4.     INPUT #1, num1start
5.     INPUT #1, num2start
6.     INPUT #1, num3start
7.     INPUT #1, num4start
8.     INPUT #1, num5start
9.     INPUT #1, num6start
10.     num6start = num6start + 1
11. ELSE
12.    ‘Those values are all set to 1, 2, 3, 4, 5, 6
13. END IF
14.  
15. CLOSE
16.  
17. OPEN “temp.txt” FOR APPEND AS #1
18.  

Now change the loops to start with that start variable value:

FOR num1 = num1start to 55
    FOR num2 = num2start to 56
       .....so on for 3,4,5,6
   

Then after the NEXT statements, reset the start values to their proper value:
                        NEXT num6
                        num6start = num5 + 1
                    NEXT num5
                    num5start = num4 + 1
               NEXT num4
               num4start = num3 + 1
....and so on.


Add an exit condition in the middle loop after the PRINT #1 statement such as:
    IF INKEY$ <> “” THEN END

Then you can build, stop, and resume building that list whenever you want.
     

[carloscordeiro]

Good night
Thanks to bplus and Steve for the kindness to create the codes I needed.
Thanks also for taking the time to help. Both codes are working the way I wanted them to.
If Mr. FellippeHeitor does not feel uncomfortable. I wanted to ask for a final help from bplus or Steve.

I want to modify the line: IF INKEY $ <> "" THEN END without the end and without goto.
I want it to continue in Steve's reading code in reply (Reply # 16 from the forum).

Here's the image of bplus and Steve codes working perfectly.

It also follows the only code with the creation of the file and reading for bplus or Steve shows how to redirect the "Esc" to the reading line.

I reiterate the apology to Mr. FellippeHeitor if he feels uncomfortable.

Thanks Bplus and Steve
CarlosCordeiro
 

 

[FellippeHeitor]

If Mr. FellippeHeitor does not feel uncomfortable. I wanted to ask for a final help from bplus or Steve.
(...)
I reiterate the apology to Mr. FellippeHeitor if he feels uncomfortable.

I imagine this comes from my comment:

I have nothing to do with this, but why again?

I just asked because I honestly wanted to understand the purpose of the number generation, not because the thread bothered me in any way, shape or form.

Mr. FellippeHeitor just happens to be a forum member with elevated privileges, but this community is something on its own, meaning I have no veto powers whatsoever (nor do I want them). You are welcome and free to discuss your code, request help and get help from others. This is your community too.

All the best,

Fica tranquilo, bicho grilo.

Fellippe.

[bplus]

Mr. FellippeHeitor

is better than gold!

Easiest fix:

First, look to see if the file exists.  If not, all the loops numbers start at 1.  If it does, read the last set of numbers into the program and continue:

Code: QB64: [Select]

1. IF _FILEEXISTS(“temp.txt” THEN
2.     OPEN “temp.txt” FOR INPUT AS #1
3.     SEEK #1, LOF(1) - 19 ‘records are 19 bytes each, so back up 19 spots
4.     INPUT #1, num1start
5.     INPUT #1, num2start
6.     INPUT #1, num3start
7.     INPUT #1, num4start
8.     INPUT #1, num5start
9.     INPUT #1, num6start
10.     num6start = num6start + 1
11. ELSE
12.    ‘Those values are all set to 1, 2, 3, 4, 5, 6
13. END IF
14.  
15. CLOSE
16.  
17. OPEN “temp.txt” FOR APPEND AS #1
18.  

Now change the loops to start with that start variable value:

FOR num1 = num1start to 55
    FOR num2 = num2start to 56
       .....so on for 3,4,5,6
   

Then after the NEXT statements, reset the start values to their proper value:
                        NEXT num6
                        num6start = num5 + 1
                    NEXT num5
                    num5start = num4 + 1
               NEXT num4
               num4start = num3 + 1
....and so on.


Add an exit condition in the middle loop after the PRINT #1 statement such as:
    IF INKEY$ <> “” THEN END

Then you can build, stop, and resume building that list whenever you want.
     

"Easiest fix"  ?  :-))

Carlos, if I fix this:

Code: QB64: [Select]

1.  
2. IF _FILEEXISTS("temp.txt") THEN
3.     OPEN "temp.txt" FOR INPUT AS #1
4.     SEEK #1, LOF(1) - 19 'records are 19 bytes each, so back up 19 spots
5.     INPUT #1, num1start
6.     INPUT #1, num2start
7.     INPUT #1, num3start
8.     INPUT #1, num4start
9.     INPUT #1, num5start
10.     INPUT #1, num6start
11.     num6start = num6start + 1
12. ELSE
13.     'Those values are all set to 1, 2, 3, 4, 5, 6
14. END IF
15.  
16. CLOSE
17.  
18. PRINT "Calculating..."
19. OPEN "temp.txt" FOR APPEND AS #1
20. FOR num1 = num1start TO 55
21.     LOCATE 5, 3: PRINT num1,
22.     FOR num2 = num2start TO 56
23.         LOCATE 5, 7: PRINT num2,
24.         FOR num3 = num3start TO 57
25.             LOCATE 5, 11: PRINT num3,
26.             FOR num4 = num4start TO 58
27.                 LOCATE 5, 15: PRINT num4,
28.                 FOR num5 = num5start TO 59
29.                     LOCATE 5, 19: PRINT num5,
30.                     FOR num6 = num6start TO 60
31.                         LOCATE 5, 21: PRINT num6
32.                         s$ = LTRIM$(STR$(num1)) + ","
33.                         IF num1 < 10 THEN s$ = "0" + s$
34.                         IF num2 < 10 THEN s$ = s$ + "0"
35.                         s$ = s$ + LTRIM$(STR$(num2)) + ","
36.                         IF num3 < 10 THEN s$ = s$ + "0"
37.                         s$ = s$ + LTRIM$(STR$(num3)) + ","
38.                         IF num4 < 10 THEN s$ = s$ + "0"
39.                         s$ = s$ + LTRIM$(STR$(num4)) + ","
40.                         IF num5 < 10 THEN s$ = s$ + "0"
41.                         s$ = s$ + LTRIM$(STR$(num5)) + ","
42.                         IF num6 < 10 THEN s$ = s$ + "0"
43.                         s$ = s$ + LTRIM$(STR$(num6))
44.                         PRINT #1, s$
45.                         IF INKEY$ <> "" THEN END
46.                     NEXT
47.                     num6start = num5 + 1
48.                 NEXT
49.                 num5start = num4 + 1
50.             NEXT
51.             num4start = num3 + 1
52.         NEXT
53.         num3start = num2 + 1
54.     NEXT
55.     num2start = num1 + 1
56. NEXT
57.  
58. CLOSE #1
59.  
60.  
61. _DEFINE A-Z AS _INTEGER64
62. RANDOMIZE TIMER
63.  
64.  
65. OPEN "temp.txt" FOR INPUT AS #1
66. 'Apenas listar todos os numeros / combinacoeses
67. FOR recordnumber = 1 TO 50063830
68.     SEEK #1, (recordnumber - 1) * 19 + 1
69.     LINE INPUT #1, t$
70.     PRINT "Registro"; recordnumber; ":"; t$
71.     IF INKEY$ <> "" THEN EXIT FOR 'Esc para sair...
72. NEXT
73.  
74. 'Para obter um valor especifico da lista:
75.  
76.  
77. DO
78.     PRINT
79.     PRINT
80.     DO
81.         INPUT "Digite um Numero de 1 a 50063830:"; recordnumber
82.         IF recordnumber = 0 GOTO OutsideLoop
83.     LOOP UNTIL recordnumber > 0 AND recordnumber < 50063831
84.     SEEK #1, (recordnumber - 1) * 19 + 1
85.     LINE INPUT #1, t$
86.     PRINT "Resgistro"; recordnumber; ":"; t$
87. LOOP
88.  
89. 'Gerando aleatoriamente valores usando nossa lista:
90. OutsideLoop:
91. PRINT
92. PRINT
93. FOR i = 1 TO 10
94.     recordnumber = INT(RND * 50063830) + 1
95.     SEEK #1, (recordnumber - 1) * 19 + 1
96.     LINE INPUT #1, t$
97.     PRINT "Random Drawing #"; i; ": "; t$
98. NEXT
99.  
100.  

and if it helps you win the jackpot, you will remember me right? ;-))

and the person who helps me help you by translating the comments to the code blocks, so I know what it is exactly the code is trying to accomplish, remember that person too.

[bplus]

Holy ship! Steve's Append Method is a disaster, it does not end like this:
 

Going back to fool proof method!

[bplus]

Fixed!

Code: QB64: [Select]

1. _DEFINE A-Z AS _INTEGER64
2. 'remove Steve's Append Method, replace with B+ Fool Proofed Method
3.  
4. CONST maxRecord = 50063860 'number of combs of numbers 1 to 60 tkaen 6 at a time
5.  
6. PRINT "Enter how many lines you want in the file up to"; maxRecord;: INPUT " ", recsDesired
7. IF recsDesired < 1 THEN END ' don't know what is what
8. IF recsDesired > maxRecord THEN
9.     PRINT "Only"; maxRecord; " records allowed, will use that!"
10.     recsDesired = maxRecord
11.     PRINT "press any to continue..."
12.     SLEEP
13.     PRINT
14. END IF
15. CLS
16. PRINT "Calculating records..."
17. OPEN "temp.txt" FOR OUTPUT AS #1 ' Fool Proof Method: rewrite file to recsDesired
18. IF recs < recsDesired THEN 'rewrite the file
19.     FOR num1 = 1 TO 55
20.         LOCATE 5, 3: PRINT num1,
21.         FOR num2 = num1 + 1 TO 56
22.             LOCATE 5, 5: PRINT num2,
23.             FOR num3 = num2 + 1 TO 57
24.                 LOCATE 5, 7: PRINT num3,
25.                 FOR num4 = num3 + 1 TO 58
26.                     LOCATE 5, 9: PRINT num4,
27.                     FOR num5 = num4 + 1 TO 59
28.                         LOCATE 5, 11: PRINT num5,
29.                         FOR num6 = num5 + 1 TO 60
30.                             LOCATE 5, 13: PRINT num6
31.                             s$ = LTRIM$(STR$(num1)) + ","
32.                             IF num1 < 10 THEN s$ = "0" + s$
33.                             IF num2 < 10 THEN s$ = s$ + "0"
34.                             s$ = s$ + LTRIM$(STR$(num2)) + ","
35.                             IF num3 < 10 THEN s$ = s$ + "0"
36.                             s$ = s$ + LTRIM$(STR$(num3)) + ","
37.                             IF num4 < 10 THEN s$ = s$ + "0"
38.                             s$ = s$ + LTRIM$(STR$(num4)) + ","
39.                             IF num5 < 10 THEN s$ = s$ + "0"
40.                             s$ = s$ + LTRIM$(STR$(num5)) + ","
41.                             IF num6 < 10 THEN s$ = s$ + "0"
42.                             s$ = s$ + LTRIM$(STR$(num6))
43.                             count = count + 1
44.                             IF count <= recsDesired THEN
45.                                 PRINT #1, s$
46.                             ELSE
47.                                 GOTO skipOut
48.                             END IF
49.                         NEXT
50.                     NEXT
51.                 NEXT
52.             NEXT
53.         NEXT
54.     NEXT
55. END IF
56. skipOut:
57. CLOSE #1
58.  
59. ' What really should happen is to write the data file once with something like the above code
60. ' and then access the file whenever with the code below.
61.  
62. RANDOMIZE TIMER
63. OPEN "temp.txt" FOR INPUT AS #1
64. nRecords = LOF(1) / 19
65.  
66. 'Apenas listar todos os numeros / combinacoeses >>> List all combinations, yuck too many!
67. ' show last 10 listings
68. CLS
69. PRINT: PRINT "Here is the last 10 lines of file:"
70. FOR recordnumber = nRecords - 10 TO nRecords
71.     SEEK #1, (recordnumber - 1) * 19 + 1
72.     LINE INPUT #1, t$
73.     PRINT "Registro"; recordnumber; ":"; t$
74. NEXT
75. PRINT: INPUT "Press enter to continue..."; wate$
76.  
77.  
78. 'Para obter um valor especifico da list  >>> to get a specific value from the list, why?  eh... OK
79. CLS
80. DO
81.     'Carlos, you can not access record 50063860 unless you have that many in file
82.     PRINT: PRINT "(Enter 0 to quit, Digite um Numero de 1 a"; nRecords; " of current file:";
83.     INPUT " "; recordnumber
84.     IF recordnumber < 1 THEN EXIT DO
85.     IF recordnumber <= nRecords THEN
86.         SEEK #1, (recordnumber - 1) * 19 + 1
87.         LINE INPUT #1, t$
88.         PRINT "Resgistro"; recordnumber; ":"; t$
89.     ELSE
90.         BEEP
91.     END IF
92. LOOP
93.  
94. 'Gerando aleatoriamente valores usando nossa lista  >>> Randomly Generating values using our list:
95. CLS
96. PRINT
97. PRINT "10 Random lines from file with"; nRecords; "records in it."
98. PRINT
99. FOR i = 1 TO 10
100.     'Carlos, can only access records up to number in file NOT 50063860
101.     recordnumber = INT(RND * nRecords) + 1
102.     'recordnumber = 63074 'check one known record OK
103.     SEEK #1, (recordnumber - 1) * 19 + 1
104.     LINE INPUT #1, t$
105.     PRINT "Random Drawing #"; i; ": "; t$
106. NEXT
107. PRINT: PRINT "All done, goodbye!"
108.  
109.  

But the mystery continues, why rewrite the data file?

[SMcNeill]

Holy ship! Steve's Append Method is a disaster, it does not end like this:
 

Going back to fool proof method!

Not a disaster; just off with a very tiny bit of file logic:

Code: QB64: [Select]

1. IF _FILEEXISTS("temp.txt") THEN
2.     OPEN "temp.txt" FOR INPUT AS #1
3.     SEEK #1, LOF(1) - 17 'records are 19 bytes each, but last line won't have a CRLF, so back up 17 spots instead of 19
4.     INPUT #1, num1start
5.     INPUT #1, num2start
6.     INPUT #1, num3start
7.     INPUT #1, num4start
8.     INPUT #1, num5start
9.     INPUT #1, num6start
10.     num6start = num6start + 1
11.     PRINT "Resuming count from old file."
12. ELSE
13.     num1start = 1
14.     num2start = 2
15.     num3start = 3
16.     num4start = 4
17.     num5start = 5
18.     num6start = 6
19. END IF
20.  
21. CLOSE
22.  
23. PRINT "Calculating further values..."
24. PRINT "Press <ANY KEY> to stop."
25. OPEN "temp.txt" FOR APPEND AS #1
26.  
27.  
28.  
29.  
30.  
31. FOR num1 = num1start TO 55
32.     LOCATE 5, 1: PRINT num1,
33.     FOR num2 = num2start TO 56
34.         LOCATE 6, 1: PRINT num2,
35.         FOR num3 = num3start TO 57
36.             LOCATE 7, 1: PRINT num3,
37.             FOR num4 = num4start TO 58
38.                 LOCATE 8, 1: PRINT num4,
39.                 FOR num5 = num5start TO 59
40.                     LOCATE 9, 1: PRINT num5,
41.                     FOR num6 = num6start TO 60
42.                         LOCATE 10, 1: PRINT num6
43.                         s$ = LTRIM$(STR$(num1)) + ","
44.                         IF num1 < 10 THEN s$ = "0" + s$
45.                         IF num2 < 10 THEN s$ = s$ + "0"
46.                         s$ = s$ + LTRIM$(STR$(num2)) + ","
47.                         IF num3 < 10 THEN s$ = s$ + "0"
48.                         s$ = s$ + LTRIM$(STR$(num3)) + ","
49.                         IF num4 < 10 THEN s$ = s$ + "0"
50.                         s$ = s$ + LTRIM$(STR$(num4)) + ","
51.                         IF num5 < 10 THEN s$ = s$ + "0"
52.                         s$ = s$ + LTRIM$(STR$(num5)) + ","
53.                         IF num6 < 10 THEN s$ = s$ + "0"
54.                         s$ = s$ + LTRIM$(STR$(num6))
55.                         PRINT #1, s$
56.                         IF INKEY$ <> "" THEN PRINT: PRINT: PRINT "Terminated Program.  Calculation paused; run it again to resume list generation.": END
57.                     NEXT
58.                     num6start = num5start + 1
59.                 NEXT
60.                 num5start = num4start + 1
61.             NEXT
62.             num4start = num3start + 1
63.         NEXT
64.         num3start = num2start + 1
65.     NEXT
66.     num2start = num1start + 1
67. NEXT
68.  

The above works as intended and allows you to stop and resume list generation however you want.  The change necessary for the example I posted to work was this simple:

Change this:

Code: QB64: [Select]

1. IF _FILEEXISTS(“temp.txt” THEN
2.     OPEN “temp.txt” FOR INPUT AS #1
3.     SEEK #1, LOF(1) - 19 ‘records are 19 bytes each, so back up 19 spots

To:

Code: QB64: [Select]

1. IF _FILEEXISTS("temp.txt") THEN
2.     OPEN "temp.txt" FOR INPUT AS #1
3.     SEEK #1, LOF(1) - 17 'records are 19 bytes each, but last line won't have a CRLF, so back up 17 spots instead of 19

I would've thought all the lines in the program would have a CRLF set at the end of them, but that doesn't hold true for the last record in the list.  It simply ends, so we back up 17 spots instead of 19 to get the proper values for us.  An easy thing to overlook without actually running and testing the code, but it seems to fix the issue for me,  (Unless further testing shows another glitch somewhere that I just haven't found yet, which is always possible...)

[carloscordeiro]

Hello bplus
Good night
Should I win the prize? Of course I will remember you bplus. You and Steve deserve it, for dedicating yourself to a newcomer like me. Just send the account number. :)
I am not trying to rewrite the data file.
I was trying to put in the only code, the two codes that you and Steve created for me.
The code that generates the combinations and the code that read the combinations.
In a single code, the two codes together into one.
With a Loop, more with the IF INKEY $ <> "" THEN END in the end for when I want to leave.
 I ran the latter and it made a mistake on the line that is Seek
CarlosCordeiro

[carloscordeiro]

I had not read Steve's post yet, I'm going to test it now

[SMcNeill]

Slight correction to remove some duplicate values from our list generation.  It's a little bit trickier than I first imagined, but I think this does it properly for us:

Code: QB64: [Select]

1. IF _FILEEXISTS("temp.txt") THEN
2.     OPEN "temp.txt" FOR INPUT AS #1
3.     SEEK #1, LOF(1) - 17 'records are 19 bytes each, but last line won't have a CRLF, so back up 17 spots instead of 19
4.     INPUT #1, num1start
5.     INPUT #1, num2start
6.     INPUT #1, num3start
7.     INPUT #1, num4start
8.     INPUT #1, num5start
9.     INPUT #1, num6start
10.     num6start = num6start + 1
11.     PRINT "Resuming count from old file."
12. ELSE
13.     num1start = 1
14.     num2start = 2
15.     num3start = 3
16.     num4start = 4
17.     num5start = 5
18.     num6start = 6
19.     PRINT "Generating values in new 'temp.txt' file."
20. END IF
21.  
22. CLOSE
23.  
24. PRINT "Calculating further values..."
25. PRINT "Press <ANY KEY> to stop."
26. OPEN "temp.txt" FOR APPEND AS #1
27.  
28.  
29.  
30.  
31.  
32. FOR num1 = num1start TO 55
33.     LOCATE 5, 1: PRINT num1,
34.     IF num1 = num2start THEN num2start = num2start + 1
35.     FOR num2 = num2start TO 56
36.         LOCATE 6, 1: PRINT num2,
37.         IF num2 = num3start THEN num3start = num3start + 1
38.         FOR num3 = num3start TO 57
39.             LOCATE 7, 1: PRINT num3,
40.             IF num3 = num4start THEN num4start = num4start + 1
41.             FOR num4 = num4start TO 58
42.                 LOCATE 8, 1: PRINT num4,
43.                 IF num4 = num5start THEN num5start = num5start + 1
44.                 FOR num5 = num5start TO 59
45.                     LOCATE 9, 1: PRINT num5,
46.                     IF num5 = num6start THEN num6start = num6start + 1
47.                     FOR num6 = num6start TO 60
48.                         LOCATE 10, 1: PRINT num6
49.                         s$ = LTRIM$(STR$(num1)) + ","
50.                         IF num1 < 10 THEN s$ = "0" + s$
51.                         IF num2 < 10 THEN s$ = s$ + "0"
52.                         s$ = s$ + LTRIM$(STR$(num2)) + ","
53.                         IF num3 < 10 THEN s$ = s$ + "0"
54.                         s$ = s$ + LTRIM$(STR$(num3)) + ","
55.                         IF num4 < 10 THEN s$ = s$ + "0"
56.                         s$ = s$ + LTRIM$(STR$(num4)) + ","
57.                         IF num5 < 10 THEN s$ = s$ + "0"
58.                         s$ = s$ + LTRIM$(STR$(num5)) + ","
59.                         IF num6 < 10 THEN s$ = s$ + "0"
60.                         s$ = s$ + LTRIM$(STR$(num6))
61.                         PRINT #1, s$
62.                         IF INKEY$ <> "" THEN PRINT: PRINT: PRINT "Terminated Program.  Calculation paused; run it again to resume list generation.": END
63.                     NEXT
64.                     num6start = num5 + 1
65.                 NEXT
66.                 num5start = num4 + 1
67.             NEXT
68.             num4start = num3 + 1
69.         NEXT
70.         num3start = num2 + 1
71.     NEXT
72.     num2start = num1 + 1
73. NEXT
74.  
75.  

[bplus]

Slight correction to remove some duplicate values from our list generation.  It's a little bit trickier than I first imagined, but I think this does it properly for us:

Code: QB64: [Select]

1. IF _FILEEXISTS("temp.txt") THEN
2.     OPEN "temp.txt" FOR INPUT AS #1
3.     SEEK #1, LOF(1) - 17 'records are 19 bytes each, but last line won't have a CRLF, so back up 17 spots instead of 19
4.     INPUT #1, num1start
5.     INPUT #1, num2start
6.     INPUT #1, num3start
7.     INPUT #1, num4start
8.     INPUT #1, num5start
9.     INPUT #1, num6start
10.     num6start = num6start + 1
11.     PRINT "Resuming count from old file."
12. ELSE
13.     num1start = 1
14.     num2start = 2
15.     num3start = 3
16.     num4start = 4
17.     num5start = 5
18.     num6start = 6
19.     PRINT "Generating values in new 'temp.txt' file."
20. END IF
21.  
22. CLOSE
23.  
24. PRINT "Calculating further values..."
25. PRINT "Press <ANY KEY> to stop."
26. OPEN "temp.txt" FOR APPEND AS #1
27.  
28.  
29.  
30.  
31.  
32. FOR num1 = num1start TO 55
33.     LOCATE 5, 1: PRINT num1,
34.     IF num1 = num2start THEN num2start = num2start + 1
35.     FOR num2 = num2start TO 56
36.         LOCATE 6, 1: PRINT num2,
37.         IF num2 = num3start THEN num3start = num3start + 1
38.         FOR num3 = num3start TO 57
39.             LOCATE 7, 1: PRINT num3,
40.             IF num3 = num4start THEN num4start = num4start + 1
41.             FOR num4 = num4start TO 58
42.                 LOCATE 8, 1: PRINT num4,
43.                 IF num4 = num5start THEN num5start = num5start + 1
44.                 FOR num5 = num5start TO 59
45.                     LOCATE 9, 1: PRINT num5,
46.                     IF num5 = num6start THEN num6start = num6start + 1
47.                     FOR num6 = num6start TO 60
48.                         LOCATE 10, 1: PRINT num6
49.                         s$ = LTRIM$(STR$(num1)) + ","
50.                         IF num1 < 10 THEN s$ = "0" + s$
51.                         IF num2 < 10 THEN s$ = s$ + "0"
52.                         s$ = s$ + LTRIM$(STR$(num2)) + ","
53.                         IF num3 < 10 THEN s$ = s$ + "0"
54.                         s$ = s$ + LTRIM$(STR$(num3)) + ","
55.                         IF num4 < 10 THEN s$ = s$ + "0"
56.                         s$ = s$ + LTRIM$(STR$(num4)) + ","
57.                         IF num5 < 10 THEN s$ = s$ + "0"
58.                         s$ = s$ + LTRIM$(STR$(num5)) + ","
59.                         IF num6 < 10 THEN s$ = s$ + "0"
60.                         s$ = s$ + LTRIM$(STR$(num6))
61.                         PRINT #1, s$
62.                         IF INKEY$ <> "" THEN PRINT: PRINT: PRINT "Terminated Program.  Calculation paused; run it again to resume list generation.": END
63.                     NEXT
64.                     num6start = num5 + 1
65.                 NEXT
66.                 num5start = num4 + 1
67.             NEXT
68.             num4start = num3 + 1
69.         NEXT
70.         num3start = num2 + 1
71.     NEXT
72.     num2start = num1 + 1
73. NEXT
74.  
75.  

Ran your code uninterrupted and it seems to be ending correctly but the record numbers are way, way off!
There should be 50,063,860 combinations, this shows less than 34 millions.
 

Note: my last 10 lines shown above include 0 combinations starting at 52, you have 4.

The way I count, missing by 15 million is a disaster.

[bplus]

Hello bplus
Good night
Should I win the prize? Of course I will remember you bplus. You and Steve deserve it, for dedicating yourself to a newcomer like me. Just send the account number. :)
I am not trying to rewrite the data file.
I was trying to put in the only code, the two codes that you and Steve created for me.
The code that generates the combinations and the code that read the combinations.
In a single code, the two codes together into one.
With a Loop, more with the IF INKEY $ <> "" THEN END in the end for when I want to leave.
 I ran the latter and it made a mistake on the line that is Seek
CarlosCordeiro

Yes having code that reads the file you just made is fine! But you can not skip making the file first before trying to read it. :-))

Your snapshot shows the last line to be the first record. If you input only 1 line in at the beginning, that is only 1 combination you had the code make. To show last 10 lines, you need to enter at least 10, at the beginning of program. It is no longer doing millions but exactly how many lines you want.
 

You are right, you never said anything about rewriting file. I slipped into that thinking having so much trouble working with Steve's Append method.

Steve, It is a valiant and intriguing attempt, it was not easy to go back to fool proof which apparently was not fool proof enough. ;-))

Good luck to us, Carlos! :)

[carloscordeiro]

Really bplus, there's a little flaw in Steve's last code, but I think he'll be fixing it.

Another question I have, is it possible to put a line with some command to show the number of combinations registered in the temp.txt file?
For example:
If I want to add in a variable A = numbers of combinations registered in temp.txt.
How to create this line?
Regardless of having reached the end of the 50 million
It seems like I'm asking too much. Oo

[SMcNeill]

Really bplus, there's a little flaw in Steve's last code, but I think he'll be fixing it.

Another question I have, is it possible to put a line with some command to show the number of combinations registered in the temp.txt file?

One more shot at this -- I was overthinking my process on loading the values and getting things glitched with complexity.  Let's see if this doesn't do what it's supposed to, and what you asked for it to do with the number of combinations written:

Code: QB64: [Select]

1. DIM RecordOn AS LONG
2. IF _FILEEXISTS("temp.txt") THEN
3.     OPEN "temp.txt" FOR INPUT AS #1
4.     SEEK #1, LOF(1) - 17 'records are 19 bytes each, but last line won't have a CRLF, so back up 17 spots instead of 19
5.     RecordOn = LOF(1) \ 19 + 1
6.     INPUT #1, num1start
7.     INPUT #1, num2start
8.     INPUT #1, num3start
9.     INPUT #1, num4start
10.     INPUT #1, num5start
11.     INPUT #1, num6start
12.     num6start = num6start + 1
13.     PRINT "Resuming count from old file."
14.     loaded = -1
15.     CLOSE
16.     OPEN "temp.txt" FOR APPEND AS #1
17. ELSE
18.     OPEN "temp.txt" FOR OUTPUT AS #1
19. END IF
20.  
21.  
22.  
23. PRINT "Calculating further values..."
24. PRINT "Press <ANY KEY> to stop."
25.  
26.  
27.  
28.  
29.  
30.  
31. FOR num1 = 1 TO 55
32.     IF loaded THEN num1 = num1start
33.  
34.     FOR num2 = num1 + 1 TO 56
35.         IF loaded THEN num2 = num2start
36.  
37.         FOR num3 = num2 + 1 TO 57
38.             IF loaded THEN num3 = num3start
39.  
40.             FOR num4 = num3 + 1 TO 58
41.                 IF loaded THEN num4 = num4start
42.  
43.                 FOR num5 = num4 + 1 TO 59
44.                     IF loaded THEN num5 = num5start
45.  
46.                     FOR num6 = num5 + 1 TO 60
47.                         RecordOn = RecordOn + 1
48.                         IF loaded THEN num6 = num6start: loaded = 0
49.                         s$ = LTRIM$(STR$(num1)) + ","
50.                         IF num1 < 10 THEN s$ = "0" + s$
51.                         IF num2 < 10 THEN s$ = s$ + "0"
52.                         s$ = s$ + LTRIM$(STR$(num2)) + ","
53.                         IF num3 < 10 THEN s$ = s$ + "0"
54.                         s$ = s$ + LTRIM$(STR$(num3)) + ","
55.                         IF num4 < 10 THEN s$ = s$ + "0"
56.                         s$ = s$ + LTRIM$(STR$(num4)) + ","
57.                         IF num5 < 10 THEN s$ = s$ + "0"
58.                         s$ = s$ + LTRIM$(STR$(num5)) + ","
59.                         IF num6 < 10 THEN s$ = s$ + "0"
60.                         s$ = s$ + LTRIM$(STR$(num6))
61.                         LOCATE 5, 1: PRINT "Writing Record"; RecordOn; "of 50,063,860 combinations: "; s$
62.                         PRINT #1, s$
63.                         IF INKEY$ <> "" THEN PRINT: PRINT: PRINT "Terminated Program.  Calculation paused; run it again to resume list generation.": END
64.                     NEXT
65.                 NEXT
66.             NEXT
67.         NEXT
68.     NEXT
69. NEXT
70.