#include <StringConstants.au3> ; to declare the Constants of StringRegExp
#include <Array.au3> ; UDF needed for _ArrayDisplay and _ArrayConcatenate
Local $sRegex = "(?s)((?:[A-Z-][ ]){9,}[A-Z])\s+([A-Z \n',.-]+)\b(?![A-Z]+(?=\.))\b(?![a-z']|[A-Z.])(.*?)(?=(?:[A-Z][ ]){9,}|This book \n)"
Local $sString = "This is some introduction text." & @CRLF & _
"" & @CRLF & _
"Here's the table of contents:" & @CRLF & _
"" & @CRLF & _
"ONE " & @CRLF & _
"" & @CRLF & _
"The Boy Who Lived · 1 " & @CRLF & _
"TWO " & @CRLF & _
"" & @CRLF & _
"The Vanishing Glass · 18 " & @CRLF & _
"THREE " & @CRLF & _
"" & @CRLF & _
"The Letters from No One · 31 " & @CRLF & _
"" & @CRLF & _
"FOUR " & @CRLF & _
"" & @CRLF & _
"The Keeper of the Keys · 46 " & @CRLF & _
"" & @CRLF & _
"C H A P T E R O N E " & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"THE BOY WHO LIVED " & @CRLF & _
"" & @CRLF & _
"Mr. and Mrs. Dursley, and their greatest fear was that somebody would discover it. " & @CRLF & _
"• 1 • " & @CRLF & _
"" & @CRLF & _
"CHAPTER ONE He couldn’t know that at this very moment, people meeting in secret all over the country were holding up their glasses and saying in hushed voices: “To Harry Potter — the boy who lived!” " & @CRLF & _
"• 17 • " & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"C H A P T E R E X A M P L E" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"IT'S A NEW CHAPTER" & @CRLF & _
"" & @CRLF & _
"WITH. SEVERAL, EDGE-CASES" & @CRLF & _
"" & @CRLF & _
"EDGECASE. The chapter continues..." & @CRLF & _
"" & @CRLF & _
"C H A P T E R T W O " & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"THE VANISHING GLASS " & @CRLF & _
"" & @CRLF & _
"Nearly ten years had passed since the Dursleys Everybody knew that Dudley’s gang hated that odd Harry Potter in his baggy old clothes and broken glasses, and nobody liked to disagree with Dudley’s gang. " & @CRLF & _
"• 30 • " & @CRLF & _
"" & @CRLF & _
"C H A P T E R T H R E E " & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"THE LETTERS " & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"FROM NO ONE " & @CRLF & _
"" & @CRLF & _
"The escape of the Brazilian boa constrictor earned with Dudley this summer. . . .” " & @CRLF & _
"• 309 • " & @CRLF & _
"" & @CRLF & _
"This book " & @CRLF & _
"was art directed by " & @CRLF & _
"David Saylor and designed by Becky " & @CRLF & _
"Terhune. The art for both the jacket and interior was " & @CRLF & _
"created using pastels on toned printmaking paper. The text was " & @CRLF & _
"set in 12-point Adobe Garamond, a typeface based on the sixteenth- " & @CRLF & _
"century type designs of Claude Garamond redrawn by Robert " & @CRLF & _
"Slimbach in 1989. The book was printed and bound " & @CRLF & _
"at RR Donnelley & Sons, Willard, Oh. " & @CRLF & _
"The production was supervised by " & @CRLF & _
"Angela Biola " & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
"" & @CRLF & _
""
Local $aArray = StringRegExp($sString, $sRegex, $STR_REGEXPARRAYGLOBALFULLMATCH)
Local $aFullArray[0]
For $i = 0 To UBound($aArray) -1
_ArrayConcatenate($aFullArray, $aArray[$i])
Next
$aArray = $aFullArray
; Present the entire match result
_ArrayDisplay($aArray, "Result")
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for AutoIt, please visit: https://www.autoitscript.com/autoit3/docs/functions/StringRegExp.htm