Как получить часть строки до определенного знака

@ViktorB3 · Регистрация: 07.07.2017

Студворк — интернет-сервис помощи студентам

Всем Здравствуйте! Прошу знатоков о помощи. Есть строка, разделенная ";" - "Строка1; Строка2; Строка3; и т.д.". Можно ли из этой строки выдернуть отдельно "Строка1" , "Строка2" ..... ?
Спасибо!

Добавлено через 1 час 38 минут
Упс! Поиск завершился успешно!!! Это благодаря Alex77755

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Exp()
 
    Dim M()
    '
    M = Parse("Строка1; Строка2; Строка3;", ";") '
    
    For i = 0 To UBound(M) - 1
        MsgBox M(i)
    Next i
 
End Sub
 
 
 
Function Parse(Stri As String, Del As String)
      Dim lEX()
      Dim N
      Dim Tmp$
      Tmp$ = ""
      Dim i%
      Dim s$
      
      N = 0
      ReDim lEX(0)
        For i% = 1 To Len(Stri)
                s$ = Mid$(Stri, i%, 1)
                If s$ = Del Then
                        If Tmp$ <> "" Then
                                lEX(N) = Tmp$
                                N = N + 1
                                ReDim Preserve lEX(N)
                                Tmp$ = ""
                        End If
                Else
                        Tmp$ = Tmp$ & s$
                End If
        Next i%
       If Tmp$ <> "" Then
          lEX(N) = Tmp$
       End If
       Parse = lEX
End Function

@Казанский · 18.01.2019, 19:17

ViktorB3, рад за Вас, но не проще ли использовать штатную функцию?

Visual Basic
1
2
Dim M() As String
M = Split("Строка1; Строка2; Строка3;", ";")

@ViktorB3 · 18.01.2019, 19:35 **[ТС]**

Казанский, спасибо!!! Все работает!!

@Catstail · 19.01.2019, 10:16

ViktorB3, знакомый код... Узнаю

Казанский, мой код предназначен для случая, когда несколько рядом стоящих разделителей рассматриваются как один. Split в этом случае вернет лишние пустые строки.

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@ViktorB3 0 / 0 / 0 Регистрация: 07.07.2017 Сообщений: 32
	18.01.2019, 19:35 [ТС]
	Казанский, спасибо!!! Все работает!! 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	19.01.2019, 10:16
	ViktorB3, знакомый код... Узнаю Казанский, мой код предназначен для случая, когда несколько рядом стоящих разделителей рассматриваются как один. Split в этом случае вернет лишние пустые строки. 0

Как получить часть строки до определенного знака

Решение