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

TextBoxl.Text = RTrim(a) End Sub

Метод Remove удаляет из строки указанное число элементов. Точка удаления отсчитывается от выбранной стартовой позиции.

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

Dim a As String = "text", b As String

b = a.Removed, 1)

Labell.Text = b End Sub

Добавление пробелов или символов

Метод PadLef t добавляет в начало строки указанное в кодах количество пробелов или заданных символов. В свою очередь метод PadRight выполняет ту же операцию, но в конце строки. В приведенном примере числовой аргумент определяет количество символов, аргумент, заключенный в кавычки, за-

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

Замена части строки

дает символ. Таким образом общая длина строки равна исходному тексту text с прибавлением одного символам.

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

Dim a As String = "text"

TextBoxl .Text = a.PadLeft(5, V) "TextBoxl.Text = a.PadRight(5, "w") End Sub

Метод Insert добавляет указанный текст в выбранное место строки. Точка вставки определяется стартовой позицией. В данном примере стартовая позиция прописывается первыми тремя буквами и пробелом.

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, value As String = "правильный" b = a.Insert(4, value) Labell.Text = b End Sub

Другой вариант кода:

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

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

Labell.Text = a.Insert(4, "тоже") End Sub

Замена части строки

Для замены части строки или символа необходимо использовать метод Replace. В приведенном ниже коде происходит замена строки Text на строку Текст.

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

Dim a As String = "Text", b As String


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