Correspondência dupla - substituir o padrão na linha subsequente se a linha anterior corresponder a outro padrão?

Então o seguinte deve funcionar:

sed 'H;/BEGIN:VEVENT/h;/END:VEVENT/!d;x;/DTSTART:'"$(date +%Y%m%dT%H%M)"'/s/VEVENT/VTODO/g' org.ics

Explicação:

H: Acrescenta ao espaço de espera que cria uma espécie de buffer (espaço), então fazemos correspondência de padrão

/BEGIN:VEVENT/he armazená-lo no espaço de retenção, então agora executamos outra correspondência de padrão

/END:VEVENT/!de se o padrão não corresponder, exclua-o.

x;As trocas mantêm o espaço com o espaço padrão, então agora temos as linhas de que precisamos no espaço padrão

Finalmente, substitua a linha DTSTART... se corresponder à data. So s/.../.../gé executado apenas se houver uma correspondência.

/DTSTART:'"$(date +%Y%m%dT%H%M)"/s/VEVENT/VTODO/g

Atualizar

sed '1n;H;/BEGIN:VEVENT/h;/END:VEVENT/!d;x;/DTSTART:'"$(date +%Y%m%dT193700)"'/s/VEVENT/VTODO/g' org.ics | sed '$aEND:CALENDAR

Usando robustamente qualquer awk em qualquer shell em cada caixa Unix:

$ cat tst.sh
#!/usr/bin/env bash

awk -v now="$(date +'%Y%m%dT%H%M')" '
    $0 == "BEGIN:VEVENT" {
        eventType = 1
        event = $0
        next
    }
    eventType {
        event = event ORS $0
        if ( $0 == ("DTSTART:" now) ) {
            eventType = 2
        }
        if ( $0 == "END:VEVENT" ) {
            if ( eventType == 2 ) {
                sub(/^BEGIN:VEVENT/,"BEGIN:VTODO",event)
                sub(/END:VEVENT$/,"END:VTODO",event)
            }
            print event
        }
        next
    }
    { print }
' "${@:--}"

$ ./tst.sh file
BEGIN:VCALENDAR
BEGIN:VEVENT
DTSTART:20220340T140000
END:VEVENT
BEGIN:VTODO
DTSTART:20230620T193700
END:VTODO
BEGIN:VEVENT
DTSTART:20210210T193800
END:VEVENT

A única maneira de falhar seria se você pudesse ter alguma outra seção em sua entrada que possa conter linhas que correspondam a qualquer uma das linhas BEGIN:, END: ou DSTART:, mas duvido que isso possa ser válido em sua entrada - você 'd tem que nos mostrar como é especificado se for.

O importante sobre a solução acima é que ela está comparando linhas literais inteiras com as strings de destino, não apenas fazendo correspondências parciais onde quer que elas ocorram na entrada.

Não está resolvendo, mas apenas a dica:

sed s/'$'/':'/ org.ics |awk 'BEGIN{RS="BEGIN";FS=":";CD="20220340"} NR>1 {AA[1]="BEGIN";for(i=2;i<=NF;i++){AA[i]=$i;if($i =="DTSTART" && $(i+1) ~ CD ){AA[2]="VTODO"}};for(i in AA){printf AA[i]":"};print ""}'

Onde sedo comando adiciona: (dois pontos) no final de cada linha, RS="BEGIN"define o RowSeparator para a palavra-chave BEGIN (é por isso que ele descarta!), FS=":"define o FieldSeparator como ":" . Em cada "linha" (da palavra-chave BEGIN para o próximo BEGIN, melhor dito "registro") os campos são copiados para os membros da matriz AA[i]começando com i=2, porque o AA[1] tem que ser o BEGIN descartado. Ao verificar a palavra-chave DTSTART e a data atual, altere o VEVENT para VTODO, se necessário. Após a verificação da linha, o array AA[] é impresso e com : como separador.

Essa é apenas a dica, não testei. Você tem que depurar e ajustar por si mesmo. Ou seja, você pode limpar o final: se for indesejado.

Podemos ter uma solução assim no TXR :

@(repeat)
@  (cases)
BEGIN:VEVENT
DTSTART:@{date}T@{time}
END:VEVENT
@    (output)
BEGIN:VTODO
DTSTART:@{date}T@{time}
END:VTODO
@    (end)
@  (or)
@line
@    (do (put-line line))
@  (end)
@(end)

Isso, por si só, reescreverá todas as entradas para VTODO:

$ txr  cal.txr cal.ics
BEGIN:VCALENDAR
BEGIN:VTODO
DTSTART:20220340T140000
END:VTODO
BEGIN:VTODO
DTSTART:20230620T193700
END:VTODO
BEGIN:VTODO
DTSTART:20210210T193800
END:VTODO
END:VCALENDAR

Podemos vincular as variáveis date​​e timeda linha de comando:

$ txr -Ddate=20230620 cal.txr cal.ics
BEGIN:VCALENDAR
BEGIN:VEVENT
DTSTART:20220340T140000
END:VEVENT
BEGIN:VTODO
DTSTART:20230620T193700
END:VTODO
BEGIN:VEVENT
DTSTART:20210210T193800
END:VEVENT
END:VCALENDAR

Agora isso só corresponde e reescreve a segunda entrada.

Versão bonita: