Sirik » 01.03.2004 (Пн) 14:21
Если структура файла такая:
123456
900291
901092
...
То вот код:
- Код: Выделить всё
dim chisla(100) as long
open "chisla.txt" for input as 1
i=0
while not eof(1)
i=i+1
input #1,chisla(i)
wend
close
В массиве chisla() будут считаны и хранится твои числа из файла 'chisla.txt'
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки