Capitalize words

[Digisoul]

Hello,

I want to capitalize 1st word of every sentence with StringRegExp, I am able to collect words by using this pattern:

Local $reg = '(?:^|(?:[.!?]\s))(\w+)'

now my problem is how can I exactly replace these words, e.g. In the following string:

the quick brown fox jumps over the lazy dog. the quick brown fox jumps over the lazy dog.

I only want to replace 1st "the" of the sentence with "The" but I have only words in array from RegExp, without its position in string.

Thanks.
 

[CaptainSparky]

You could experiment with StringUpper()

[UEZ]

Try this:

#include <String.au3>

$sSentence = "the quick brown fox jumps over the lazy dog. the quick brown fox jumps over the lazy dog."
ConsoleWrite(_StringProper(StringRegExpReplace($sSentence, "(\w+)\h.*", "$1")) & StringRegExpReplace($sSentence, "\w+(\h.*)", "$1") & @CRLF)

Not very elegant...

Edit: this works only for one sentence! 

Edited June 16, 2015 by UEZ

[jchd]

This will work over all Unicode:

Local $s =  "the quick brown fox jumps over the lazy dog. the quick brown fox jumps over the lazy dog." & @CRLF & _
            "another sentence. yet another sentence. фраза на русском. The end."
$s = Execute('"' & StringRegExpReplace($s, '(*UCP)(^|\.)(\s*\p{Ll})', '$1" & StringUpper("$2") & "') & '"')
MsgBox(0, '', $s)

 

[UEZ]

That's cool jchd! 

[jchd]

No, it doesn't give the right capitalization is some languages. This is more correct:

$s = Execute('"' & StringRegExpReplace($s, '(*UCP)(^|\.)(\s*\X)', '$1" & StringUpper("$2") & "') & '"')

Note that \X matches any EGC (extended grapheme cluster) regardless of case, so it will invoke StringUpper even for letters or EGC already capitalized contrary to the previous version, but this I regard as a minor inconvenience.

This version is still perfectible in that it only recognizes the dot . for end of sentence. But several languages use other symbols instead of dot.

Edited June 16, 2015 by jchd

[Digisoul]

No, it doesn't give the right capitalization is some languages. This is more correct:

$s = Execute('"' & StringRegExpReplace($s, '(*UCP)(^|\.)(\s*\X)', '$1" & StringUpper("$2") & "') & '"')

Note that \X matches any EGC (extended grapheme cluster) regardless of case, so it will invoke StringUpper even for letters or EGC already capitalized contrary to the previous version, but this I regard as a minor inconvenience.

This version is still perfectible in that it only recognizes the dot . for end of sentence. But several languages use other symbols instead of dot.

​Thank you very much, I only require it for English language. I slightly modified your pattern "(*UCP)(?:^|(\.|!|\?))(\s*\X)" and its working as expected. Thanks Again.

[jchd]

OK

Edited June 16, 2015 by jchd