Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.87
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.87

b = a.Replace("Text", "Текст")

TextBoxl.Text = b End Sub

Для замены также можно использовать функцию Mid. Но при этом обязательно указывать позицию символа, с которого

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 17 ▼ Работа с текстом

начинается замена. В предлагаемом ниже коде первые четыре символа слова рассвет заменены словом заря. Оставшиеся три символа удаляются с помощью метода Remove.

Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click

Dim a As String = "Встает рассвет во мгле _ холодной", b As String

Mid(a, 8) = "заря"

b = a.Remove(11, 3)

TextBoxl.Text = b End Sub

Получение части строки (подстроки)

При необходимости вырезать из общего текста его часть (подстроку) следует воспользоваться методом Substring. Определение подстроки начинается от стартовой позиции. Кроме этого можно указать и длину подстроки. В приведенном ниже примере подстрокой является слово текст. Отсчет начинается от третьей буквы и включает в себя пробел и пять букв текста.

Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click

Dim a As String = "это текст"

Dim b As String

b = a.Substring(3, 6)

Labell.Text = b End Sub

Определение индекса элемента строки

Индекс определяется с помощью метода IndexOf. Причем принадлежит он первому указанному элементу. Отсчет ведется либо с начала строки, либо от указанной стартовой позиции. Метод Last IndexOf действует так же, но поиск индекса ведется не с начала, а с конца строки. В приведенном ниже примере определяются индексы буквы т. Индекс первого элемента строки (порядковый номер) начинается с нуля. В данном примере переменной b присваивается значение 1, а переменной с - значение 8.

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Сравнение строк

Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click

Dim a As String = "этот текст"

Dim b As Integer, с As Integer

b = a.IndexOf("т")

с = a.LastIndexOf("т")


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta