| |
Функция Split | новая функция в VB6! | Синтаксис Split(expression[, delimiter[, limit[, compare]]]) | Возвращает одномерный массив (начиная с нуля), содержащий определенное число элементов. Используйте эту функцию, а не изобретайте свои аналоги как я видел во многих программах. Split написана очень грамотно и работает очень быстро. | Параметры Наименование | Описание | Expression | Обязательный. Аргумент, содержащий строку, которую нужно расщепить. Если аргумент содержит нулевую строку(""), то возвращается пустой массив, т.е. массив без элементов и данных |
Delimiter | Необязательный. Символы типа String, которые используются в качестве разделителя строки. Если аргумент опущен, то по умолчанию используется символ пробела(" "). Если же аргумент содержит нулевую строку(""), то возвращается одноэлементный массив, содержащее целую строку | Limit | Необязательный. Аргумент, содержащий число возвращаемых субстрок. Если аргумент опущен или равен -1, то обрабатывается вся строка | Compare |
Необязательный. Аргумент - число или константа, указывающее на используемый вид сравнения:
vbUseCompareOption=-1
Используются установки, задаваемые оператором Option Compare. Используется по умолчанию
vbBinaryCompare=0
Двоичное сравнение. Сравнение строк производится по внутренним кодам символов, определяемых кодовой страницей. Буквы разных регистров считаются разными
vbTextCompare=1
Текстовое сравнение. Сравнение строк без учета регистра на основе системной национальной настройки
vbDatabaseCompare=2
Сравнение на основе установок, принятых в обрабатываемой базе данных. Применяется в MS Access |
| Замечания | Пример использования 'данный пример вернет вам имя текущего устройства, то есть
"C:"
arr = Split("C:\path1\path2\path3\FileName", "\")
MsgBox arr(0)
'следующая функция разбивает отдельные строки текста на элементы массива
'используйте эту функцию
везде, где нужно определить имя текущей
'папки, если известен полный путь:
MsgBox CurrentFolder("D:\garbage\Bgarbage") 'вернет вам
"Bgarbage"
'не трудно будет добавить в число входящих
параметров функции
'CurrentFolder числового элемента, который будет
определять, что
'необходимо возвратить: имя диска, полный
путь без имени файла,
'или только имя файла.
Public Function CurrentFolder(sFolderPath)
Dim str1() As String
str1 = Split(sFolderPath, "\")
CurrentFolder = str1(UBound(str1))
End Function | Дополнительная информация Категория: Обработка массивов и строк Еще функции: Array, Asc, Filter, InStr, InStrRev, Join, LBound, LCase, Left, Len, LTrim, Mid, Partition, Replace, Right, RTrim, Space, Spc, Split, StrComp, StrConv, String, StrReverse, Tab, Trim, UBound, UCase |
|
|
Справочник по Visual Basic