Vb.net 文本格式不是'；不能产生预期的结果

我正在尝试制作一个简单的工具来格式化SQL代码，这样我就可以在VB中使用它了。 当我输入以下内容时：

USE master
CREATE DATABASE netGuest
GO

我得到

"USE master" & vbCrLf & _"
CREATE DATABASE netGuest" & vbCrLf & _"
GO" & vbCrLf & _"

所以它几乎可以工作。实际上，唯一不起作用的是行以

“

结尾，而不是以它们开头

这是我的密码：

Protected Sub btnConvert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConvert.Click
    If txtVB.Text IsNot Nothing Then : txtVB.Text = "" : End If

    Dim input() As String = txtSQL.Text.Split(vbCrLf)
    For i As Integer = 0 To UBound(input) - 1
        txtVB.Text = """" & input(i) & """ & vbCrLf & _"
    Next
End Sub

---

提前感谢您的帮助。

这是因为分割不是切割vbCrLf，而是将其留在那里

试试这个

Dim textstring = "select *" & vbCrLf & "from table " & vbCrLf & "Go"
Dim output As String = ""
Dim input() As String = textstring.Split(CChar(ControlChars.CrLf))
output = """" & input(0) & """ & vbCrLf & _" & ControlChars.CrLf
For i As Integer = 1 To UBound(input)
    output &= """" & input(i).Substring(1) & """ & vbCrLf & _" & ControlChars.CrLf
Next
Console.WriteLine(output)
Console.ReadLine()