Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim str As String = "&sc_Ch2;" & vbCrLf &
"&sc_Ch3;" & vbCrLf &
"&sc_Ch3-1;" & vbCrLf &
"&sc_Ch3-2;" & vbCrLf &
"&sc_Ch4;" & vbCrLf &
"&sc_Ch4-1;" & vbCrLf &
"&sc_Ch4-2;" & vbCrLf &
"&sc_Ch5;" & vbCrLf &
"&sc_Ch6;" & vbCrLf &
"&sc_Ch6-1;" & vbCrLf &
"&sc_Ch7;" & vbCrLf &
"&sc_Ch7-1;" & vbCrLf &
"&sc_Ch7-2;" & vbCrLf &
"&sc_Ch7-3;" & vbCrLf &
"&sc_Ch7-4;" & vbCrLf &
"&sc_Ch8;" & vbCrLf
Console.WriteLine(Regex.Replace(str, "^&sc_Ch\d+-\d+;(?=(?:\r?\n|\r)&sc_Ch\d+;)", "$&" + vbCrLf + "</chapter>" , RegexOptions.Multiline))
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQkJCURpbSBzdHIgQXMgU3RyaW5nID0gIiZzY19DaDI7IiAmIHZiQ3JMZiAmCiImc2NfQ2gzOyIgJiB2YkNyTGYgJgoiJnNjX0NoMy0xOyIgJiB2YkNyTGYgJgoiJnNjX0NoMy0yOyIgJiB2YkNyTGYgJgoiJnNjX0NoNDsiICYgdmJDckxmICYKIiZzY19DaDQtMTsiICYgdmJDckxmICYKIiZzY19DaDQtMjsiICYgdmJDckxmICYKIiZzY19DaDU7IiAmIHZiQ3JMZiAmCiImc2NfQ2g2OyIgJiB2YkNyTGYgJgoiJnNjX0NoNi0xOyIgJiB2YkNyTGYgJgoiJnNjX0NoNzsiICYgdmJDckxmICYKIiZzY19DaDctMTsiICYgdmJDckxmICYKIiZzY19DaDctMjsiICYgdmJDckxmICYKIiZzY19DaDctMzsiICYgdmJDckxmICYKIiZzY19DaDctNDsiICYgdmJDckxmICYKIiZzY19DaDg7IiAmIHZiQ3JMZgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKCQlDb25zb2xlLldyaXRlTGluZShSZWdleC5SZXBsYWNlKHN0ciwgIl4mc2NfQ2hcZCstXGQrOyg/PSg/OlxyP1xufFxyKSZzY19DaFxkKzspIiwgIiQmIiArIHZiQ3JMZiArICI8L2NoYXB0ZXI+IiAsIFJlZ2V4T3B0aW9ucy5NdWx0aWxpbmUpKQoJRW5kIFN1YgpFbmQgQ2xhc3M=