如何获得章节标题后的第一句话？

Question

我有一个小问题。

我的文字如下：

A.1    skldjlsfslfjd skdlsdj sljfdkjd
Hello my name is John. Blah blah blah.
A.2    skldljsdlkd dkdkd adjklsdk.
Hello my last name is Doe. akdjkld slkdlk ldksdl

我希望输出如下：

A.1    skldjlsfslfjd skdlsdj sljfdkjd 
Hello my name is John.
A.2    skldljsdlkd dkdkd adjklsdk
Hello my last name is Doe.

我已经有：

A.1    skldjlsfslfjd skdlsdj sljfdkjd

A.2    skldljsdlkd dkdkd adjklsdk

我很难听到下一个句子。

Answer 1

在示例之外，我们没有太多上下文。

我将猜测一个标题是标题，因为它具有A.x（A.1，A.2等）。您可以根据需要修改A-Z格式，也可以修改实际示例中的实际格式。

对于其他句子，您似乎希望所有内容都达到第一个“。”。我将这两部分的逻辑与ifelse()合并为1行，如下所示：

text <- c("A.1    skldjlsfslfjd skdlsdj sljfdkjd.",
'Hello my name is John. Blah blah blah.',
'A.2    skldljsdlkd dkdkd adjklsdk.',
"Hello my last name is Doe. akdjkld slkdlk ldksdl.")

text <- ifelse(!grepl("A.",text) ,gsub("\\..*","",text), text)

text

"A.1    skldjlsfslfjd skdlsdj sljfdkjd." 
"Hello my name is John"                  
"A.2    skldljsdlkd dkdkd adjklsdk."    
"Hello my last name is Doe"