Мне нужна помощь с изучением синтаксиса.

[MARK99]

Марк, пробей тему!
Как с помощью smart Basic можно было бы играть в онлайне? Сетевые команды я так и не освоил и уже наверное не суждено освоить-голова то уже не новая для начала надо просто научиться двигать фигуры.

К тому же сдесь ещё нужно знать скрипы, а на их изучение самому наверное года два уйдёт, я прост пробовал в девятом классе, того года- по нулям, решил изучать плюсы, там проще, да и от си почти не отличается синтаксисом,
Это Mr. Kibernetik у нас знает JavaScript!!!
Может в институте получил знания о нем
Здорово.

[dimonnn777]

Подскажите, как определить количество строк в txt файле и прочитать определённую строку?
Как строку прочитать побуквенно (присвоить каждому знаку строки переменную, массив)?
В документации не нашёл, может плохо искал.

[MARK99]

Подскажите, как определить количество строк в txt файле и прочитать определённую строку?
Как строку прочитать побуквенно (присвоить каждому знаку строки переменную, массив)?
В документации не нашёл, может плохо искал.

Я поступаю так:

Code: Select all

Do
FILE N$ READLINE X$' читает строку из файла, после чего указатель файла переместиться в начало след.стр.
W+=1' подсчет строк 
Until FILE_END (N$)=1' если указатель в конце файла, то выход из цикла

[dimonnn777]

Спасибо
А с символами в строке не поможите?

[MARK99]

Спасибо
А с символами в строке не поможите?

А что именно вас интересует?

[dimonnn777]

как прочитать строку посимвольно.
Мне нужно чтобы а1$=первый символ,а2$=второй и т.д.

[MARK99]

как прочитать строку посимвольно.
Мне нужно чтобы а1$=первый символ,а2$=второй и т.д.

Code: Select all

Dim a$(Len (t$))
K=0
Do
A$(k)= MID$ (T$, k, k+1)
K+=1
Until k=Len (t$)

[dimonnn777]

Спасибо Вам огромное!
Вроде всё должно получиться
Только в моём случае эту строчку

Code: Select all

A$(k)= MID$ (T$, k, k+1)

нужно так

Code: Select all

A$(k)= MID$ (T$, k, 1)

а то на выходе ерунда получалась

[dimonnn777]

С буквами в строке разобрался, а вот с самой стракой проблемы.
Количество строк определил
Пробую прочитать нужную Wst

Code: Select all

Do
FILE N$ READLINE X$
W+=1
Until Wst=W

Но в переменной X$ пусто
Что я делаю не так

[dimonnn777]

Разобрался, надо было изменить положение указателя

Code: Select all

FILE N$ SETPOS X