25 Декабрь 2008

Как обрезать строку?

Строки |  Таги: ,

Как обрезать строку?
Можно использовать функции Left, Mid, Right.

Option Explicit
Dim strA As String
Dim strB As String

Private Sub Command1_Click()
strB = Left(strA, 3)
Label1.Caption = strB
'Результат: "Это"
End Sub

Private Sub Command2_Click()
strB = Mid(strA, 4, 10)
Label1.Caption = strB
'Результат: "строковая"
End Sub

Private Sub Command3_Click()
strB = Right(strA, 10)
Label1.Caption = strB
'Результат: "переменная"
End Sub

Private Sub Form_Load()
strA = "Это строковая переменная"
Label1.Caption = strA
End Sub


Оставить комментарий

Я не робот.


Elvis Presley и много другой музыки онлайн.