none
Chave não encontrada RRS feed

  • Pergunta

  • 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

    quinta-feira, 7 de agosto de 2014 18:31

Respostas

  • 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

    • Marcado como Resposta xgames178 domingo, 10 de agosto de 2014 01:41
    domingo, 10 de agosto de 2014 01:41

Todas as Respostas

  • 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

    sexta-feira, 8 de agosto de 2014 15:00
  • 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

    • Marcado como Resposta xgames178 domingo, 10 de agosto de 2014 01:41
    domingo, 10 de agosto de 2014 01:41