Работа со строками - Форум на исходниках

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  Работа со строками
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Работа со строками

pretorian опубликован 19-12-2001 19:03 MSK
Мне надо сделать так чтобы я мог удалять подстроку из строки. Смотрел в MSDN ничего не нашёл. Что нет стандартной функции для этого? Не подскажете как это сделать.
Заранее спасибо.
Vasya2000 опубликован 20-12-2001 14:22 MSK
Mid (Строка, Старт [, Длинна])
Возвращает строку, извлеченную из строки-параметра, начиная с символа в позиции Старт, и содержащую Длинна символов.
7in опубликован 20-12-2001 23:19 MSK
Короче говоря...
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 и тем, что за ним). Они нужны, чтобы не выводилась ошибка, если вырезаемый кусок будет выходить (частично или полностью) за пределы строки.
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Работа со строками
pretorian	опубликован 19-12-2001 19:03 MSK Мне надо сделать так чтобы я мог удалять подстроку из строки. Смотрел в MSDN ничего не нашёл. Что нет стандартной функции для этого? Не подскажете как это сделать. Заранее спасибо.
Vasya2000	опубликован 20-12-2001 14:22 MSK Mid (Строка, Старт [, Длинна]) Возвращает строку, извлеченную из строки-параметра, начиная с символа в позиции Старт, и содержащую Длинна символов.
7in	опубликован 20-12-2001 23:19 MSK Короче говоря... 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 и тем, что за ним). Они нужны, чтобы не выводилась ошибка, если вырезаемый кусок будет выходить (частично или полностью) за пределы строки.