Converting a headline

[Billykid]

Look at my sentence in the example. There is a blank line above and below this sentence.
The sentence "This is my headline" does not contain a period.
I want to add a period to this sentence and remove the two blank lines.
How do I do that? Thank you very much for your help.
Before:

Code: Select all

This ist my headline

After:

Code: Select all

This ist my headline.

[mikeyww]

Code: Select all

str =
(

This ist my headline

)
str := Trim(str, " `t`r`n") "."
MsgBox, 64, Result, %str%

[Billykid]

@mikeyww
Thanks a lot. Yet I had something different in mind.
So let me give you another example what I'm looking for.

Code: Select all

FileRead , str, Headline.txt

Content of str:

Code: Select all

This line is above the headline and has a period.

This is my headline 

This line is below the headline and has a period.

After conversion I would like to get this result,
the str variable should contain this now:

Code: Select all

This line is above the headline and has a period.
This is my headline.
This line is below the headline and has a period.

The empty lines are gone and the headline ended
with a period.

How can I do this? Thanks for your help!

[mikeyww]

It can be done as long as you can post a description of how you would like to define the end of a sentence.

[Billykid]

The middle sentence (headline) initially has no punctuation mark at the end and is separated from the other two sentences by a blank line. After conversion, the blank lines should disappear and the middle sentence should have a punctuation mark at the end. I don't care if it's a period, question mark or exclamation mark.

[mikeyww]

Code: Select all

str =
(
This line is above the headline and has a period.

This is my headline 

This line is below the headline and has a period.
)
MsgBox, 64, Headline, % str := headline(str)

headline(str) {
 Return RegExReplace(str, "\v+(.+?)\v+", "`n$1.`n")
}

[Billykid]

Thank you so much Mike!!!

[flyingDman]

This puts a final period to any line that does not have one (not just the middle one) and deletes all blank lines (not just single blank lines). It also works if you have 2 or more "headlines":

Code: Select all

str =
(
This line is above the headline and has a period.

This is my headline


This is my second headline

This line is below the headline and has no period
)
msgbox % trim(RegExReplace(str "`n","(\.?\v+)",".`n"),"`n")