Чтение файла

[Petrofan]

Вопрос:
Как прочитать текстовий файл с такой начинкой.

1 2 2 2 2 2 2 2 2 1
1 2 1 1 1 1 1 1 2 1
1 2 1 1 1 1 1 1 2 1
1 2 2 2 2 2 2 2 2 1

чтоб каждая цифра имела свою переменую. Зарание благодарен.

[SBJoker]

Массив вам поможет

[L.D.M.T.]

dim a(100)

filein = ReadFile("mydata.dat")

for i=1 to 10
a(i) = readbyte(filein)
next

[ABTOMAT]

Сообщение от L.D.M.T.

dim a(100)

filein = ReadFile("mydata.dat")

for i=1 to 10
a(i) = readbyte(filein)
next

не труЪ бо всякие там переходы на другую строку тоже прочитаются

[MiXaeL]

ReadLine и потом каждый нечетный символ вытаскивать)

[Petrofan]

Почему чтение байта а не строки ?

[Mhyhr]

Воть я тебе написал немножко =)
http://forum.boolean.name/showthread...663#post107663

[Petrofan]

А как сделать чтобы считывало числа больше 9. Оно считывает числа 1234567890 а если надо считать 10,11,.....,100 как с этим быть пробовал сам но с этим пока туговато у меня.

[Mhyhr]

юзай тогда чтение сразу в две цифры AB или в три цифры или больше))
А - десятки
В - единицы
А+В=Число

[IGR]

тогда возьми пробел за разделитель !! или другой символ !!
ищи по форуму тему: Нарезка строки по разделителю !! Товарисч Импер писал помойму !! тебе должно помочь !!

UP: http://forum.boolean.name/showthread.php?t=3713&highlight=%CD%E0%F0%E5%E7%EA %E0+%F1%F2%F0%EE%EA%E8+%EF%EE+%F0%E0%E7%E4%E5%EB%E 8%F2%E5%EB%FE

[Petrofan]

mapfile = ReadFile("Level\Level_1.lvl")
For YY=1 To 8
CurLi$ = ReadLine$(mapfile)
CurrentLine$=LSet$(CurLi$,
;Ten=
For XX=1 To 8
CurrentSymbol$=Mid$(CurrentLine$,XX,1)
Select CurrentSymbol$
Case "1"
Map(XX,YY)=1
Case "2"
Map(XX,YY)=2
Case "3"
Map(XX,YY)=3
Case "4"
Map(XX,YY)=4
Case "5"
Map(XX,YY)=5
Case "6"
Map(XX,YY)=6
Case "7"
Map(XX,YY)=7
Case "8"
Map(XX,YY)=8
Case "9"
Map(XX,YY)=9
End Select
Next
Next
Вот я взял этот код из этой ссилки http://forum.boolean.name/showthread...663#post107663
Чувствую что сдесь решит проблему одна или две строски

[Mhyhr]

Petrofan а какая разница, как называется переменная, Х или ХХ, осознаёте?

Даю подсказку...
For X=1 To 8 step 2
CurrentSymbol$=Mid$(CurrentLine$,X,2)

[Petrofan]

Если делать step 2 тогда берет 10...19 числа но пропускает 1...9

[Mhyhr]

Хм... должно работать, вы тестировали?,думаю стоит писать новый файл загрузки с нулями или пробелами, также возможно потребуется обработчик.
01 02 03 04 05 06 07 08 09


Может для ваших целей подойдет другое решение?
Чтение цвета пикселей с bmp картинки или сделать простенький свой формат уровня?

[Petrofan]

Карта это текстовый файл с набором чисел проще формата я незнаю вот и хочу использовать. Если бы он читался 010203...101112 было бы круто