vb.net - AppendLine 和替换

Question

我想从

223-F456

到

223-F456

223-F456#

223-F4560

223-#456

我为此做了简单的代码，但只在行尾添加 #,0 有效:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sb As New StringBuilder
        For Each line In TextBox1.Lines
            sb.AppendLine(line)
            sb.AppendLine(line & "#")
            sb.AppendLine(line & "0")
            sb.Replace(line.LastIndexOf("-") + 1, "#") -> this doesn't work 
        Next
        TextBox2.Text = sb.ToString

输出:

223-F456

223-F456#

223-F4560

字母并不总是“F”:我想替换“-”之后的第一个字母而不是替换“F”，也可能有些连续剧有“F”字母不是我想要的。

商店中的简单产品系列，但替换“-”后的字符串不起作用且不显示，任何帮助将不胜感激。

Answer 1

您可以使用 String.Remove和 String.Insert像这样:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim sb As New StringBuilder()

    For Each line In TextBox1.Lines
        sb.AppendLine(line)
        sb.AppendLine(line & "#")
        sb.AppendLine(line & "0")
        Dim replaceAt = line.LastIndexOf("-") + 1
        sb.AppendLine(line.Remove(replaceAt, 1).Insert(replaceAt, "#"))
    Next

    TextBox2.Text = sb.ToString()

End Sub

或者，如果您愿意，则可以使用 String.Substring功能:

    sb.AppendLine(line.Substring(0, replaceAt) & "#" & line.Substring(replaceAt + 1))

也可以使用正则表达式进行替换，我希望其他人可以提出更好的正则表达式，但这有效:

    Dim re As New Regex("(.*-)([^-])(.*)")
    For Each line In TextBox1.Lines
        ' ...
        sb.AppendLine(re.Replace(line, "$1#$3"))