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,  Хм, по умолчанию?  Надо проверить    |