Question

这是我的代码：

    Dim lQuotes As Char = Convert.ToChar(&H201C) ' “
    Dim rQuotes As Char = Convert.ToChar(&H201D) ' ”

    Dim BP01 As String =
        String.Format("<li>{0}<em>{2}</em>{1} ― <strong>{3}</strong></li>", lQuotes, rQuotes, BP1.Text, BPGB1.Text)

Dim objWriter As New System.IO.StreamWriter("d:Temp 1.txt", True)


objWriter.WriteLine(BP01)

objWriter.Close()

如果BP1文本框为空，则表示如果没有数据要输入，我们可以用＆＃34替换它;数据是空的＆＃34;或者没有任何东西......像这样＆＃34;＆＃34;

例如：

将BP01替换为其他内容，以便此行＆＃34;数据为空＆＃34;显示

注意：我不想显示这些HTML代码，例如......＆lt; li＆gt;，＆lt; em＆gt;等

Answer 1

检查输入值并采取相应措施，而不是替换

Dim BP01 As String

If (string.IsNullOrWhiteSpace(BP1.Text) Or string.IsNullOrWhiteSpace(BPGB1.Text)) Then
    BP01 = "Data Is Empty"
Else
    BP01 = String.Format("<li>{0}<em>{2}</em>{1} ― <strong>{3}</strong></li>", lQuotes, rQuotes, BP1.Text, BPGB1.Text)
End If

如果您想完全跳过输出，则可以否定（Not）If条件仅对有效输入采取行动（BP1 和 BPGB1一定不能空）。

If (Not string.IsNullOrWhiteSpace(BP1.Text) And Not string.IsNullOrWhiteSpace(BPGB1.Text)) Then
    BP01 = String.Format("<li>{0}<em>{2}</em>{1} ― <strong>{3}</strong></li>", lQuotes, rQuotes, BP1.Text, BPGB1.Text)
    objWriter.WriteLine(BP01)
End If

如何替换vb.net中的字符串

1 个答案: