文本格式不產生預期的結果

Question

我試圖做一個簡單的工具來格式化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 

在此先感謝您的幫助。

Answer 1

這是因爲分割不是切割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()