функция нормализации строки

@PHILOSOPH13 · Регистрация: 10.11.2010

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

Уважаемые гуру, помогите написать функцию нормализации строки. Считываю строку и аббревиатурой или термином. Суть в том, что при считывании могут быть лишние пробелы, символы каретки. Так же помимо этого в скобках может быть указано альтернативное обозначение. Мне необходимо на выходе получить каждое обозначение из строки отдельно.
Например строка:

Visual Basic

1
2
3

Function Normal()
    Str_O = "ОФР (ФР) (ОФ)**"
End Function

Так же нужно удалять "*", то есть на выходе:

Visual Basic

1
2
3

Str(1) = "ОФР"
Str(2) = "ФР"
Str(3) = "ОФ"

@Казанский · 24.07.2015, 10:52

Trim$, обрезка пробелов, табуляций и прочего
Авторские программы, библиотеки, надстройки и шаблоны

@PHILOSOPH13 · 24.07.2015, 15:48 **[ТС]**

В общем с пробелами и прочей чепухой я справлюсь, помогите с формированием массива строк при уточнении аббревиатур)

@Казанский · 24.07.2015, 15:56

PHILOSOPH13, ну это-то самое простое

Visual Basic

1
2

Str_O = "ОФР ФР ОФ" 'строка, очищенная от лишних символов и пробелов
Str = Split(Str_O)  'Str - массив слов: Str(0) = "ОФР", Str(1) = "ФР", Str(2) = "ОФ"

@PHILOSOPH13 · 24.07.2015, 16:06 **[ТС]**

К сожалению такой вариант отметается, т.к. это может выглядеть так:

Visual Basic

1	Str_O = "ОФР ПРТ (ФР) (ОФ)**"

На выходе должно быть соответственно:

Visual Basic

1
2
3

Str(1) = "ОФР ПРТ"
Str(2) = "ФР"
Str(3) = "ОФ"

И не все символы нужно затирать) могут фигурировать дефис, буквы могут быть не заглавными) Затираю только "лишнее"

@PHILOSOPH13 · 27.07.2015, 09:43 **[ТС]**

Друзья, есть мысли? Хоть алгоритм как реализовать напишите...

@Казанский · 27.07.2015, 09:54

Сообщение от PHILOSOPH13

такой вариант отметается, т.к. это может выглядеть так

Все зависит от того, как ЭТО еще может выглядеть. Например, может ли быть текст между правой и левой скобкой:
Str_O = "ОФР ПРТ (ФР) что-то (ОФ)"
Если нет, то

Visual Basic

Dim Str_O As String, Str() As String, i&
Str_O = "ОФР ПРТ (ФР) (ОФ)" 'строка, очищенная от посторонних символов
Str = Split(Str_O, "(")
For i = 0 To UBound(Str)
  Str(i) = Trim$(Replace$(Str(i), ")", ""))
Next

@snipe · 27.07.2015, 09:55

Visual Basic

dim Str_O as String
Str_O = "ОФР ПРТ (ФР) (ОФ)**"
Str_O = Replace(Str_O,"*","")
Str_O = Replace(Str_O,")","")
Str_O = Replace(Str_O,"  "," ")
Dim StrM() as String
StrM=Split(Str_O," (")
msgbox StrM(0) & "   " & StrM(1) & "   " & StrM(2)

@PHILOSOPH13 · 27.07.2015, 11:04 **[ТС]**

Казанский, спасибо большое!)
Небольшой вопрос не по теме, как в Replace прописать строку, которую нужно заменить если я знаю в этой строке первые несколько символов и последний символ, и не знаю сколько символов в строке...
Например при использовании Like выражение можно прописать со "*"

@Казанский · 27.07.2015, 11:23

PHILOSOPH13, напрямую - никак. Используйте регулярные выражение - поищите по форуму regexp.
Или находите позиции первых символов и последних символов с помощью с помощью Instr, InstrRev и составляйте новую строку.
Список функций и операторов (неполный!) для работы со строками можно найти в F1 - String Manipulation Keyword Summary

@PHILOSOPH13 · 27.07.2015, 11:49 **[ТС]**

спасибо, Казанский, думаю решу вопрос с помощью регулярного выражения)

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	24.07.2015, 10:52	2
	Trim$, обрезка пробелов, табуляций и прочего Авторские программы, библиотеки, надстройки и шаблоны 0

@PHILOSOPH13 3 / 3 / 2 Регистрация: 10.11.2010 Сообщений: 79
	24.07.2015, 15:48 [ТС]	3
	В общем с пробелами и прочей чепухой я справлюсь, помогите с формированием массива строк при уточнении аббревиатур) 0

@PHILOSOPH13 3 / 3 / 2 Регистрация: 10.11.2010 Сообщений: 79
	27.07.2015, 09:43 [ТС]	6
	Друзья, есть мысли? Хоть алгоритм как реализовать напишите... 0

@PHILOSOPH13 3 / 3 / 2 Регистрация: 10.11.2010 Сообщений: 79
	27.07.2015, 11:04 [ТС]	9
	Казанский, спасибо большое!) Небольшой вопрос не по теме, как в Replace прописать строку, которую нужно заменить если я знаю в этой строке первые несколько символов и последний символ, и не знаю сколько символов в строке... Например при использовании Like выражение можно прописать со "*" 0

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	27.07.2015, 11:23	10
	PHILOSOPH13, напрямую - никак. Используйте регулярные выражение - поищите по форуму regexp. Или находите позиции первых символов и последних символов с помощью с помощью Instr, InstrRev и составляйте новую строку. Список функций и операторов (неполный!) для работы со строками можно найти в F1 - String Manipulation Keyword Summary 1

@PHILOSOPH13 3 / 3 / 2 Регистрация: 10.11.2010 Сообщений: 79
	27.07.2015, 11:49 [ТС]	11
	спасибо, Казанский, думаю решу вопрос с помощью регулярного выражения) 0

функция нормализации строки

Решение