So entfernen Sie unbekannte Anzahl von Zeilenumbruch mit Regex

Question

Ich habe Text wie folgt.

(57) some text 
some other text 
unknown nubmer of such lines 
(12) some text 

ich möchte es zu reduzieren, um

(57) some text some other text unknown nubmer of such lines 
(12) some text 

Bedeutet Raumtrennung statt Newline.

Ist es möglich mit Regex suchen und ersetzen oder ich muss ein Skript schreiben?

Ich bin in der Lage verwenden zu finden: \(\d{1,2}\)([\w\W]*?)\(\d{1,2}\)

Es stellte sich heraus, dass meine Daten inkonsistent ist und Beginn und Ende definiert werden muss.

https://regex101.com/r/gB7wR2/2

Answer 1

Sie scheinen eine Regex-basierte Ersatz zu benötigen. Verwenden Sie

[\r\n]+(?!\(\d+\)) 

und ersetzen Sie sie durch ein Leerzeichen. Dieser Ausdruck passt alle Zeilenumbrüche an, die nicht mit ( + Ziffer (n) + ) übereinstimmen.

Siehe regex demo

Dim regEx As Object 
Dim result As String 
Set regEx = CreateObject("VBScript.RegExp") 
With regEx 
    .pattern = "[\r\n]+(?!\(\d+\))" 
    .Global = True 
    .MultiLine = False 
End With 
s = "(57) some text" & vbCrLf & "some other text" & vbCrLf & "unknown nubmer of such lines" & vbCrLf & "(12) some text" & vbCrLf & "(54) sometext" & vbCrLf & "some Text" & vbCrLf & "unknown nubmer of such lines" & vbCrLf & "(51) some text" & vbCrLf & "(86) some text" & vbCrLf & "some Text" & vbCrLf & "some other text" & vbCrLf & "(87) some text" 
result = regEx.Replace(s, " ") 

Ergebnis:

(57) some text some other text unknown nubmer of such lines 
(12) some text 
(54) sometext some Text unknown nubmer of such lines 
(51) some text 
(86) some text some Text some other text 
(87) some text