File INPUT in a sub error ??

[191Brian]

Hi

I am trying the read input from a file in a subroutine, the IDE  says invalid expression on the INPUT line but if I comment out the SUB & END SUB lines
the IDE is happy with the same line.
I also note the IDE does not autocorrect the the case of a type variable array name when you refer the the array name only in a UBOUND.

Am I missing something or is file input only allowed in the mail program?

Brian ...

Code: QB64: [Select]

1. OPTION _EXPLICIT
2.  
3.  
4. TYPE SCORES
5.     player AS STRING
6.     score AS INTEGER
7. END TYPE
8.  
9. REDIM SHARED playerScores(10) AS SCORES ' High scores array
10.  
11. SUB LoadScores
12.  
13.     ' Load scores from file into array and sort highest to lowest
14.  
15.     DIM scoreFile AS LONG
16.     DIM si AS INTEGER
17.     DIM si2 AS INTEGER
18.     DIM swapped AS INTEGER
19.     DIM highScore AS STRING
20.  
21.     highScore = "highscore.txt"
22.     scoreFile = FREEFILE
23.     IF _FILEEXISTS(highScore) THEN
24.         OPEN highScore FOR INPUT AS #scoreFile
25.         si = 0
26.         DO UNTIL EOF(scoreFile)
27.             IF si > UBOUND(playerscores) THEN
28.                 REDIM _PRESERVE playerscores(UBOUND(playerscores) + 1)
29.             END IF
30.         INPUT #scoreFile, playerScores(si).player, playerScores(si).score
31.  
32.         si = si + 1
33.     LOOP
34.  
35. END IF
36. END SUB
37.  

[FellippeHeitor]

What Steve says in the next post:

[SMcNeill]

LINE 28:                  REDIM _PRESERVE playerScores(UBOUND(playerscores) + 1) AS SCORES

You're not telling it what to redim your variable as.

[SMcNeill]

It has to do with using a variable-width string in your TYPE. Change the type to something like:

Code: QB64: [Select]

1. TYPE SCORES
2.     player AS STRING * 20
3.     score AS INTEGER
4. END TYPE
5.  

Change 20 to whatever max length you'll allow for player names, and that will work.

I'm not getting any error with the player AS STRING.  I'm just seeing the issue with  the REDIM.

[FellippeHeitor]

Already redacted even before your reply. You're with stupid.

[191Brian]

Hi

Thank you.

The fact it didn't need the AS SCORES outside the sub confused me.

Any comment of the array name case not being autocorrected for capitalisation in the ubound?

Brian ...

[FellippeHeitor]

Any comment of the array name case not being autocorrected for capitalisation in the ubound?

Press conference is over.

🤣

[SMcNeill]

Hi

Thank you.

The fact it didn't need the AS SCORES outside the sub confused me.

Any comment of the array name case not being autocorrected for capitalisation in the ubound?

Brian ...

That's a long term glitch that nobody has sorted out yet.  It's buried deep in the code.

[191Brian]

Oh OK thanks for letting me know.