> 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 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 >