Функция Split

Новая функция, которая появилась в Visual Basic 6.0. Функция Split используется для расщепления строки на подстроки с использованием разделителя подстрок. Возвращает одномерный массив с типом данных Variant(String), содержащий в качестве элементов найденные подстроки.

Split(Expression,[Delimiter],[Limit],[Compare] )

Expression. Обязательный аргумент - строка, которую нужно расщепить. Если аргумент содержит нулевую строку(""), то возвращается пустой массив, т.е. массив без элементов и данных.

Delimiter.Необязательный аргумент - символы типаString, которые используются в качестве разделителя строки. Если аргумент опущен, то по умолчанию используется символ пробела (" "). Если же аргумент содержит нулевую строку(""), то возвращается одноэлементный массив, содержащий целую строку.

Limit. Необязательный аргумент, содержащий число возвращаемых подстрок. Если аргумент опущен или равен -1, то обрабатывается вся строка.

Compare. Необязательный аргумент - числовая константа, определяющая вид сравнения.

Функция Join

Функция, выполняющая обратное действие – объединение элементов массива в строку, используя указанный разделитель.

Join (name_array, [Delimiter])

Пример. Дан текст. Определить количество предложений. Найти количество слов, начинающихся с буквы «п».

На форме в поле Text1 – располагается исходный текст, в поле Text2 – количество предложений, в поле Text3 – количество слов, начинающихся на букву п.

Private Sub Command1_Click()

s1$ = "Привет, Поль! С праздником! С наилучшими пожеланиями Питер."

Text1.Text = s1

ns = Len(s1)

ks = 0 : kp = 0

For i = 1 To ns

a$ = Mid(s1, i, 1)

If (a = ".") Or (a = "?") Or (a = "!") Then kp = kp + 1

Next i

For i = 1 To ns - 2

Select Case i

Case Is = 1

If Mid(s1, i, 1) = "П" Or Mid(s1, i, 1) = "п" Then ks = ks + 1

Case Else

If Mid(s1, i, 2) = " П" Or Mid(s1, i, 2) = " п" Then ks = ks + 1

End Select

Next i

Text2.Text = Str(kp)

Text3.Text = Str(ks)

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

При вводе символа в текстовом окне в метках отображается код последнего и предпоследнего символов

Private Sub Command1_Click() Unload Me End Sub Private Sub Text1_Change() Label3.Caption = Asc(Right(Text1.Text, 1)) If Len(Text1.Text) > 1 Then Label4.Caption = Asc(Mid(Text1.Text, Len(Text1.Text) - 1, 1)) End If End Sub

Оператор Mid

Синтаксис

Mid(stringvar, start [, length]) = string,

где stringvar- имя строчной переменной для модификации,

start- позиция символа вstringvar, с которой начинается заменяемая часть строки,

length- число заменяемых символов,

string- строковое выражение для замены.

Mid(s1, 9) = "Жиль"

Число заменяемых символов всегда меньше или равно числу символов в stringvar.

Не следует путать этот оператор с одноименной функцией!

Файлы

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

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

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

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