Question

我正在使用一个从数据库中获取字符串数据的函数。当我需要存储数据时，我需要将<br/>翻译成vbCrLf，反之亦然。我写了这个函数，但返回字符串没有变化：

Private Function ReemplazarNuevaLinea(ByRef strTexto As String) As String
    If strTexto.Contains("<br/>") Then
        strTexto.Replace("<br/>", vbCrLf)
    Else
        strTexto.Replace(vbCrLf, "<br/>")
    End If
    Return strTexto
End Function

Answer 1

Private Function ReemplazarNuevaLinea(ByRef strTexto As String) As String
If strTexto.Contains("<br/>") Then
  strTexto =  strTexto.Replace("<br/>", vbCrLf)
Else
  strTexto =  strTexto.Replace(vbCrLf, "<br/>")
End If
Return strTexto
End Function

说明：replace函数不会改变字符串本身。您必须将值分配给新字符串，或者分配给相同的字符串。

Answer 2

Private Function ReemplazarNuevaLinea(ByRef strTexto As String) As String
    If strTexto.Contains("<br/>") Then
        Return strTexto.Replace("<br/>", vbCrLf)
    Else
        Return strTexto.Replace(vbCrLf, "<br/>")
    End If
End Function

如何通过搜索短字符串（<br/>）在字符串中添加新行（vbCrLf）？

2 个答案: