Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.149.26.176] |
|
Сообщ.
#1
,
|
|
|
Мне надо сделать так чтобы я мог удалять подстроку из строки. Смотрел в MSDN ничего не нашёл. Что нет стандартной функции для этого? Не подскажете как это сделать.
Заранее спасибо. |
Сообщ.
#2
,
|
|
|
Mid (Строка, Старт [, Длинна])
Возвращает строку, извлеченную из строки-параметра, начиная с символа в позиции Старт, и содержащую Длинна символов. |
Сообщ.
#3
,
|
|
|
Короче говоря...
Public Function DelStr(S As String, ByVal Pos As Integer, ByVal Leng As Integer) As String If Pos <= Len(S) Then If Pos + Leng - 1 > Len(S) Then Leng = Len(S) - Pos + 1 DelStr = Left(S, Pos - 1) + Right(S, Len(S) - (Pos + Leng - 1)) Else DelStr = S End If End Function Private Sub Form_Load() Dim A As String A = "1234567890" MsgBox (DelStr(A, 4, 3)) ' 1237890 End Sub Если хочешь сократить, можешь убрать If'ы (вместе с Else и тем, что за ним). Они нужны, чтобы не выводилась ошибка, если вырезаемый кусок будет выходить (частично или полностью) за пределы строки. |