ler linhas de arquivo txt que esteja na internet vb.net

Question

olá preciso saber como ler as linhas de um arquivo de texto hospedado na internet (em m host)

meu codigo esta assim:

 

 

'começa

 

 

'Instancia um StreamReader para ler o arquivo desejado

 

 

Dim reader As New StreamReader("C:\teste.txt"

)

 

 

'Variável para onde será lida cada linha do arquivo

 

 

Dim linha As String = String

.Empty

 

 

'Lê o arquivo linha por linha, até chegar ao final

 

 

Do

 

 

'Lê a próxima linha

linha = reader.ReadLine()

 

 

If kvp.Value = linha

Then

P.Kill()

 

 

End

If

 

 

'Chegou ao final do arquivo? (acabaram as linhas?)

 

 

If (linha Is Nothing)

Then

 

 

'Sim... Então sai do loop

 

 

Exit Do

 

 

End

If

 

 

'Conseguiu ler a linha...

 

 

'As informações estão na variável linha

 

 

'...

 

 

Loop

 

 

'termina

 

ele esta lendo as linhas de um arquivo local, eu preciso que leia as de um remoto e prossiga com o mesmo codigo, na lina do arquivo de texto tera nome de processos os quais serão armazenados na var linha e testados a cada loop si esta em execução caso estejam sejam finalizados

seria tipo assim:

Dim reader As New StreamReader(http://www.meusite.com/lista.txt)
ate tentei isso e claro deu erro



me ajudem pliss!!

Answer 1

Amigo,

Use o HttpWebRequest como no exemplo abaixo.

Imports System
Imports System.Net
Imports System.IO
Imports System.Text

Public Class Form1

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    Dim documentText As String = RetornaDocumentText("http://www.meusite.com/lista.txt")
  End Sub

  ' Retorna o conteudo da pagina a partir de uma URL
  Private Function RetornaDocumentText(ByVal url As String) As String
    If Not url.StartsWith("http://", StringComparison.OrdinalIgnoreCase) Then
      Return String.Empty
    End If
    Dim httpWebRequest As HttpWebRequest = CType(httpWebRequest.Create(url), HttpWebRequest)
    Dim webResponse As WebResponse = httpWebRequest.GetResponse
    Dim streamReader As StreamReader = New StreamReader(webResponse.GetResponseStream, Encoding.Default)
    Return streamReader.ReadToEnd
  End Function

End Class

 

 

---

se a resposta foi útil, classifique :)
ate mais,

Rodrigo Soria

Answer 2

Me responde uma pergunta, e se qusier preencher uma combobox com isso?

---

--STAR IT'S LIFE-- Todos os programadores são roteiristas e todos os computadores são péssimos atores. Se ajudei, Por favor, marque-me como resposta.