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