На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Работа со строками
    Мне надо сделать так чтобы я мог удалять подстроку из строки. Смотрел в MSDN ничего не нашёл. Что нет стандартной функции для этого? Не подскажете как это сделать.
    Заранее спасибо.
      Mid (Строка, Старт [, Длинна])
      Возвращает строку, извлеченную из строки-параметра, начиная с символа в позиции Старт, и содержащую Длинна символов.
        Короче говоря...
        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 и тем, что за ним). Они нужны, чтобы не выводилась ошибка, если вырезаемый кусок будет выходить (частично или полностью) за пределы строки.
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0180 ]   [ 16 queries used ]   [ Generated: 27.04.24, 18:50 GMT ]