将字符串拆分为行

时间:2016-01-26 11:39:23

标签: vba split line

我想将字符串拆分成行。很长一段时间我一直在使用

Split(myString, vbCrLf)

但是现在我遇到了一些问题,因为新行使用了不同的字符。我想匹配所有这些字符(\ n和\ r \ n,...)。我该怎么办?

1 个答案:

答案 0 :(得分:3)

将其全部替换为另一个角色。在这个例子中,我将使用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