Вниз  RFO BASIC
- 17.08.2016 / 08:16
vh180477
  Пользователь

vh180477 
Сейчас: Offline
rammires, читай файл по байтам. Там же всё просто:
Открыть спойлер

- 17.08.2016 / 08:26
vh180477
  Пользователь

vh180477 
Сейчас: Offline
Цитата rammires:
И вопрос, тупой до ужаса, как тут взять строку посимвольно. Строка читается из файла, и надо последовательно полкчить каждый символ отдельно...

Извини не правильно вопрос понял. Тогда вот такое решение.

Открыть спойлер

- 17.08.2016 / 12:05
19Ram84
  Пользователь

19Ram84 
Сейчас: Offline
Цитата 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
  Пользователь

vh180477 
Сейчас: Offline
Код можно? У меня работает, запустил только-что. Какая версия RFO? Про сборку APK прикольно в ПП (млять ещё и красным выделенно!!!).

Изменено vh180477 (17.08 / 13:34) (всего 1 раз)
- 17.08.2016 / 14:43
19Ram84
  Пользователь

19Ram84 
Сейчас: Offline
Цитата 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
  Пользователь

1961uvg 
Сейчас: Offline
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
  Пользователь

Es1841 
Сейчас: Offline
Rammires -
Вот этот код работает.

  1. REM Start of BASIC
  2. ! Program
  3. stroka$="nautilus"
  4.  
  5. dlina=len(stroka$)
  6. dd=0
  7.  
  8. dim strmas$[dlina+2]
  9. n=1
  10. do
  11. str1$=left$(stroka$,dd)
  12. str2$=right$(str1$,1)
  13. print str2$,"dim"n
  14. simbol$=str2$
  15. strmas$[n]=simbol$
  16. n=n+1
  17. dd=dd+1
  18. until n=dlina+2


Изменено aNNiMON (17.08 / 16:15) (всего 4 раза)
- 17.08.2016 / 19:38
vh180477
  Пользователь

vh180477 
Сейчас: Offline
Es1841,
Я там просто скобки перепутал, а так всё работает. Вот поправил скобки. Мой вариант короче. Там же лучше MID$(текст,с какого символа,сколько символов) применить.


Открыть спойлер

- 17.08.2016 / 19:43
vh180477
  Пользователь

vh180477 
Сейчас: Offline
1961uvg, Купил :) Штука прикольная , но работает очень медленно. Ram - ты прав если меняешь путь то не работает. Я не понял почему. Если путь по умолчанию то всё пашет, файл создаётся пишется и читается.

Изменено vh180477 (17.08 / 19:45) (всего 1 раз)
- 17.08.2016 / 21:38
19Ram84
  Пользователь

19Ram84 
Сейчас: Offline
vh180477, Хм, по умолчанию?
Надо проверить :-)
Наверх  Всего сообщений: 2716
Фильтровать сообщения
Поиск по теме
Файлы топика (511)