Простой парсер
- 10 open #0,"file:///M:/mb/file","input"
- 20 for a%=0 to 999999999
- 30 get #0,bite%
- 40 trap 60
- 50 next a%
- 60 close #0:open #0,"file:///M:/mb/file","input"
- 61 dim bite$(a%)
- 70 for b%=0 to a%-1
- 80 get #0,c%
- 90 bite$(b%)=chr$(c%)
- 100 next b%
- 101 close #0
- 110 for i%=0 to a%-1
- 120 if bite$(i%)=" " then probil%=probil%+1
- 130 next i%
- 200 dim slova$(probil%+1)
- 201 for i%=0 to probil%
- 202 slova$(i%)=""
- 205 next i%
- 210 for i%=0 to a%-1
- 215 slova$(n%)=slova$(n%)+bite$(i%)
- 220 if bite$(i%)=" " then n%=n%+1
- 230 next i%
- 240 for i%=0 to probil%
- 250 print slova$(i%)
- 260 next i%
Сегодня нашол.Написано давно,в свое время код был в разделе уроков на mbteam.Хорошо(или не очень..вообщем как есть)показана робота с байтами и масивами.
