Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Приведение части текста внутри ячейки к нужной формулировке
 
Прошу помощи.
Есть банковский dbf файл. По банку идет произвольное написание лицевого счета. Нужная редакция лицевого счета в приведенной таблице.Лицевой счет может находиться в любой части текста с сохранением прочей информации.Как привести , если не все , то хотя бы частично к этому виду
Для редактирования конвертирую в xls. После редактирования в xls планирую опять в dbf.
Спасибо

 
Код
Sub LSs()
  Dim r&, re, m, ms, s$, i
  Set re = CreateObject("VBScript.RegExp")
  re.Global = True:  re.Pattern = "\d+(.)?\d+"
  For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    s = Cells(r, 1).Value
    If s <> "" Then
      If re.test(s) Then
        Set ms = re.Execute(s)
        For i = 0 To ms.Count - 1
          s = Replace(ms(i), ms(i).submatches(0), "")
          If Len(s) = 7 Then Cells(r, 3) = Replace(Cells(r, 1), _
          ms(i), Left(s, 3) & "/" & Right(s, 4))
        Next
      End If
    End If
  Next
End Sub
Изменено: Ігор Гончаренко - 14 Фев 2020 04:57:44
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Спасибо Ігор . А как поставить или добавить (строка 22,23) перед номером лицевого счета слово лицевой счет и ,по возможности, убрать все произвольные написания о.р.(о/р, Особ.рах.,лс, Л/СЧЕТ, л/с, Л СЧ, и проч. ),оставив остальную информацию.
Это слово-маркер для Клиент-Банка
Страницы: 1
Читают тему (гостей: 1)
Наверх