Private Sub Command1_Click()

Dim i, k As Byte

Dim s As String

Dim m(1 To 127) As String 'Описание массива для хранения слов

s – заданная строка

s = Text1.Text

Text2.Text = ""

k = 1 'Задание начального номера элемента массива

For i = 1 To Len(s) 'Цикл для поиска пробелов

If (Mid(s, i, 1) <> " ") And (Mid(s, i, 1) <> ".") And

(Mid(s, i, 1) <> "!") And (Mid(s, i, 1) <> "?") Then

m(k) = m(k) + Mid(s, i, 1)'Формирование очередного элемента массива

Else

k = k + 1 'Увеличение номера элемента массива

End If

Next i

For i = 1 To k

Text2.Text = Text2.Text + m(i) + Chr(13) + Chr(10)

Next i

End Sub

Файлы

В зависимости от организационной структуры хранения информации в файле и способа доступа к этой информации принято выделять три типа файлов:

1. Файлы последовательного доступа. Как правило, это текстовые файлы. Структурной единицей таких файлов является строка. Данные в них хранятся в виде цепочки ASCII кодов и могут обрабатываться любым текстовым редактором. Запись и считывание данных при работе с такими файлами происходит строго последовательно (нельзя получить доступ ко второй записи, не прочитав первой).

2. Файлы произвольного доступа. Это структурированные файлы, которые содержат информацию в виде записей. Например, файлы баз данных. Компоненты (поля) в записях таких файлов могут иметь разные типы. Но все записи файлов последовательного доступа имеют постоянную длину и порядковый номер. Это позволяет получить доступ сразу к нужной записи без последовательного просмотра всех предыдущих.

3. Бинарные (двоичные) файлы. Это могут быть файлы последовательного доступа, но информация в них представлена в виде байтов или блоков байтов. К таким файлам можно отнести файлы с расширением exe, т.е. программные. Это могут быть файлы произвольного доступа: размер записи у них всегда равен 1 байту, и любой байт можно считать по его порядковому номеру.