none
Como extrair seções ini diretamente de um richtextbox? RRS feed

  • Pergunta

  • Olá 

    Gente, eu uso o código a baixo para ler as seções de um arquivo ini:

       RichTextBox1.Text = LerIni("C:\meuarquivo.ini", "CONFIG", "Nome", "Se não encontra Nome exibe isso")

    Ex.:

    [CONFIG]
    Nome=João
    Sobrenome=Costa
    Fone=000000

    Funciona perfeitamente.

    No entanto eu estou salvando totalmente criptografada, sem estrutura ini:

    Ex.:
    f98sd8r9+83w+9es8f98e9r8dg9w5esd656

    Agora no entanto o método usado a cima para ler o ini não funciona mais, então eu carrego o texto e exibo descriptografado em um richtextbox, voltando a estrutura ini. Então a partir desse richtextbox que preciso extrair as seções, ou seja, não mais usando um diretório ("C:\meuarquivo.ini") mas sim diretamente o texto (richtextbox).

    Alguém sabe como fazer? Desde já agradeço.

    sábado, 8 de abril de 2017 14:43

Respostas

  • Olá

    Consegui resolver, de outro jeito mas funciona perfeitamente, usando a função split separadas por *:

       Dim TxtCode, TxtExtebsaoVersao, TxtNome, TxtUpdaterID, TxtExePrincipal, TxtFiltros, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TxtPluginVersao As New TextBox
    
    Dim splitA1 As String() = textbox1.ToString.Split("*")
                Dim ctrlText As TextBox() = New TextBox() {TxtCode, TxtExtebsaoVersao, TxtNome, TxtUpdaterID, TxtExePrincipal, TxtFiltros, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TxtPluginVersao}
                For x As Integer = 0 To splitA1.Length - 1
                    Try
                        ctrlText(x).Text = splitA1(x)
                    Catch ex As Exception
                    End Try
                Next

    • Marcado como Resposta Eliseu5 quarta-feira, 12 de abril de 2017 17:30
    quarta-feira, 12 de abril de 2017 17:30

Todas as Respostas

  • Bom dia Eliseu5,

    Você precisa descriptografar e emviar para um richtextbox?

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 11 de abril de 2017 13:49
    Moderador
  • Olá Robson

    Exatamente! Já fiz tudo isso, abro o arquivo descriptografado exibindo-o em um richtextbox, que fica assim:

    [CONFIG]
    Nome=João
    Sobrenome=Costa
    Fone=000000

    Mas e agora, como extrair deste richtextbox os nomes "João", "Costa" e "0000" cada um para um textbox separado?

    terça-feira, 11 de abril de 2017 17:52
  • Olá

    Consegui resolver, de outro jeito mas funciona perfeitamente, usando a função split separadas por *:

       Dim TxtCode, TxtExtebsaoVersao, TxtNome, TxtUpdaterID, TxtExePrincipal, TxtFiltros, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TxtPluginVersao As New TextBox
    
    Dim splitA1 As String() = textbox1.ToString.Split("*")
                Dim ctrlText As TextBox() = New TextBox() {TxtCode, TxtExtebsaoVersao, TxtNome, TxtUpdaterID, TxtExePrincipal, TxtFiltros, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TxtPluginVersao}
                For x As Integer = 0 To splitA1.Length - 1
                    Try
                        ctrlText(x).Text = splitA1(x)
                    Catch ex As Exception
                    End Try
                Next

    • Marcado como Resposta Eliseu5 quarta-feira, 12 de abril de 2017 17:30
    quarta-feira, 12 de abril de 2017 17:30