格式異常錯誤VB

-1

寫入文本文件時，當我嘗試寫文本文件，我得到一個錯誤說「出現FormatException了未處理」格式異常錯誤VB

下面的代碼：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    Dim ChampPath As String = FolderBrowserDialog1.SelectedPath & "\League of Legends\Config\Champions" 
    Dim NamePath As String = ChampPath & "\" & SelectChampion.Text 
    Dim FilePath As String = NamePath & "\" & SelectChampion.Text & ".json" 
    Dim Map As String 
    Dim Mode As String 
    System.IO.Directory.CreateDirectory(NamePath) 
    System.IO.File.Create(FilePath).Dispose() 
    If (SelectMap.Text = "Any") Then 
     Map = "any" 
    ElseIf (SelectMap.Text = "Summoners Rift") Then 
     Map = "1" 
    ElseIf (SelectMap.Text = "Twisted Treeline") Then 
     Map = "10" 
    ElseIf (SelectMap.Text = "Crystal Scar") Then 
     Map = "8" 
    ElseIf (SelectMap.Text = "Proving Grounds") Then 
     Map = "3" 
    End If 
    If (SelectMode.Text = "Any") Then 
     Mode = "any" 
    ElseIf (SelectMode.Text = "Classic") Then 
     Mode = "CLASSIC" 
    ElseIf (SelectMode.Text = "Dominon") Then 
     Mode = "ODIN" 
    ElseIf (SelectMode.Text = "Proving Grounds") Then 
     Mode = "ARAM" 
    End If 
    If (System.IO.File.Exists(FilePath)) Then 
     Using Writer As StreamWriter = New StreamWriter(FilePath) 
      Writer.Write("{" & vbNewLine & 
" ""champion"":""" & SelectChampion.Text & """," & vbNewLine & 
" ""title"":""" & TitleBox.Text & "", " " & vbNewLine & 
" ""type"":""" & TypeBox.Text & "", " " & vbNewLine & 
" ""map"":""" & Map & "", " " & vbNewLine & 
" ""mode"":""" & Mode & "", " " & vbNewLine & 
" ""priority""" & SelectPriority.Text & "", " " & vbNewLine & 
" ""blocks"":[ " & vbNewLine & 
    "{" & vbNewLine & 
"   ""type"":""starting"", " & vbNewLine & 
"   ""items"":[ " & vbNewLine & 
    "{" & vbNewLine & 
"    ""id"":""1001"", " & vbNewLine & 
"    ""count"":1 " & vbNewLine & 
     "}," & vbNewLine & 
     "{" & vbNewLine & 
"    ""id"":""3010"", " & vbNewLine & 
"    ""count"":3 " & vbNewLine & 
     "}" & vbNewLine & 
    "]" & vbNewLine & 
    "}," & vbNewLine & 
    "{" & vbNewLine & 
"   ""type"":""essential"", " & vbNewLine & 
"   ""items"":[ " & vbNewLine & 
     "{" & vbNewLine & 
"    ""id"":""3001"", " & vbNewLine & 
"    ""count"":1 " & vbNewLine & 
     "}," & vbNewLine & 
     "{" & vbNewLine & 
"    ""id"":""3089"", " & vbNewLine & 
"    ""count"":1 " & vbNewLine & 
     "}" & vbNewLine & 
    "]" & vbNewLine & 
    "}," & vbNewLine & 
    "{" & vbNewLine & 
"   ""type"":""offensive"", " & vbNewLine & 
"   ""items"":[ " & vbNewLine & 
     "{" & vbNewLine & 
"    ""id"":""3100"", " & vbNewLine & 
"    ""count"":1 " & vbNewLine & 
     "}," & vbNewLine & 
     "{" & vbNewLine & 
"    ""id"":""3128"", " & vbNewLine & 
"    ""count"":1 " & vbNewLine & 
     "}," & vbNewLine & 
     "{" & vbNewLine & 
"    ""id"":""3135"", " & vbNewLine & 
"    ""count"":1 " & vbNewLine & 
     "}" & vbNewLine & 
    "]" & vbNewLine & 
    "}," & vbNewLine & 
    "{" & vbNewLine & 
"   ""type"":""defensive"", " & vbNewLine & 
"   ""items"":[ " & vbNewLine & 
     "{" & vbNewLine & 
"    ""id"":""3140"", " & vbNewLine & 
"    ""count"":1 " & vbNewLine & 
     "}," & vbNewLine & 
     "{" & vbNewLine & 
"    ""id"":""3157"", " & vbNewLine & 
"    ""count"":1 " & vbNewLine & 
     "}" & vbNewLine & 
    "]" & vbNewLine & 
    "}" & vbNewLine & 
"]" & vbNewLine & 
"}") 
     End Using 
    End If 
End Sub

我找不到錯誤實際來自哪裏...... 該文本也需要格式化，就像它是，用引號和什麼不是。謝謝你的幫助。

來源

2013-04-26 user2288508

不要這樣寫代碼。使用json序列化程序類。 – 2013-04-26 23:47:41

假定VB網..好你改變這樣

Writer.Write("{" & vbNewLine & _ 
" champion : " & SelectChampion.Text & "," & vbNewLine & _ 
" title  : " & TitleBox.Text & "," & vbNewLine & _ 
" type  : " ........ 
...... etc

來源

2013-04-29 09:28:53 matzone

格式異常錯誤VB

回答

相關問題