Сетевой маркетинг в SEO? Или кто-то переел ухи?
Сетевики извращаются как могут. Уже ищут лохов среди SEO-специалистов.
Вот их изначальные данные
Сетевики извращаются как могут. Уже ищут лохов среди SEO-специалистов.
Вот их изначальные данные
Строка из песни "1.9.8.4" группы Louna.
Многие пытаются всех музыкантов грести под одну гребёнку и всех считают политическими проститутками, но истинное творчество вне политики. Поющие рты и музыканты - это разные люди. Пожалуйста, давайте не будем судить творчество через призму политики и ситуации сегодняшнего дня. Авторы и композиторы пишут по принципу "здесь и сейчас", они не думают о том что произойдет через день. Неправильно сказанная фраза и открытое оскорбление слушателей - это разные вещи. Неудачный пост в соцсетях или необдуманная фраза на концерте и открытое оскорбление жителей страны - это разные вещи! "Неправильная" реакция музыкантов на выпадки неадекватных фанатов - это просто защитная реакция, а не политическая повестка музыканта. Давайте не обнулять и не отменять творчество музыкантов, которые вне политики, пусть они даже из "недружественных" нам стран! Давайте различать музыкантов от шутов!
По распределению мой отец, инженер-конструктор, в 70-х годах приехал в Калугу из Донецкой области. Средний брат моего отца, по распределению, был направлен лётчиком в Архангельск. Младший брат моего отца, по распределению, ликвидировал последствия аварии на ЧАЭС, сестра моего отца осталась в Донецкой области. Мой дед по материнской линии приехал в 50-х года в Калугу из Запорожья, где встретил мою бабушку калужанку ... И теперь какие-то твари будут говорить что мы чужие народы?!?! Эти сволочи будут настраивать нас друг против друга?! Как сейчас перед глазами стоит картина, как мой отец и моя тётка (директор школы и учитель истории) тридцать лет назад в голос смеются над "новыми" учебниками истории, в которых написано что "Русь всегда была Киевской и Москва не имеет права на эту территорию"... а сейчас там пытают "за пророссийские взгляды" ... больно ...
Из разговора Урсулы с Володимиром : "Ты хорошо кивал головой директорам, ты разрушал свою семью во благо компании, ты правильно тратил деньги на развитие и популяризацию нашей компании, ты эффективно избавлялся от нашего железного мусора и теперь ..... барабанная дробь... мы готовы подумать о целесообразности размышлений о необходимости умозаключения для гипотизирования ситуации о твоём исключительно субъективном мнении в наших потребностях удовлетворения твоих эфемерных потребностей об нашей лонгэтюдной необходимости рассмотреть твою кандидатуру - вот тебе анкета, в которой ты должен проставить галочки везде, где написано "да, согласен", "да, готов терпеть" и "да, готов жертвовать". После правильного заполнения опросника, при отсутствии грамматических, синтактических, идеологических, корпоративно-солидарных и иных, на наше усмотрение, ошибок, мы вам перезвоним ближе к августу.".
О великий коллективный разум нашего Улья-Пикабу испрошаю твоей помощи и взываю к твоей мудрости. Помоги объединить следующие три функции в одну. Нужно чтобы в строке после заглавных букв русских и английских, а также после любой цифры вставал пробел. Нашёл три рабочих кода, но как их объединить в один не знаю - далёк я от этого. Вот функции:
Пробелы после цифр
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
Большое спасибо!
Без комментариев... "party time NO WAR" блять я не знаю как на это реагировать
Нейросеть яндекса научилась переводить видео. Видео 20 минут было переведено и озвучено нейросетью за 30 секунд!!! Будущее всё ближе!
@admin не грузится часть картинок.