De servidor a txt

[eldiabloxico]

Hola a todos, aqui estoy de nuevo, bueno, mi duda es esta.
Lo que me gustaria saber es como podria copiar lo que hay en un txt que tengo subido a mi servidor, en un textbox, pero no todo, por ejemplo, en el txt del servidor pone.

Hola
que tal

muy bien
me alegro
jajajaja

Como podria hacer para que el programa, solo copie por ejemplo, muy bien y me alegro, sin copiar, hola, que tal, (el espacio) y jajajaja, no se si me e explicado.

[byway]

la verda no te explicas bien ...

suponiendo que tu servidor es tu web host osea :

http://www.mipagina.com/texto.txt

si estoy en lo cierto lo puedes hacer por separado osea poniendo dos txt...

http://www.mipagina.com/texto1.txt
http://www.mipagina.com/texto2.txt

y en cada uno vaya por separado... otra forma seria es de leer linea por linea ese texto y solo tomas a partir de la linea 4

Código (vb) [Seleccionar] Expandir

Dim reg(6) As String
Open Archivo.Caption For Input As #1

Line Input #1, reg(0)
Line Input #1, reg(1)
Line Input #1, reg(2)
Line Input #1, reg(3)
Line Input #1, reg(4)
Line Input #1, reg(5)

Text1 = reg(3) & vbctlf & reg(4) & vbctlf & reg(5) & vbctlf

Close #1

y si es el servidor de tu troyano pues usa dos texbox y llamas por separado ..

salu2.

[eldiabloxico]

Y cual seria para que lo lea cada txt por separado, es decir, lo que pone en el servidor en un txt lo ponga en el textbox.

[& eDu &]

Lo mejor es utilizar el Inet, Proyecto>Componentes>Microsoft Internet Transfer Control

Una vez añadido con su nombre predeterminado haz lo siguiete.

Código (vb) [Seleccionar] Expandir

Dim sContenido As String
Private Sub Form_Load()
sContenido = Inet1.OpenURL("Aquilawebconeltxt")
Text1.Text = sContenido
End Sub

[eldiabloxico]

De nuevo muchisimas gracias a todos, saludos.

[eldiabloxico]

Disculpad, aqui estoy de nuevo, miren, e subido el archivo al servidor, el txt, pero cuando en el txt hay espacio, en el textbox no sale asi, por ejemplo.

hola
que tal

sale en el textbox

hola| |que tal

[& eDu &]

Eso es porque la propiedad Multiline del Textbox esta False, ponla en True

[eldiabloxico]

Esta puesta en true, y nada, es lo primero que hice.

[eldiabloxico]

Nadie sabe como podria solucionarlo?

[seba123neo]

Hola,yo recien probe y me lo abre perfecto con los espacios y todo...puse:

Hola
que tal

muy bien
me alegro
jajajaja

y me salio exactamente lo mismo en el textbox...no use el Inet ..sino api's..

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Const IF_FROM_CACHE = &H1000000
Private Const IF_MAKE_PERSISTENT = &H2000000
Private Const IF_NO_CACHE_WRITE = &H4000000
Private Const BUFFER_LEN = 256

Public Function CodigoWeb(Pagina As String) As String
Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
Dim hInternet As Long, hSession As Long, lReturn As Long
hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
If hSession Then hInternet = InternetOpenUrl(hSession, Pagina, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
If hInternet Then
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
Do While lReturn <> 0
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sData + Mid(sBuffer, 1, lReturn)
Loop
End If
iResult = InternetCloseHandle(hInternet)
CodigoWeb = sData
End Function

Private Sub Form_Load()
Text1.Text = CodigoWeb("http://www.tuservidor.com.ar/tuarchivo.txt")
End Sub


saludos.