Olá pessoal, gostaria de saber se alguem tem um código, para que o VB pegue o conteúdo de um arquivo .txt e transforme em um msgbox.

 

Exemplo: Arquivo   mensagem.txt  -  "Aproveite a promoção do acesso premiado"

 

O msgbox teria que mostrar esse texto com um botão OK.

 

Se alguem puder me ajudar eu agradeço.

 

Atenciosamente

 

Sergio Bicicchi

Private Sub Form_Load()

Const  Diretorio = "C:Eledio.txt"
    fnum = FreeFile
    Open Diretorio For Input As #fnum
    MsgBox (Input$(LOF(fnum), fnum))
    Close #fnum
End Sub

 

blz....

Acrescente isto ao seu programa:

 

Dim iFile As Integer
Dim lcLin As String
Dim lnIni As Integer
Dim sMsg1 As String
Dim sMsg2 As String
Dim sMsg3 As String

'Exemplo para ler até 3 mensagens
iFile = FreeFile
Open "c:msg.txt" For Input As #iFile

   Do Until EOF(iFile)
      Input #1, lcLin
      lnIni = InStr(1, lcLin, "=") + 1
      If UCase(lcLin) Like "MSG1*" Then
         sMsg1 = Trim(Mid$(lcLin, lnIni, Len(lcLin)))
      End If
      If UCase(lcLin) Like "MSG2*" Then
         sMsg2 = Trim(Mid$(lcLin, lnIni, Len(lcLin)))
      End If
      If UCase(lcLin) Like "MSG2*" Then
         sMsg3 = Trim(Mid$(lcLin, lnIni, Len(lcLin)))
      End If
   Loop
   Close #iFile

   MsgBox sMsg1

 

O seu arquivo texto deverá parecer com o abaixo:

MSG1=mensagem da linha 1
MSG2=mensagem da linha 2
MSG3=mensagem da linha 3

aproveitando o assunto também, preciso de uma ajuda, esta questão do uso aperfeiçoado do msgbox. sei usa-lo e programa-lo nas opçoes que sao oferecidas.

Mas acho muito tradicional o que está escrito nos botoes como Sim,Não,Cancelar,Ok, e outras palavras. Tem como trocar esta palavra dos botoes por outras como afirmativo, sei, e inumeras outras que pode se adaptar ao estilo do programa que se desenvolve.

muito grato