Разделить строку на строки

Question

Я хочу разбить строку на строки. В течение долгого времени я использовал

Split(myString, vbCrLf) 

Но теперь у меня возникли проблемы, потому что для новой строки используются разные символы. Я хочу совместить все эти символы (\ n и \ r \ n, ...). Что мне делать?

Answer 1

Замените их всем другим символом. В этом примере я буду использовать Chr(19), который является необычным символом ASCII.

myString = Replace(myString, vbCr, Chr(19)) 
myString = Replace(myString, vbLf, Chr(19)) 
myString = Replace(myString, vbCrLf, Chr(19)) 

'// Remove any doubled up Chr(19) 
While InStr(myString, Chr(19) & Chr(19)) 
    myString = Replace(myString, Chr(19) & Chr(19), Chr(19)) 
Wend 

'// Remove any trailing Chr(19) if present 
y = Split(Left$(myString, Len(myString) - IIf(Right$(myString, 1) = Chr(19), 1, 0)), Chr(19)) 

For Each s In y 
    Debug.Print s & ": " & Len(s) 
Next