fork download
  1. Imports System
  2. Imports System.Text.RegularExpressions
  3.  
  4. Public Class Test
  5. Public Shared Sub Main()
  6. Dim str As String = "&sc_Ch2;" & vbCrLf &
  7. "&sc_Ch3;" & vbCrLf &
  8. "&sc_Ch3-1;" & vbCrLf &
  9. "&sc_Ch3-2;" & vbCrLf &
  10. "&sc_Ch4;" & vbCrLf &
  11. "&sc_Ch4-1;" & vbCrLf &
  12. "&sc_Ch4-2;" & vbCrLf &
  13. "&sc_Ch5;" & vbCrLf &
  14. "&sc_Ch6;" & vbCrLf &
  15. "&sc_Ch6-1;" & vbCrLf &
  16. "&sc_Ch7;" & vbCrLf &
  17. "&sc_Ch7-1;" & vbCrLf &
  18. "&sc_Ch7-2;" & vbCrLf &
  19. "&sc_Ch7-3;" & vbCrLf &
  20. "&sc_Ch7-4;" & vbCrLf &
  21. "&sc_Ch8;" & vbCrLf
  22.  
  23. Console.WriteLine(Regex.Replace(str, "^&sc_Ch\d+-\d+;(?=(?:\r?\n|\r)&sc_Ch\d+;)", "$&" + vbCrLf + "</chapter>" , RegexOptions.Multiline))
  24. End Sub
  25. End Class
Success #stdin #stdout 0.03s 134592KB
stdin
Standard input is empty
stdout
&sc_Ch2;
&sc_Ch3;
&sc_Ch3-1;
&sc_Ch3-2;
</chapter>
&sc_Ch4;
&sc_Ch4-1;
&sc_Ch4-2;
</chapter>
&sc_Ch5;
&sc_Ch6;
&sc_Ch6-1;
</chapter>
&sc_Ch7;
&sc_Ch7-1;
&sc_Ch7-2;
&sc_Ch7-3;
&sc_Ch7-4;
</chapter>
&sc_Ch8;