none
Duvidas nas rotinas salvar/carregar RRS feed

  • Pergunta

  • Olá amigos do MSDN. Montei uma rotina para salvar e outra para carregar um aplicativo. Preciso de uma dica para a rotina de carregar. A rotina carregar lê o nome do arquivo assim:

    Streamer = IO.File.OpenText("c:\Usuário\Home" & num & ".txt")

    Pois bem, quando um usuário entra com "num" a rotina acima vai procurar no arquivo texto se existe o tal "num" (penso que seja assim). Se não existir, o sistema acusa um erro informando que não existe o tal "num". Então agora minha dúvida:

    Como pode ser um código para que eu possa colocar um MsgBox avisando que o tal "num" não existe, evitando assim que o sistema seja acionado e o usuário possa corrigir colocando um "num" já existente?

    Grato/Durval

    segunda-feira, 20 de novembro de 2017 16:59

Respostas

  • Boa tarde.

    Não entendi se o num em referência deve estar no nome do arquivo ou fazer parte do texto salvo.

    Private Sub ler_num()
            Dim fluxoTexto As IO.StreamReader
            Dim linhaTexto As String

            If IO.File.Exists("c:\Usuário\Home" & num & ".txt") Then
                fluxoTexto = New IO.StreamReader("c:\Usuário\Home" & num & ".txt")
                linhaTexto = fluxoTexto.ReadLine


                While linhaTexto <> Nothing
                    textbox1.text &= linhaTexto & vbCrLf
                    linhaTexto = fluxoTexto.ReadLine
                End While
                fluxoTexto.Close()

                If TextBox1.Text.IndexOf("num") = -1 Then MessageBox.Show("Número não existe.")

            Else
                MessageBox.Show("Arquivo não existe ou número não existe.")
            End If
        End Sub


    MARIANO1776

    segunda-feira, 20 de novembro de 2017 17:37

Todas as Respostas

  • Boa tarde.

    Não entendi se o num em referência deve estar no nome do arquivo ou fazer parte do texto salvo.

    Private Sub ler_num()
            Dim fluxoTexto As IO.StreamReader
            Dim linhaTexto As String

            If IO.File.Exists("c:\Usuário\Home" & num & ".txt") Then
                fluxoTexto = New IO.StreamReader("c:\Usuário\Home" & num & ".txt")
                linhaTexto = fluxoTexto.ReadLine


                While linhaTexto <> Nothing
                    textbox1.text &= linhaTexto & vbCrLf
                    linhaTexto = fluxoTexto.ReadLine
                End While
                fluxoTexto.Close()

                If TextBox1.Text.IndexOf("num") = -1 Then MessageBox.Show("Número não existe.")

            Else
                MessageBox.Show("Arquivo não existe ou número não existe.")
            End If
        End Sub


    MARIANO1776

    segunda-feira, 20 de novembro de 2017 17:37
  • Bom dia,

    Por falta de retorno essa thread está encerrada.

    Se necessário, favor abrir uma nova thread.

    Atenciosamente,

    Filipe B de Castro

    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.

    segunda-feira, 27 de novembro de 2017 12:24
    Moderador