Считывание из файла чисел

[Hellfalcon]

Есть файл с числами. Как в блице считать эти числа и сохранить в массив?

[Reks888]

;===================================
;ReadInt не использован
;из-за проблем блица с кодировкой
;чисел в блокноте
;===================================

; Открыть файл для считывания
filein = ReadFile("mydata.dat") 
; Считываем из файла длину массива как текст и переводим в число
DimLen=Int(ReadString(filein)

Dim Highscore(DimLen)

;  Считать лучшие результаты как строку из файла и пишем в массив
For i=0 to DimLen-1
HighScore(i)=Int(ReadLine(infile))
Next

; Закрыть файл, как  только считывание закончилось
CloseFile( filein ) 

Print "Рекорд  (HighScore), считанный из файла mydata.dat " 
For i=0 to DimLen-1
Print "Место N"+i+" - "+HighScore(i)
Next

WaitKey()
End 


[Tadeus]

Э, а что за несовместимость? Просто число пишется "напрямую", т.е. как 4 байта, а не как строка.

[Hellfalcon]

выдает три раза ошибку Memory acces violation на
DimLen=Int(ReadString(filein))
У меня файл *.txt . Может из-за этого ?
Как тогда по-другому можно подсчитать количество строк?

[Tadeus]

Сообщение от Hellfalcon

выдает три раза ошибку Memory acces violation на
DimLen=Int(ReadString(filein))
У меня файл *.txt . Может из-за этого ?
Как тогда по-другому можно подсчитать количество строк?

А файл-то у тебя с правильным именем?

[Reks888]

Сообщение от Hellfalcon

Как тогда по-другому можно подсчитать количество строк?

i=0
Const VeryBigNumber=32767;Сюда подставить число которое заведомо больше ;максимально возможного числа строк

Dim Highscore(VeryBigNumber)

While Not eof(filein)
Highscore(i)=Int(ReadLine(filein))
i=i+1
Wend 


либо

i=0

While Not eof(filein)
i=i+1
Wend

Dim Highscore(i)
i=0

While Not eof(filein)
Highscore(i)=Int(ReadLine(filein))
i=i+1
Wend 


От расширения файла не зависит, можешь хоть *.exe читать