Chave não encontrada

Question

Bem, Tenho o seguinte codigo:

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim confs() As String = TextBox1.Text.Split(New String() {vbNewLine}, StringSplitOptions.RemoveEmptyEntries)

        Dim ListaDeConf As New Dictionary(Of String, String)

        For Each Str As String In confs
            Dim nome As String = Str.Split(New String() {": "}, StringSplitOptions.RemoveEmptyEntries)(0)
            Dim valor As String = Str.Split(New String() {": "}, StringSplitOptions.RemoveEmptyEntries)(1)
            ListaDeConf.Add(nome, valor)
            Label1.Text = ListaDeConf(TextBox2.Text)
        Next
    End Sub
End Class

Ate então o código esta funcionando corretamente, mais agora inseri mais configurações na minha string e ele retorna com chave invalida

A nova string é:

HardureBanned: 111
format: .zip
file: xgames178.url.ph/database/launcher/file.zip

Tem algum jeito de fazer algum loop ou qualquer coisa que deixe baixar todas as strings ou mais

---

Jpdante - Iniciante em VB.NET

Answer 1

Bom dia xgames,

Veja se te ajuda em alguma coisa esses links:

http://www.macoratti.net/strings.htm

http://www.macoratti.net/vbn_str.htm

http://vb.net-informations.com/string/vb.net_String_Insert.htm

Att,

---

Ricardo Cortes Microsoft Contingent Staff

Esse contedo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

MSDN Community Support

Answer 2

Consegui resolver,

Coloquei um try para refazer o codigo caso aja erro

Agora o código ficou assim:

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim confs() As String = TextBox1.Text.Split(New String() {vbNewLine}, StringSplitOptions.RemoveEmptyEntries)
        Dim ListaDeConf As New Dictionary(Of String, String)
        For Each Str As String In confs
            Dim nome As String = Str.Split(New String() {": "}, StringSplitOptions.RemoveEmptyEntries)(0)
            Dim valor As String = Str.Split(New String() {": "}, StringSplitOptions.RemoveEmptyEntries)(1)
            ListaDeConf.Add(nome, valor)
        Next
        Try
            Label1.Text = ListaDeConf(TextBox2.Text)
        Catch ex As Exception
            For Each Str As String In confs
                Dim nome As String = Str.Split(New String() {": "}, StringSplitOptions.RemoveEmptyEntries)(0)
                Dim valor As String = Str.Split(New String() {": "}, StringSplitOptions.RemoveEmptyEntries)(1)
                ListaDeConf.Add(nome, valor)
            Next
        End Try
    End Sub
End Class

---

Jpdante - Iniciante em VB.NET