Mega sena database

[carloscordeiro]

bplus, please, please, tell me what comes before .... dot
OPEN "temp.txt" FOR INPUT AS # 1
.... stuff

SEEK # 1, (RecordNumber - 1) * 19 + 1
FOR i = 1 TO 6
      INPUT Ball (i)
NEXT
CLOSE
Thank you very much for your help, and for SMcNeill.
CarlosCordeiro.

[SMcNeill]

bplus, please, please, tell me what comes before .... dot
OPEN "temp.txt" FOR INPUT AS # 1
.... stuff

SEEK # 1, (RecordNumber - 1) * 19 + 1
FOR i = 1 TO 6
      INPUT Ball (i)
NEXT
CLOSE
Thank you very much for your help, and for SMcNeill.
CarlosCordeiro.

The ...stuff was there so you could insert whatever you needed into your code to work with the values on hand.

For a working illustration of how to handle the text file using SEEK and INPUT, here's an example for you:

Code: QB64: [Select]

1. _DEFINE A-Z AS _INTEGER64
2. RANDOMIZE TIMER
3.  
4.  
5. OPEN "temp.txt" FOR INPUT AS #1
6.  
7. 'A demo of just listing all the numbers/combinations for us
8. FOR recordnumber = 1 TO 50063830
9.     SEEK #1, (recordnumber - 1) * 19 + 1
10.     LINE INPUT #1, t$
11.     PRINT "RECORD"; recordnumber; ":"; t$
12.     IF INKEY$ <> "" THEN EXIT FOR 'Escape to quit
13. NEXT
14.  
15.  
16. 'And a demo of how to get one particular value from the list:
17. DO
18.     PRINT
19.     PRINT
20.     DO
21.         INPUT "Give me a record number from 1 to 50063830 (0 quits):"; recordnumber
22.         IF recordnumber = 0 GOTO OutsideLoop
23.     LOOP UNTIL recordnumber > 0 AND recordnumber < 50063831
24.     SEEK #1, (recordnumber - 1) * 19 + 1
25.     LINE INPUT #1, t$
26.     PRINT "RECORD"; recordnumber; ":"; t$
27. LOOP
28.  
29. 'And a demo of randomly generating values using our list:
30. OutsideLoop:
31. PRINT
32. PRINT
33. FOR i = 1 TO 10
34.     recordnumber = INT(RND * 50063830) + 1
35.     SEEK #1, (recordnumber - 1) * 19 + 1
36.     LINE INPUT #1, t$
37.     PRINT "Random Drawing #"; i; ": "; t$
38. NEXT

Note: You'll need the temp.txt file which was generated previously to run this demo.

[bplus]

bplus, please, please, tell me what comes before .... dot
OPEN "temp.txt" FOR INPUT AS # 1
.... stuff

SEEK # 1, (RecordNumber - 1) * 19 + 1
FOR i = 1 TO 6
      INPUT Ball (i)
NEXT
CLOSE
Thank you very much for your help, and for SMcNeill.
CarlosCordeiro.

Hi CarlosCordeiro.

Yes I was hoping Steve would fill in about the "... stuff".   Thanks Steve

[carloscordeiro]

Great!!! Many thanks SMcNeill, you're a genius.
A great evening.
CarlosCordeiro

[carloscordeiro]

Good night, Steve.
Not wanting to be Inconvenient, could you exemplify how do I end part of the sequence and start over again where She stopped? Let's say I want to populate the temp.txt file with Intervals without it losing its order.
I mean, insert 1 million today, then 2 million more, until you reach 50 million.
It is very important to me.
Appreciate.

PRINT "Calculating..."
OPEN "temp.txt" FOR OUTPUT AS #1
FOR num1 = 1 TO 55
    LOCATE 5, 3: PRINT num1,
    FOR num2 = num1 + 1 TO 56
        LOCATE 5, 5: PRINT num2,
        FOR num3 = num2 + 1 TO 57
            LOCATE 5, 7: PRINT num3,
            FOR num4 = num3 + 1 TO 58
                LOCATE 5, 9: PRINT num4,
                FOR num5 = num4 + 1 TO 59
                    LOCATE 5, 11: PRINT num5,
                    FOR num6 = num5 + 1 TO 60
                        LOCATE 5, 13: PRINT num6
                        s$ = LTRIM$(STR$(num1)) + ","
                        IF num1 < 10 THEN s$ = "0" + s$
                        IF num2 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num2)) + ","
                        IF num3 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num3)) + ","
                        IF num4 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num4)) + ","
                        IF num5 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num5)) + ","
                        IF num6 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num6))
                        PRINT #1, s$
                    NEXT
                NEXT
            NEXT
        NEXT
    NEXT
NEXT

[bplus]

Good night, Steve.
Not wanting to be Inconvenient, could you exemplify how do I end part of the sequence and start over again where She stopped? Let's say I want to populate the temp.txt file with Intervals without it losing its order.
I mean, insert 1 million today, then 2 million more, until you reach 50 million.
It is very important to me.
Appreciate.

PRINT "Calculating..."
OPEN "temp.txt" FOR OUTPUT AS #1
FOR num1 = 1 TO 55
    LOCATE 5, 3: PRINT num1,
    FOR num2 = num1 + 1 TO 56
        LOCATE 5, 5: PRINT num2,
        FOR num3 = num2 + 1 TO 57
            LOCATE 5, 7: PRINT num3,
            FOR num4 = num3 + 1 TO 58
                LOCATE 5, 9: PRINT num4,
                FOR num5 = num4 + 1 TO 59
                    LOCATE 5, 11: PRINT num5,
                    FOR num6 = num5 + 1 TO 60
                        LOCATE 5, 13: PRINT num6
                        s$ = LTRIM$(STR$(num1)) + ","
                        IF num1 < 10 THEN s$ = "0" + s$
                        IF num2 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num2)) + ","
                        IF num3 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num3)) + ","
                        IF num4 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num4)) + ","
                        IF num5 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num5)) + ","
                        IF num6 < 10 THEN s$ = s$ + "0"
                        s$ = s$ + LTRIM$(STR$(num6))
                        PRINT #1, s$
                    NEXT
                NEXT
            NEXT
        NEXT
    NEXT
NEXT

Hi carloscordeiro,

I see your question addressed to Steve, but Steve not answering (yet). So I will try to assist.

You can create more files or applications based on using the file created from code above as a source of data.
For example create a file with first million, then create a file with 2nd million and so on... or just load an array with a million items randomly selected or in blocks and do what you want with it.

Steve gave you the code, keys to accessing that file's data, for whatever purpose you might use that data for (see reply #16).

[carloscordeiro]

Good evening, bplus

Thanks for answering for Steve.
I want to create a single temp.txt file, which I support inserting every million in intervals. For example, I enter 1 million today, another 2 million tomorrow until I get 50 million in the same temp.txt file.

CarlosCordeiro

[jack]

the way I understand it, you want to write 1 million lotto numbers to a text file and then suspend the operation, then the next days resume where you left off and add another million numbers a day until finished, is that right?

[bplus]

That's the way I read it too Jack.

Do you think this will do that?

Code: QB64: [Select]

1. DIM count AS _INTEGER64
2.  
3. INPUT "Enter which million we are appending today ", millions 'day 1 say 1, day 2 say 2...
4.  
5. PRINT "Calculating..."
6. OPEN "temp.txt" FOR APPEND 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 - 1) * 10 ^ 6 + 1 AND count < millions * 10 ^ 6 + 1 THEN
33.                             PRINT #1, s$
34.                         END IF
35.                         IF count >= millions * 10 ^ 6 + 1 THEN CLOSE #1: END
36.                     NEXT
37.                 NEXT
38.             NEXT
39.         NEXT
40.     NEXT
41. NEXT
42.  
43.  

Edit: I was off by 1 when I tested by 10's, fixed.

[FellippeHeitor]

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

[bplus]

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

;-))

I have the 2nd day ending with

01,07,16,42,44,46

the 2 millionth entry

[carloscordeiro]

Thank you very much, that's exactly what I want Jack. Write 1 million lottery numbers in a text file and then suspend the operation, so the next few days pick up where you left off and add another million numbers a day until you finish.

Thanks again to bplus. The code resumes where it stopped, but does not continue to count 1 million, it returns to the beginning.
CarlosCordeiro

[bplus]

Thank you very much, that's exactly what I want Jack. Write 1 million lottery numbers in a text file and then suspend the operation, so the next few days pick up where you left off and add another million numbers a day until you finish.

Thanks again to bplus. The code resumes where it stopped, but does not continue to count 1 million, it returns to the beginning.
CarlosCordeiro

On day 2 enter 2 not 1, here is my transition:

[carloscordeiro]

Bplus, on day 2 it will resume the sequence of 1,2,3,4,5,6. If the code could start from 01,04,13,23,30,59. So there would be no need to go back to the beginning. My intention would be this.
I'm sorry if I'm getting inconvenient

CarlosCordeiro

[bplus]

Bplus, on day 2 it will resume the sequence of 1,2,3,4,5,6. If the code could start from 01,04,13,23,30,59. So there would be no need to go back to the beginning. My intention would be this.
I'm sorry if I'm getting inconvenient

CarlosCordeiro

Start Over!

Erase temp.txt

day 1 enter 1 at this prompt
INPUT "Enter which million we are appending today ", millions 'day 1 say 1, day 2 say 2...

day 2 enter 2 at this prompt
INPUT "Enter which million we are appending today ", millions 'day 1 say 1, day 2 say 2...

then all will work. :)

If you mess up, the code will just keep adding the new section onto the old reguardless if it is where you wanted it or not.
The code is NOT rewriting the file but only adding on to the end of it.

BTW the code has been fixed, because it was 1 off of a million, use the current code in my last code listing posted in this thread, Reply #23.