Excel vba конец строки

Поиск с конца строки в Excel

Описание функции

К сожалению, в Excel нет встроенной функции, которая возвращает конец строки после заданного текста. Хотя можно решить эту задачу и стандартными функциями, но не всегда их можно на память или логику быстро воспроизвести.

Вот этот набор функций, не очень то очевидно, согласитесь:

=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(«Заданный текст»;A1;1)-ДЛСТР(«Заданный текст»))

Для удобства в надстройку VBA-Excel добавлена функция КОНЕЦСТРОКИ. Она выполняет поиск заданного текста с конца строки и возвращает текст от искомой позиции до конца строки. И интерфейс у нее намного понятнее:

Функция =КОНЕЦСТРОКИ(ТЕКСТ; НАЙТИ; [ Старт ]; [ Регистр ]) имеет 4 аргумента:

• ТЕКСТ — Исходный текст, в котором необходимо найти начало строки.
• НАЙТИ — Подстрока, до которой будет возвращаться начало строки
• [ Старт ] — Необязательный параметр. Позиция внутри исходного текста, с которой начинается поиск подстроки. По умолчанию параметр равен 1.
• [ Регистр ] — Необязательный аргумент, указывающий необходимость учета регистра. По умолчанию равен 1 — регистр учитывается. Укажите значение 0 если не хотите учитывать регистр при сравнении.

Пример 1

Найти текст до слова СТОП. Обратите внимание не важно в какой части текста находится заданное слово.

Пример 2

Чтобы вернуть текст без первого слова укажите пробел в параметре НАЙТИ.

Пример 3

Можно начинать поиск с заданной позиции (аргумент Старт ). Может понадобиться в случае если стоп-слово встречается не один раз.

Пример 4

В предыдущих примерах регистр искомого текста учитывался. Для того чтобы заглавные и строчные буквы НЕ учитывались при поиске, установите параметр Регистр = 0.

Источник

Строковые функции (Visual Basic)

В следующей таблице перечислены функции, предоставляемые Visual Basic в Microsoft.VisualBasic.Strings классе для поиска строк и управления ими. Их можно рассматривать как встроенные функции Visual Basic; то есть вам не нужно вызывать их как явные члены класса, как показано в примерах. В классе доступны System.String дополнительные методы, а в некоторых случаях — дополнительные.

Метод платформа .NET Framework	Описание
Asc, AscW	Возвращает значение, Integer представляющее код символа, соответствующий символу.
Chr, ChrW	Возвращает знак, связанный с указанным кодом знака.
Filter	Возвращает массив (с индексацией от нуля), который содержит подмножество массива типа String , выделяемое согласно указанным условиям фильтрации.
Format	Возвращает строку, отформатированную в соответствии с инструкциями, содержащимися в формате выражения String .
FormatCurrency	Возвращает выражение в формате денежной единицы с использованием символа денежной единицы, определенного в системной панели управления.
FormatDateTime	Возвращает строковое выражение, представляющее значение даты и времени.
FormatNumber	Возвращает выражение в формате числа.
FormatPercent	Возвращает выражение в виде процента (умноженное на 100) с символом % в конце.
InStr	Возвращает целое число, указывающее начальную позицию первого вхождения одной строки в другую.
InStrRev	Возвращает позицию первого вхождения одной строки в другую, начиная с правого конца строки.
Join	Возвращает строку, образуемую путем соединения нескольких подстрок, содержащихся в массиве.
LCase	Возвращает строку или символ, преобразованные в нижний регистр.
Left	Возвращает строку, содержащую указанное число знаков с левой стороны строки.
Len	Возвращает целое число, содержащее количество символов в строке.
LSet	Возвращает выровненную по левому краю строку запрашиваемой длины, содержащую указанную строку.
LTrim	Возвращает строку, содержащую копию указанной строки без пробелов в начале.
Mid	Возвращает строку, содержащую указанное число символов из строки.
Replace	Возвращает строку, в которой указанная подстрока заданное число раз заменена другой подстрокой.
Right	Возвращает строку, содержащую указанное число знаков с правой стороны строки.
RSet	Возвращает выровненную по правому краю строку, содержащую указанную строку, настроенную под указанную длину.
RTrim	Возвращает строку, содержащую копию указанной строки без пробелов в конце.
Space	Возвращает строку, состоящую из указанного числа пробелов.
Split	Возвращает одномерный массив (с индексацией от нуля), содержащий указанное число подстрок.
StrComp	Возвращает -1, 0 или 1 в зависимости от результата сравнения строк.
StrConv	Возвращает строку, преобразованную как указано.
StrDup	Возвращает строку или объект, состоящие из указанного знака, повторенного определенное количество раз.
StrReverse	Возвращает строку, содержащую те же знаки, что и в заданной строке, но в противоположном порядке.
Trim	Возвращает строку, содержащую копию указанной строки без начальных или конечных пробелов.
UCase	Возвращает строку или знак, содержащий указанную строку, преобразованную в верхний регистр.

С помощью оператора Option Compare можно указать, сравниваются ли строки с помощью порядка сортировки текста без учета регистра, определяемого языковым стандартом системы ( Text ) или внутренним двоичным представлением символов ( Binary ). Метод сравнения текста по умолчанию — Binary .

Пример: UCase

В данном примере функция UCase используется для возврата строки в верхнем регистре.

Пример: LTrim

В данном примере функция LTrim используется, чтобы убрать пробелы в начале, а функция RTrim — чтобы убрать пробелы в конце строковой переменной. Функция Trim в примере используется для удаления обоих типов пробелов.

Пример: Mid

В этом примере функция используется Mid для возврата указанного количества символов из строки.

Пример: Len

В данном примере Len используется для возврата числа знаков в строке.

Пример: InStr

В данном примере функция InStr используется для возврата позиции первого вхождения одной строки в другую.

Пример: формат

В данном примере показаны различные способы использования функции Format для форматирования значений с применением как форматов String , так и определенных пользователем форматов. Фактическое отображение системой разделителя даты ( / ), разделителя времени ( : и индикаторов AM/PM ( t и tt ) зависит от региональных параметров, применяемых кодом. При отображении времени и даты в среде разработки используется короткий формат времени и даты региональных установок кода.

Для языков, использующих 24-часовой формат, индикаторы AM/PM ( t и tt ) не отображаются.

Источник

Vba excel функции работы со строками. Функции VBA для работы с текстом

Dim sWord As String sWord = Chr(34) & «Слово в кавычках» & Chr(34)

Есть варианты этой функции — ChrB () и ChrW (). Работают аналогично таким же вариантам для функции Asc() .

InStr () и InStrRev () — одна из самых популярных функций. Позволяет обнаружить в теле строковой переменной символ или последовательность символов и вернуть их позицию. Если последовательность не обнаружена, то возвращается 0.

Dim sStr As String sStr = «w» If InStr(1, «Hello, World!», sStr, vbTextCompare) > 0 Then MsgBox «Искомое слово присутствует!» Else MsgBox «Искомое слово отсутствует!» End If

Разница функций в том, что InStr() ищет указанное слово от начала строки, а InStrRev() с конца строки

Left () , Right () , Mid () — возможность взять указанное вами количество символов из существующей строковой переменной слева, справа или из середины соответственно.

Dim sStr As String sStr = «Hello, World!» MsgBox Mid(sStr, 1, 5)

Dim sStr As String sStr = «Hello, World!» MsgBox Mid(sStr, 1, 5)

Len () — возможность получить число символов в строке. Часто используется с циклами, операциями замены и т.п.

LCase () и UCase () — перевести строку в нижний и верхний регистры соответственно. Часто используется для подготовки значения к сравнению, когда при сравнении регистр не важен (фамилии, названия фирм, городов и т.п.) .

LSet () и RSet () — возможность заполнить одну переменную символами другой без изменения ее длины (соответственно слева и справа) . Лишние символы обрезаются, на место недостающих подставляются пробелы.

LTrim () , RTrim () , Trim () — возможность убрать пробелы соответственно слева, справа или и слева, и справа.

Replace () — возможность заменить в строке одну последовательность символов на другую.

Dim sStr As String sStr = «Hello, World!» MsgBox Replace(sStr, «Hello» , «Bay» )

Dim sStr As String sStr = «Hello, World!» MsgBox Replace(sStr, «Hello», «Bay»)

Space () — получить строку из указанного вами количества пробелов;
Еще одна похожая функция — Spc () , которая используется для форматирования вывода на консоль. Она размножает пробелы с учетом ширины командной строки.

StrComp () — возможность сравнить две строки.

StrConv () — возможность преобразовать строку (в Unicode и обратно, в верхний и нижний регистр, сделать первую букву слов заглавной и т.п.) :

Dim sStr As String sStr = «Hello, World!» MsgBox StrConv(«Hello, World!» , vbUpperCase)

Dim sStr As String sStr = «Hello, World!» MsgBox StrConv(«Hello, World!», vbUpperCase)

В качестве второго параметра параметра могут применяться константы:

• vbUpperCase: Преобразует все текстовые символы в ВЕРХНИЙ РЕГИСТР
• vbLowerCase: Преобразует все текстовые символы в нижний регистр
• vbProperCase: Переводит первый символ каждого слова в Верхний Регистр
• *vbWide: Преобразует символы строки из однобайтовых в двухбайтовые
• *vbNarrow: Преобразует символы строки из двухбайтовых в однобайтовые
• **vbKatakana: Преобразует символы Hiragana в символы Katakana
• **vbHiragana: Преобразует символы Katakana в символы Hiragana
• ***vbUnicode: Преобразует строку в Юникод с помощью кодовой страницы системы по умолчанию
• ***vbFromUnicode: Преобразует строку из Юникод в кодовую страницу системы по умолчанию

* применимо для локализацией Дальнего востока
** применимо только для Японии
*** не поддерживается операционными системами под управлением Macintosh

StrReverse () — «перевернуть» строку, разместив ее символы в обратном порядке. Функция работает только начиная от Excel 2000 и выше. Пример использования функции, а так же иные методы переворачивания слова можно посмотреть в этой статье: Как перевернуть слово?

Tab () — еще одна функция, которая используется для форматирования вывода на консоль. Размножает символы табуляции в том количестве, в котором вы укажете. Если никакое количество не указано, просто вставляет символ табуляции. Для вставки символа табуляции в строковое значение можно также использовать константу vbTab .

String () — позволяет получить строку из указанного количества символов (которые опять-таки указываются Вами) . Обычно используются для форматирования вывода совместно с функцией Len ().

В разделе на вопрос Люди,объясните подробно,пожалуйста,что значит в Паскале функция ord(x) и ей обратная chr(x) ? заданный автором Nick Brown лучший ответ это Есть специальная таблица символов (расширенного кода ASCII, когда каждому символу принадлежит числовое значение, всего в таблице имеется 255 значений, то есть каждому символу присвоено число,
chr(0..254) преобразует число (один байт) в символ которому принадлежит данное число, например chr(71) результатом будет буква «G», так же нажатие клавиш на клавиатуре выдаёт свой код вот как раз этот код при постановке в данный оператор и выдаст результатом какая клавиша нажата, это я к примеру. А вот оператор ORD(x) делает данный процесс в обратном порядке.
Задаём значение символ и получаем число от 0 до 254 (один байт)
например ORD(«G») даст нам результат 71 (в десятичном формате)
Вот вроде и всё .

Ответ от Katyonachik [новичек]
Все просто, на самом деле)
Орд («Х») — вернет код символа Х из таблицы АСКИИ.
Результатом обратной ей функции будет символ, который соответствует введенному коду (от которого берется функция) из той же таблицы АСКИИ.

Ответ от Jurii [гуру]
Это не взаимообратные функции!
Функция Ord возвращает порядковый номер значения перечислимого типа.
Счёт начинается с ноля.
Для типа byte функция вернёт собственно значение — порядковый номер совпадает со значением.
Для типа char функция вернёт порядковый номер символа, который (число случайно) совпадает с ASCII кодом.
Функция chr возвращает символ с заданным кодом в ASCII.
Вывод: Просто, в отношении символьных значений, они действительно работают как обратные друг другу.. .
Поэтому можно сказать, что функция ord обратная функции chr, но не наоборот — функция chr не является обратной для функции ord, т. к. область применения функции ord не ограничивается работой с символами!

В этой статье разберем работу со строками в VBA на примерах функций InStr, LCASE, UCase, Left, Right, Mid, LTrim, RTrim, Trim, Len, Replace, Space, StrComp, String, StrReverse.

Строки — это последовательность символов, которая может состоять либо из алфавитов, цифр, специальных символов, либо из всех них. Переменная называется строкой, если она заключена в двойные кавычки «».

Синтаксис

Примеры

Строковые функции

Существуют предопределенные функции VBA String, которые помогают разработчикам эффективно работать со строками. Ниже приведены методы String, поддерживаемые в VBA. Пожалуйста, нажмите на каждый из методов, чтобы знать подробно.

Название функции и описание

InStr

Функция InStr возвращает первое вхождение одной строки в другую строку. Поиск происходит слева направо.

Синтаксис

Параметр Описание

• Пуск — необязательный параметр. Указывает начальную позицию для поиска. Поиск начинается с первой позиции слева направо.

пример

Private Sub Constant_demo_Click() Dim Var As Variant Var = «Microsoft VBScript» MsgBox («Line 1: » & InStr(1, Var, «s»)) MsgBox («Line 2: » & InStr(7, Var, «s»)) MsgBox («Line 3: » & InStr(1, Var, «f», 1)) MsgBox («Line 4: » & InStr(1, Var, «t», 0)) MsgBox («Line 5: » & InStr(1, Var, «i»)) MsgBox («Line 6: » & InStr(7, Var, «i»)) MsgBox («Line 7: » & InStr(Var, «VB»)) End Sub

Line 1: 6
Line 2: 0
Line 3: 8
Line 4: 9
Line 5: 2
Line 6: 16
Line 7: 11

Возвращает первое вхождение указанной подстроки. Поиск происходит слева направо.

Функция InStrRev возвращает первое вхождение одной строки в другую строку. Поиск происходит справа налево.

Синтаксис

Параметр Описание

• String1 — требуемый параметр. Строка для поиска.
• String2 — требуемый параметр. Строка, по которой выполняется поиск String1.
• Пуск — необязательный параметр. Указывает начальную позицию для поиска. Поиск начинается с первой позиции справа налево.
• Compare — Необязательный параметр. Указывает сравнение строк.Он может принимать следующие значения.
• 0 = vbBinaryCompare — выполняет двоичное сравнение (по умолчанию)
• 1 = vbTextCompare — выполняет сравнение текста

пример

Добавьте кнопку и установите следующую функцию.

Private Sub Constant_demo_Click() var = «Microsoft VBScript» msgbox(«Line 1: » & InStrRev(var,»s»,10)) msgbox(«Line 2: » & InStrRev(var,»s»,7)) msgbox(«Line 3: » & InStrRev(var,»f»,-1,1)) msgbox(«Line 4: » & InStrRev(var,»t»,5)) msgbox(«Line 5: » & InStrRev(var,»i»,7)) msgbox(«Line 6: » & InStrRev(var,»i»,7)) msgbox(«Line 7: » & InStrRev(var,»VB»,1)) End Sub

После выполнения вышеуказанного скрипта он производит следующий результат.

Line 1: 6
Line 2: 6
Line 3: 8
Line 4: 0
Line 5: 2
Line 6: 2
Line 7: 0

Возвращает первое вхождение указанной подстроки. Поиск происходит справа налево.

LCASE

Функция LCase возвращает строку после преобразования введенной строки в строчные буквы.

Синтаксис

пример

Private Sub Constant_demo_Click() var = «Microsoft VBScript» msgbox(«Line 1: » & LCase(var)) var = «MS VBSCRIPT» msgbox(«Line 2: » & LCase(var)) var = «microsoft» msgbox(«Line 3: » & LCase(var)) End Sub

Line 1: microsoft vbscript
Line 2: ms vbscript
Line 3: microsoft

Возвращает нижний регистр указанной строки.

UCase

Функция UCase возвращает строку после преобразования введенной строки в буквы буквы UPPER.

Синтаксис

пример

Добавьте кнопку и поместите следующую функцию внутри нее.

Private Sub Constant_demo_Click() var = «Microsoft VBScript» msgbox(«Line 1: » & UCase(var)) var = «MS VBSCRIPT» msgbox(«Line 2: » & UCase(var)) var = «microsoft» msgbox(«Line 3: » & UCase(var)) End Sub

После выполнения вышеуказанного скрипта он производит следующий вывод.

Line 1: MICROSOFT VBSCRIPT
Line 2: MS VBSCRIPT
Line 3: MICROSOFT

Возвращает верхний регистр указанной строки.

Функция Left возвращает указанное количество символов с левой стороны данной входной строки.

Синтаксис

Параметр Описание

• String — обязательный параметр. Строка ввода, из которой указанное число символов должно быть возвращено с левой стороны.
• Длина — требуемый параметр. Целое число, определяющее количество возвращаемых символов.

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() Dim var as Variant var = «Microsoft VBScript» msgbox(«Line 1: » & Left(var,2)) var = «MS VBSCRIPT» msgbox(«Line 2: » & Left(var,5)) var = «microsoft» msgbox(«Line 3: » & Left(var,9)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: Mi
Line 2: MS VB
Line 3: microsoft

Возвращает определенное количество символов с левой стороны строки.

Right

Функция Right возвращает указанное количество символов с правой стороны данной входной строки.

Синтаксис

Параметр Описание

• String — обязательный параметр. Строка ввода, из которой указанное число символов должно быть возвращено с правой стороны.
• Длина — требуемый параметр. Целое число, которое задает количество возвращаемых символов.

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() var = «Microsoft VBScript» msgbox(«Line 1: » & Right(var,2)) var = «MS VBSCRIPT» msgbox(«Line 2: » & Right(var,5)) var = «microsoft» msgbox(«Line 3: » & Right(var,9)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: pt
Line 2: CRIPT
Line 3: microsoft

Возвращает определенное количество символов с правой стороны строки.

Mid функция возвращает указанное количество символов из заданной входной строки.

Синтаксис

Параметр Описание

• String — обязательный параметр. Строка ввода, из которой задано количество символов, которые нужно вернуть.
• Начало — требуемый параметр. Целое число, определяющее начальную позицию строки.
• Длина — необязательный параметр. Целое число, определяющее количество возвращаемых символов.

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() Dim var as Variant var = «Microsoft VBScript» msgbox(«Line 1: » & Mid(var,2)) msgbox(«Line 2: » & Mid(var,2,5)) msgbox(«Line 3: » & Mid(var,5,7)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: icrosoft VBScript
Line 2: icros
Line 3: osoft V

Возвращает определенное количество символов из строки на основе указанных параметров.

LTrim

Функция Ltrim удаляет пробелы с левой стороны строки.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() Dim var as Variant var = » Microsoft VBScript» msgbox «After Ltrim: » & LTrim(var) End Sub

Когда вы выполняете функцию, она производит следующий вывод.

After Ltrim: Microsoft VBScript

Возвращает строку после удаления пробелов в левой части указанной строки.

RTrim

Функция Rtrim удаляет пробелы с правой стороны строки.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() Dim var as Variant var = «Microsoft VBScript » msgbox(«After Rtrim: » & RTrim(var)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

After Rtrim: Microsoft VBScript

Возвращает строку после удаления пробелов в правой части указанной строки.

Функция Trim удаляет как ведущее, так и конечное пустое пространство данной входной строки.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() var = «Microsoft VBScript» var = » Microsoft VBScript » msgbox («After Trim: » & Trim(var)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

After trim: Microsoft VBScript

Возвращает строковое значение после удаления как верхнего, так и конечного пробелов.

Функция Len возвращает длину данной входной строки, включая пробелы.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() Dim var1 as Variant Dim var2 as Variant var1 =»Microsoft VBScript» msgbox(«Length of var1 is: » & Len(var1)) var2 = » Microsoft VBScript » msgbox («Length of var2 is: » & Len(var2)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Length of var1 is: 18
Length of var2 is: 36

Возвращает длину данной строки.

Replace

Функция Replace заменяет указанную часть строки на определенную строку, указанное количество раз.

Синтаксис

Параметр Описание

• String — обязательный параметр. Строка ввода, которую нужно искать для замены.
• Find — требуемый параметр. Часть строки, которая будет заменена.
• Replacewith — обязательный параметр. Строка замены, которая будет заменена на параметр find.
• Start — необязательный параметр. Задает начальную позицию, из которой нужно искать и заменять строку. Значение по умолчанию — 1.
• Count — необязательный параметр. Указывает количество раз, которое должна выполняться замена.
• Compare — Необязательный параметр. Указывает метод сравнения, который будет использоваться. Значение по умолчанию — 0.
• 0 = vbBinaryCompare — выполняет двоичное сравнение
• 1 = vbTextCompare — выполняет текстовое сравнение

пример

Private Sub Constant_demo_Click() Dim var as Variant var = «This is VBScript Programming» «VBScript to be replaced by MS VBScript msgbox(«Line 1: » & Replace(var,»VBScript»,»MS VBScript»)) «VB to be replaced by vb msgbox(«Line 2: » & Replace(var,»VB»,»vb»)) «»is» replaced by ## msgbox(«Line 3: » & Replace(var,»is»,»##»)) «»is» replaced by ## ignores the characters before the first occurence msgbox(«Line 4: » & Replace(var,»is»,»##»,5)) «»s» is replaced by ## for the next 2 occurences. msgbox(«Line 5: » & Replace(var,»s»,»##»,1,2)) «»r» is replaced by ## for all occurences textual comparison. msgbox(«Line 6: » & Replace(var,»r»,»##»,1,-1,1)) «»t» is replaced by ## for all occurences Binary comparison msgbox(«Line 7: » & Replace(var,»t»,»##»,1,-1,0)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: This is MS VBScript Programming
Line 2: This is vbScript Programming
Line 3: Th## ## VBScript Programming
Line 4: ## VBScript Programming
Line 5: Thi## i## VBScript Programming
Line 6: This is VBSc##ipt P##og##amming
Line 7: This is VBScrip## Programming

Возвращает строку после замены строки другой строкой.

Space

Функция Space заполняет строку конкретным количеством пробелов.

Синтаксис

Параметр Описание

Номер — требуемый параметр. Количество пробелов, которые мы хотим добавить к данной строке.

пример

Private Sub Constant_demo_Click() Dim var1 as Variant var1 = «Microsoft» Dim var2 as Variant var2 = «VBScript» msgbox(var1 & Space(2)& var2) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Заполняет строку указанным количеством пробелов.

StrComp

Функция StrComp возвращает целочисленное значение после сравнения двух заданных строк. Он может возвращать любое из трех значений -1, 0 или 1 на основе входных строк для сравнения.

• Если String1 меньше String2, то StrComp возвращает -1
• Если String1 равно String2, то StrComp возвращает 0
• Если String1 больше String2, то StrComp возвращает 1

Синтаксис

Параметр Описание

• String1 — требуемый параметр. Первое строковое выражение.
• String2 — требуемый параметр. Второе строковое выражение.
• Compare — Необязательный параметр. Указывает сравнение строк.Он может принимать следующие значения.
• 0 = vbBinaryCompare — выполняет двоичное сравнение (по умолчанию)
• 1 = vbTextCompare — выполняет сравнение текста

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() Dim var1 as Variant msgbox(«Line 1:» & StrComp(«Microsoft»,»Microsoft»)) msgbox(«Line 2:» &StrComp(«Microsoft»,»MICROSOFT»)) msgbox(«Line 3:» &StrComp(«Microsoft»,»MiCrOsOfT»)) msgbox(«Line 4:» &StrComp(«Microsoft»,»MiCrOsOfT»,1)) msgbox(«Line 5:» &StrComp(«Microsoft»,»MiCrOsOfT»,0)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1:0
Line 2:1
Line 3:1
Line 4:0
Line 5:1

Возвращает целочисленное значение после сравнения двух указанных строк.

String

Функция String заполняет строку указанным символом для указанного количества раз.

Синтаксис

Параметр Описание

• Номер — требуемый параметр. Целочисленное значение, которое будет повторяться в течение определенного количества раз против параметра символа.
• Символ — требуемый параметр. Значение символа, которое должно повторяться определенное количество раз.

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() msgbox(«Line 1:» & String(3,»$»)) msgbox(«Line 2:» & String(4,»*»)) msgbox(«Line 3:» & String(5,100)) msgbox(«Line 4:» & String(6,»ABCDE»)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Функция Chr

Функция Chr (Ch aracter )позволяет получить символ по значению его числового кода ANSI или Unicode

Функции Chr , ChrB , ChrW возвращают значение субтипа String типа Variant , содержащее символ, соответствующий указанному коду символа ANSI или Unicode. Функции Chr$ , ChrB$ , ChrW$ возвращают соответственно значение типа String

Chr и Chr$ возвращают символ по его кодировке в стандарте ANSI
ChrB и ChrB$ возвращают однобайтовую строку
ChrW возвращает символ Unicode, однако в системах, не поддерживающих Unicode, ее поведение аналогично Chr
Использование в параметре CharCode значения больше, чем 255, генерирует ошибки стадии выполнения 5: Invalid procedure call or argument или 6: Overflow

Параметры CharCode Обязательный аргумент является значением типа Long , определяющим символ. Обычно, функция Chr применяется при вставке в текстовые строки непечатных символов(возврат каретки, перевод строки, табулятор и т.д.). Коды 0-31 соответствуют стандартным управляющим символам ASCII. Например, Chr (10) возвращает символ перевода строки Пример Dim retval retval = Chr (65) Debug.Print retval » возвращается A Категория

Итак, продолжаем наши уроки Паскаль для начинающих. В прошлом уроке мы разобрали , но там мы упомянули про символы, поэтому прежде чем глубоко изучать тип данных , мы узнаем о типе Char. Символьный тип данных Char — тип данных, значениями которого являются одиночные символы. Данный тип может содержать всего один любой символ (Например: «*», «/», «.», «!» и другие). Каждый такой символ занимает 8 бит памяти, всего существует 256 восьмибитовых символов. Все символы, используемые символьным типом Char записаны в таблице символов ASCII (American Standart Code for Information Interchange) или Американский стандарт кода для обмена информацией.

Символьные константы заключаются в апострофы, например «.», «*», «7», «s». Также символьную константу можно записать с помощью символа — «решетки», например #185 — выведет символ под номером 185 из таблицы ASCII (это символ «№»).

К символьному типу применимы 5 функций: Ord, Chr, Pred, Succ и Upcase.

Функция Ord преобразовывает символ в её числовой код из таблицы ASCII . Например для символа «№» она возвратит значение 185. Функция Chr обратна функции Ord. Функция Chr преобразует числовой код символа в сам символ, например, если взять числовой код 64, то функция Chr (64) возвратит символ «@».

Пример программы на Паскаль с использованием функции Ord:

Begin //Начало программы

writeln (ord (x)); //Вывод номера в таблице ASCII
end. //Конец программы

Пример программы на Паскаль с использованием функции Chr:

Var x:integer; // Описание переменных (x — целочисленный тип)
Begin //Начало программы
readln (x); //Считывание переменной
writeln (chr (x)); //Вывод символа по номеру в таблице ASCII
end. //Конец программы

Функция Pred возвращает значение предыдущего символа из таблицы ASCII, например для символа «P» (Pred (P)) эта функция возвратит символ «O». Функция Succ обратная функции Pred. Для символа «P» функция Succ (P) возвратит символ «Q», то есть следующий символ из вышеописанной таблицы ASCII.

Пример программы на Паскаль с использованием функций Pred и Succ:

Var x:char; // Описание переменных (x — символьный тип)
Begin //Начало программы
readln (x); //Считывание переменной
writeln (pred (x)); //Вывод предыдущего символа в таблице ASCII
writeln (succ (x)); //Вывод следующего символа в таблице ASCII
end. //Конец программы

Функция UpCase применима только для строчных букв английского алфавита. Данная функция преобразует строчные английские буквы в заглавные.

Пример программы на Паскаль с использованием функции UpCase:

Приложение к уроку — таблицы символов ASCII:

На сегодня урок окончен. Помните, что программирование на паскале просто и является основой для многих языков программирования.

Источник