Удалить текст между каждой датой

Question

У меня есть текст вроде:

27/05/2019 16:02:56 - Яссин Абулайла (Notes de travail) Oui, tu peux l'envoyer. @ Сесиль DESCHAMPS: Si tu aurais besoin du BIR, ту я пишу по электронной почте Эль-Хассан за те же деньги IHMTélejauge. Cordialement. Ясин. 27/05/2019 15:42:20 - Александр Лизо (Notes de travail) Яссин Дой и Ривуайер лекция с клиентом Merci de ton retour 27/05/2019 11:53:28 - Яссин Абулайла (Примечания travail) la variance du BIR для группы "ОК"

Я хочу удалить с VBA текст между датами.

Я хочу, чтобы все даты выводились.

Answer 1

Попробуйте этот макрос, он удалит все, кроме даты:

 Sub DeleteChar()
Dim i As Integer
Dim strSource As String
Dim strResult As String

strSource = "27/05/2019 16:02:56 - Yassine Aboulaila (Notes de travail) Oui, tu peux l'envoyer. @ Cécile DESCHAMPS : Si tu aurais besoin du BIR, tu pourrais faire un mail à Elhassane pour te débloquer le BIR dans IHMTélejauge. Cordialement. Yassine. 27/05/2019 15:42:20 - Alexandre Lizeau (Notes de travail) Yassine Dois je renvoyer le ticket au client Merci de ton retour 27/05/2019 11:53:28 - Yassine Aboulaila (Notes de travail) la variance du BIR sur le groupe est désormais OK"
For i = 1 To Len(strSource)
    Select Case Asc(Mid(strSource, i, 1))
        Case 48 To 57, 47, 32:
            strResult = strResult & Mid(strSource, i, 1)
            strResult = Left(strResult, 10)
    End Select
Next
AlphaNumericOnly = strResult
MsgBox AlphaNumericOnly
End Sub