Golevden

Как вы думаете, в течение какого времени должна отвечать в чате служба поддержки крупного и современного банка? А в течение какого времени они должны отвечать по телефону "горячей" линии? Думаете быстро и оперативно? Но только не Банк Озон - такого беспредела и неуважения я не встречал ещё ни разу. Кратко: деньги заблокировали в пятницу в 13.02 (перевод между физиками). От банка звонков нет, написал в чат - ответили через 8 часов с предложением принять звонок. Так как мне вот делать больше нечего, чтобы сидеть по 8 часов в чате (сарказм), это сообщение я пропустил. Попробовал позвонить на номер, который укзал оператор - звонок сбрасывается. ЗВОНОК В БАНК СБРАСЫВАЕТСЯ, КАРЛ! И написал ещё раз ... ответили через 15 часов ... в половине второго ночи ... предложили принять звонок ... Пишу на почту банка. Отвечают: "пишите в чат", но указывают ещё один номер - звоню на него, а там механическая тётя говорит "Пишите в чат так быстрее" Снова пишу в чат и указываю капсом, что могу принять звонок в любое время... Через более чем 10 часов тот же ответ с фразой "вы готовы принять звонок?" (сука, я же тебе капсом несколько раз написал что готов принять в любое время!!!)... и опять завершение диалога. Завтра будет неделя моей битвы за возврат денег - живого человека я так и не услышал и не увидел в чате. @Ozon, вы там совсем ах....ели?!?! Жалобы в ЦБ РФ, Роспотребнадзор, Прокуратуру и Уполномоченному по правам потребителей финансовых услуг - я уже направил. Больше никогда не буду связываться с этим банком и никому не советую!

Сетевики извращаются как могут. Уже ищут лохов  среди SEO-специалистов.

Вот их изначальные данные

О великий коллективный разум нашего Улья-Пикабу испрошаю твоей помощи и взываю к твоей мудрости. Помоги объединить следующие три функции в одну. Нужно чтобы  в строке после заглавных букв русских и английских, а также после любой цифры вставал  пробел. Нашёл три рабочих кода, но как их объединить в один не знаю - далёк я от этого. Вот функции:

Пробелы после цифр

Public Function separateNumbers(ByVal inText As String) As String

Static FReg As Object

If FReg Is Nothing Then

Set FReg = CreateObject("VBScript.RegExp")

FReg.Pattern = "([^ \d](?=\d)|\d(?=[^ \d]))"

FReg.Global = True

End If

separateNumbers = FReg.Replace(inText, "$1 ")

End Function

Пробелы после русских заглавных букв

Function InsSpaceRU(rng As Range) As String

Dim s As String, i As Integer, x, y

Set x = CreateObject("VBScript.RegExp"): x.Pattern = "[А-Я]": x.Global = True

s = rng.Value: Set y = x.Execute(s)

For i = 0 To y.Count - 1: s = Replace(s, y.Item(i), " " & y.Item(i)): Next

InsSpace = Application.Trim(s)

End Function

Пробелы после английских букв

Function InsSpaceENG(rng As Range) As String

Dim s As String, i As Integer, x, y

Set x = CreateObject("VBScript.RegExp"): x.Pattern = "[А-Z]": x.Global = True

s = rng.Value: Set y = x.Execute(s)

For i = 0 To y.Count - 1: s = Replace(s, y.Item(i), " " & y.Item(i)): Next

InsSpace = Application.Trim(s)

End Function

Большое спасибо!