A mensagem não que aparecer dentro do codigo

Question

Boa Noite Pessoal,

Estou precisando de uma ajuda para resolver um problema que ate agora não tinha visto acontecer???

Tenho esse codigo abaixo pegar os dados de um arquivo txt e colocar no textbox, ate aqui tudo certo.

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        ' colocar dados textbox
        Dim oTxtIn As New IO.StreamReader("C:\Users\PabloAdmin\Google Drive\PagamentosEfetuados\Pagamento.txt")
        Dim oTxtContent As String = oTxtIn.ReadToEnd()
        Dim oTxtArr() As String = oTxtContent.Split("|")
        Me.TextBox1.Text = oTxtArr(0)
        Me.TextBox2.Text = oTxtArr(1)
        Me.TextBox3.Text = oTxtArr(2)
        Me.TextBox4.Text = oTxtArr(3)
    End Sub

Essa parte funciona blz,

Mas essa parte do codigo abaixo não quer funcionar já tentei debugar para ver, mas quando chega na parte de dar a mensagem pula, no elseif tambem pula, não estou entendendo isso, segue codigo abaixo,

     Private Sub btnliberar_Click(sender As System.Object, e As System.EventArgs) Handles btnliberar.Click
        If Me.TextBox4.Text = "Liberado" Then
            MsgBox("Sistema DESBLOQUEADO com Sucesso!!!")
            ' aqui vai desbloquear o sistema
        ElseIf Me.TextBox4.Text = "Bloqueado" Then
            MsgBox("Sistema Continua BLOQUEADO!!!, Favor entrar em contato conosco, Obrigado!!!")
            Me.Close()
            Me.Dispose()
        End If
    End Sub

Essa parte não esta funcionando, tem alguem que possa ajudar - me a resolver isso???

Desde já agradeço muito.

Pablo Sousa

---

PabloSousa

Answer 1

Pablo, 

Já verificou se o conteúdo de TextBox4.Text está preenchido e sem espaços em branco antes ou depois do texto? Tipo "Liberado "

---

Juliano Nunes - http://linkedin.com/in/julianonunes

Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

Answer 2

Bom Dia Juliano,

Juliano fiz o teste e aparentemente não tem espaço nem no começo nem no final, o arquivo em txt e simples vou colocar em anexo para dar uma olhada, e esta tirando somente a barrinha,(não sei como chama essa Barrinha "|")

e coloca o valor no textbox, o valor aparece certo, mas não executa a mensagem, estranho.

arquivo txt.

Boleto|
Pago|
05/07/2017|
Liberado|

esse e o arquivo,

Desde já agradeço muito obrigado.

Pablo Sousa

---

PabloSousa

Answer 3

Se seu arquivo de texto está exatamente como inseriu aqui, seu problema não são os espaços em branco, mas a quebra de linha. 

Tente alterar a linha

Dim oTxtContent As String = oTxtIn.ReadToEnd()

por

Dim oTxtContent As String = oTxtIn.ReadToEnd().Replace(System.Environment.NewLine, String.Empty)

---

Juliano Nunes - http://linkedin.com/in/julianonunes

Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

Answer 4

Boa Tarde Juliano,

Juliano parabéns deu tudo certo, muito obrigado pela ajuda.

Pablo Sousa

---

PabloSousa