AUSGABE_erstes_d
von tegula- SNIPPET_TEXT:
-
- > library(tidyverse) # oder: library(magrittr)
- >
- > # Textdatei (Schwäbische Kunde) importieren
- > schwaebische_kunde <- readr::read_lines(file = "schwaebische-kunde.txt") %>%
- + dplyr::as_tibble() %>%
- + dplyr::rename(text = value) %>%
- + tibble::rowid_to_column("zeile")
- >
- > # RE anwenden
- > ## RE in Worten: Ist der erste Buchstabe ein d, so wird nur das d extrahiert [dD].
- > ## Ist der erste Buchstabe hingegen kein d [^dD] , so werden alle Zeichen
- > ## (außer d), auf die ein d folgt extrahiert [^dD]*(?=[dD]) und als letztes
- > ## Zeichen dann ebendieses d [dD]
- > schwaebische_kunde$bis_zum_ersten_d <- schwaebische_kunde$text %>%
- + stringr::str_extract("[dD]|[^dD]*(?=[dD])[dD]")
- >
- > # Ergebnis ausgeben
- > print(x = schwaebische_kunde,
- + n = Inf)
- # A tibble: 58 x 3
- zeile text bis_zum_ersten_d
- <int> <chr> <chr>
- 1 1 "Schwaebische Kunde." "Schwaebische Kund"
- 2 2 "" NA
- 3 3 "Als Kaiser Rothbart lobesam" NA
- 4 4 "Zum heil'gen Land gezogen kam," "Zum heil'gen Land"
- 5 5 "Da musst' er mit dem frommen Heer" "D"
- 6 6 "Durch ein Gebirge, wuest und leer." "D"
- 7 7 "Daselbst erhub sich grosse Noth," "D"
- 8 8 "Viel Steine gab's und wenig Brot," "Viel Steine gab's und"
- 9 9 "Und mancher deutsche Reitersmann" "Und"
- 10 10 "Hat dort den Trunk sich abgethan." "Hat d"
- 11 11 "Den Pferden war's so schwach im Magen," "D"
- 12 12 "Fast musst' der Reiter die Maehre tragen." "Fast musst' d"
- 13 13 "Nun war ein Herr aus Schwabenland," "Nun war ein Herr aus Schwabenland"
- 14 14 "Von hohem Wuchs und starker Hand," "Von hohem Wuchs und"
- 15 15 "Dess Roesslein war so krank und schwach," "D"
- 16 16 "Er zog es nur am Zaume nach," NA
- 17 17 "Er haett' es nimmer aufgegeben" NA
- 18 18 "Und kostet's ihn das eigne Leben." "Und"
- 19 19 "So blieb er bald ein gutes Stueck" "So blieb er bald"
- 20 20 "Hinter dem Heereszug zurueck," "Hinter d"
- 21 21 "Da sprengten ploetzlich in die Queer" "D"
- 22 22 "Fuenfzig tuerkische Reiter daher," "Fuenfzig tuerkische Reiter d"
- 23 23 "Die huben an, auf ihn zu schiessen," "D"
- 24 24 "Nach ihm zu werfen mit den Spiessen." "Nach ihm zu werfen mit d"
- 25 25 "Der wackre Schwabe forcht' sich nit," "D"
- 26 26 "Ging seines Weges Schritt vor Schritt," NA
- 27 27 "Liess sich den Schild mit Pfeilen spicken" "Liess sich d"
- 28 28 "Und thaet nur spoettlich um sich blicken," "Und"
- 29 29 "Bis Einer, dem die Zeit zu lang," "Bis Einer, d"
- 30 30 "Auf ihn den krummen Saebel schwang." "Auf ihn d"
- 31 31 "Da wallt dem Deutschen auch sein Blut," "D"
- 32 32 "Er trifft des Tuerken Pferd so gut," "Er trifft d"
- 33 33 "Er haut ihm ab mit Einem Streich" NA
- 34 34 "Die beiden Vorderfuess' zugleich." "D"
- 35 35 "Als er das Thier zu Fall gebracht," "Als er d"
- 36 36 "Da fasst er erst sein Schwerdt mit Macht," "D"
- 37 37 "Er schwingt es auf des Reiters Kopf," "Er schwingt es auf d"
- 38 38 "Haut durch bis auf den Sattelknopf," "Haut d"
- 39 39 "Haut auch den Sattel noch zu Stuecken" "Haut auch d"
- 40 40 "Und tief noch in des Pferdes Ruecken;" "Und"
- 41 41 "Zur Rechten sieht man, wie zur Linken," NA
- 42 42 "Einen halben Tuerken heruntersinken." NA
- 43 43 "Da packt die Andern kalter Graus," "D"
- 44 44 "Sie fliehen in alle Welt hinaus," NA
- 45 45 "Und Jedem ist's, als wuerd' ihm mitten" "Und"
- 46 46 "Durch Kopf und Leib hindurchgeschnitten." "D"
- 47 47 "Drauf kam des Wegs 'ne Christenschaar," "D"
- 48 48 "Die auch zurueck geblieben war," "D"
- 49 49 "Die sahen nun mit gutem Bedacht" "D"
- 50 50 "Was Arbeit unser Held gemacht." "Was Arbeit unser Held"
- 51 51 "Von denen hat's der Kaiser vernommen," "Von d"
- 52 52 "Der liess den Schwaben vor sich kommen," "D"
- 53 53 "Er sprach: \"Sagt an, mein Ritter werth!" NA
- 54 54 "Wer hat Euch solche Streich' gelehrt?\"" NA
- 55 55 "Der Held bedacht' sich nicht zu lang:" "D"
- 56 56 "\"Die Streiche sind bei uns im Schwang," "\"D"
- 57 57 "Sie sind bekannt im ganzen Reiche," "Sie sind"
- 58 58 "Man nennt sie halt nur Schwabenstreiche.\"" NA
- >
Quellcode
Hier kannst du den Code kopieren und ihn in deinen bevorzugten Editor einfügen. PASTEBIN_DOWNLOAD_SNIPPET_EXPLAIN