Страницы: 1
RSS
Функция преобразования текста
 
Здравствуйте.
Помогите написать функцию типа ПреобрТекст(текст, разделитель)
Исходный текст - наименование 1 ( какие-то данные 1-1, какие-то данные 1-2,); наименование 2 ( какие-то данные 2) и т.д.
Разделитель - ;
Что должно получиться - какие-то данные 1-1 (наименование 1), какие-то данные 1-2 (наименование 1), какие-то данные 2 (наименование 2), и т.д.
 
все было в одной ячейке и должно остаться в одной ячейке?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
результат в другую ячейку, по этому нужна именно функция
Изменено: narod svs - 28.09.2022 15:40:50
 
Код
Function ChangeTxt(s$)
  Dim a, b, c, i&, j&, t$
  a = Split(s, ";")
  For i = 0 To UBound(a)
  b = Split(a(i), "(")
    b(0) = "(" & Trim(b(0)) & ")"
    c = Split(b(1), ",")
    For j = 0 To UBound(c)
      If c(j) <> ")" Then t = t & ", " & Trim(Replace(c(j), ")", "")) & " " & b(0)
    Next
  Next
  ChangeTxt = Right(t, Len(t) - 2)
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
большое спасибо  ;)  
Страницы: 1
Наверх