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

Question

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.

Answer 1

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.

Answer 2

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?

Answer 3

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