正規表現を使って未知数の改行を取り除く方法

Question

私はこのようなテキストを持っています。

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

は私の代わりに改行の空間分離を意味し

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

にそれを減らしたいです。

正規表現の検索と置換を使用することは可能ですかスクリプトを書く必要がありますか？

私が使用して見つけることができる午前：\(\d{1,2}\)([\w\W]*?)\(\d{1,2}\)

それは私のデータが矛盾していることが判明し、開始と終了を定義する必要があります。

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

Answer 1

あなたは正規表現ベースの交換を必要としているようです。

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

を使用し、スペースで置き換えてください。この式は、( + digit（s）+ )に続くすべての改行に一致します。

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, " ") 

結果を参照してください： `` RegExp`交換してください（） `メソッドを使用する方法の

(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