Asp.Net中文本換行


VB.NET

    Function HtmlCode(ByVal fString)
        If fString <> "" Then
            fString = Replace(fString, Chr(13), "")
            fString = Replace(fString, Chr(10) & Chr(10), "</P><P>")
            fString = Replace(fString, Chr(10), "<BR>")
            HtmlCode = fString
        End If
    End Function


-------------------------------------

C#.NET

    private String HtmlCode(string TString)
    {
        if (TString != null)
        {
            TString = TString.Replace("\r", "<br>");
            TString = TString.Replace(" ", "&nbsp;");
            return TString;
        }
        else
        {
            return TString="無內容";
        }
    }