none
A mensagem não que aparecer dentro do codigo RRS feed

  • Pergunta

  • 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

    domingo, 9 de julho de 2017 23:29

Respostas

  • 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.

    • Marcado como Resposta Pablo_1977 segunda-feira, 10 de julho de 2017 17:53
    segunda-feira, 10 de julho de 2017 15:02

Todas as Respostas

  • 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.

    segunda-feira, 10 de julho de 2017 12:08
  • 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

    segunda-feira, 10 de julho de 2017 14:18
  • 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.

    • Marcado como Resposta Pablo_1977 segunda-feira, 10 de julho de 2017 17:53
    segunda-feira, 10 de julho de 2017 15:02
  • Boa Tarde Juliano,

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

    Pablo Sousa


    PabloSousa

    segunda-feira, 10 de julho de 2017 17:53