Распарсить буфер обмена в excel

[rafzak]

Здравствуйте.
Помогите пожалуйста, распарсить буфер обмена в excel.
День 20
29.12. 23:15
банан1
финик
0
1
(0)
(1)
29.12. 22:30
Яблоко-3
Апельсин
1
1
(1)
(0)
День 21
29.12. 23:35
помидор
Ананас
9
1
(0)
(1)

в такой формат, если в csv перевести (в день может быть разное количество событий):
День 20;29.12. 23:15;банан1;0
День 20;29.12. 23:15;финик;1
День 20;29.12. 22:30;Яблоко-3;1
День 20;29.12. 22:30;Апельсин;1
День 21;29.12. 23:35;помидор;9
День 21;29.12. 23:35;Ананас;1

Спасибо. С Наступающим!

Сообщение автоматически объединено: 28 Янв 2022

Сам же и отвечу, сделал через 2D массив, примерно так:

$m = 0
    For $k = 1 To UBound($aText) - 1
        If StringRegExp ($aText[$k], "День \d{1,2}$") = 1 Then $dennom = $aText[$k]
                If StringRegExp ($aText[$k], "\d{1,2}\.\d{1,2}\. \d{1,2}:\d{1,2}$") = 1 Then
                    $Array[$m][0]=$dennom
                    $Array[$m][1]=$aText[$k]
                    $Array[$m][2]=$aText[$k+1]
                    $Array[$m][3]=$aText[$k+3]
                    $Array[$m+1][0]=$dennom
                    $Array[$m+1][1]=$aText[$k]
                    $Array[$m+1][2]=$aText[$k+2]
                    $Array[$m+1][3]=$aText[$k+4]
                    $m=$m+2
                EndIf

    Next