excel - 如何删除字符串中的换行符

Question

如果我的字符串以换行符结尾，我想从字符串中删除换行符。

Sub linebreak(myString)
    If Len(myString) <> 0 Then
        If Right$(myString, 1) = vbCrLf Or Right$(myString, 1) = vbNewLine Then myString = Left$(myString, Len(myString) - 1)
    End If
End Sub

Answer 1

摘要

str = Replace(str, vbLf, "")

这段代码去掉了代码中的所有换行符

如果你只想最后一个:

If Right(str, 1) = vbLf Then str = Left(str, Len(str) - 1)

这是你尝试的方式，OK。

<小时/>

背景信息

换行 = ASCII 10、换页 = ASCII 12 和 回车 = ASCII 13。在这里，我们清楚地看到了我们都知道的事情:PC 来自(电动)打字机。

vbLf 是 Chr (10) 表示光标向下跳一行(打字机:转动滚轮)

vbCr 是 Chr (13) 表示光标跳到开头(打字机:拉回卷轴)

在 DOS 中，换行符在文件中始终是 VBCrLf 或 Chr (13) & Chr (10)，但例如还可以使用 VB 中的文本框。

另一方面，在 Excel 单元格中，换行符仅为 VBLf，即使没有 vbCr<，第二行也会从第一个位置开始。 使用vbCrLf，然后深入一个单元格。

所以这取决于您从哪里读取和获取字符串。如果您想删除所有 vbLf (Chr(10)) 和 vbCr (Char(13))在你的字符串中，你可以这样做:

strText = Replace(Replace(strText, Chr(10), ""), Chr(13), "")

如果你只想删除最后一个，你可以这样测试:

If Right(str, 1) = vbLf or Right(str, 1) = vbCr Then str = Left(str, Len(str) - 1)