17.08.2016 / 08:16 | |
vh180477 Пользователь Сейчас: Offline
Имя: Валерка Откуда: Костомукша Регистрация: 03.11.2015
| rammires, читай файл по байтам. Там же всё просто: Открыть спойлер Закрыть спойлер BYTE.OPEN w,file1,"rammires.txt"%Открываем файл для записи
BYTE.WRITE.BYTE file1,32,34 %Записываем 2 байта
BYTE.WRITE.BYTE file1,"12345" %записываем 5 байт
BYTE.CLOSE file1 %Закрываем файл
BYTE.OPEN r,file2,"rammires.txt" %Открываем для чтения
BYTE.READ.BYTE file2,x %читаем байт
PRINT x %Выводим на экран
BYTE.CLOSE file2 %Закрываем файл
|
17.08.2016 / 08:26 | |
vh180477 Пользователь Сейчас: Offline
Имя: Валерка Откуда: Костомукша Регистрация: 03.11.2015
| Цитата rammires: И вопрос, тупой до ужаса, как тут взять строку посимвольно. Строка читается из файла, и надо последовательно полкчить каждый символ отдельно...Извини не правильно вопрос понял. Тогда вот такое решение. Открыть спойлер Закрыть спойлер fraza$="витамин" %Строка которую разбить
kol=LEN(fraza$) %Длина строки
DIM simbol$(kol) %Сюда забьём символы
FOR q=1 TO kol
simdol$(q)=MID$(fraza$,q,1) %Получаем символ из строки кладём в массив
NEXT
|
17.08.2016 / 12:05 | |
19Ram84 Пользователь Сейчас: Offline
Регистрация: 30.08.2015
| Цитата vh180477: rammires, читай файл по байтам. Там же всё просто: [spoiler][code=basic]BYTE.OPEN w,file1,"rammires.txt"%Открываем файл для записи BYTE.WRITE.BYTE file1,32,34 %Записываем 2 байта BYTE.WRITE.BYTE[/cЧто то у меня, ошибка идет . Пытаюсь писать путь "/sdcard/1.txt"
|
17.08.2016 / 13:28 | |
vh180477 Пользователь Сейчас: Offline
Имя: Валерка Откуда: Костомукша Регистрация: 03.11.2015
| Код можно? У меня работает, запустил только-что. Какая версия RFO? Про сборку APK прикольно в ПП (млять ещё и красным выделенно!!!).
Изменено vh180477 (17.08 / 13:34) (всего 1 раз) |
17.08.2016 / 14:43 | |
19Ram84 Пользователь Сейчас: Offline
Регистрация: 30.08.2015
| Цитата vh180477: Код можно? У меня работает, запустил только-что. Какая версия RFO? Про сборку APK прикольно в ПП (млять ещё и красным выделенно!!!).1.BYTE.OPEN w,file1,"sdcard/2.txt"%Открываемфайлдля записи 2.BYTE.WRITE.BYTEfile1,32,34%Записываем2байта 3.BYTE.WRITE.BYTEfile1,"12345"%записываем5байт 4.BYTE.CLOSEfile1%Закрываемфайл 5.BYTE.OPENr,file2,"sdcard/2.txt"%Открываемдля чтения 6.BYTE.READ.BYTEfile2,x%читаембайт 7.PRINTx%Выводимнаэкран 8.BYTE.CLOSEfile2%Закрываемфайл
|
17.08.2016 / 14:46 | |
1961uvg Пользователь Сейчас: Offline
Имя: Victor Откуда: Минск Регистрация: 28.07.2015
| B маркете уже компилятор по 2,8$ ! Для версии 1.90 . https://play.google.com/store/apps/details?id=com.rfo.compilerПродолжается работа по VIP версии ( бесплатной ). Изменено 1961uvg (17.08 / 14:47) (всего 1 раз) |
17.08.2016 / 16:02 | |
Es1841 Пользователь Сейчас: Offline
Имя: Andrei Регистрация: 04.08.2016
| Rammires - Вот этот код работает. REM Start of BASIC
! Program
stroka$="nautilus"
dlina=len(stroka$)
dd=0
dim strmas$[dlina+2]
n=1
do
str1$=left$(stroka$,dd)
str2$=right$(str1$,1)
print str2$,"dim"n
simbol$=str2$
strmas$[n]=simbol$
n=n+1
dd=dd+1
until n=dlina+2
Изменено aNNiMON (17.08 / 16:15) (всего 4 раза) |
17.08.2016 / 19:38 | |
vh180477 Пользователь Сейчас: Offline
Имя: Валерка Откуда: Костомукша Регистрация: 03.11.2015
| Es1841, Я там просто скобки перепутал, а так всё работает. Вот поправил скобки. Мой вариант короче. Там же лучше MID$(текст,с какого символа,сколько символов) применить. Открыть спойлер Закрыть спойлер !simb[] - сюда строка попадает посимвольно если надо
!kol - колл-во символов
fraza$="Цитрамон"
kol=LEN(fraza$) %Узнаём сколько символов в тексте
DIM simb$[kol] %Массив с символами
FOR q=1 TO kol
simb$[q]=MID$(fraza$,q,1) %MID$(текст,с какого символа,сколько символов)
PRINT simb$[q] %Печатаем полученный символ
NEXT
|
17.08.2016 / 19:43 | |
vh180477 Пользователь Сейчас: Offline
Имя: Валерка Откуда: Костомукша Регистрация: 03.11.2015
| 1961uvg, Купил Штука прикольная , но работает очень медленно. Ram - ты прав если меняешь путь то не работает. Я не понял почему. Если путь по умолчанию то всё пашет, файл создаётся пишется и читается. Изменено vh180477 (17.08 / 19:45) (всего 1 раз) |
17.08.2016 / 21:38 | |
19Ram84 Пользователь Сейчас: Offline
Регистрация: 30.08.2015
| vh180477, Хм, по умолчанию? Надо проверить |