Autor
|
Tema: De servidor a txt (Leído 4,725 veces)
|
eldiabloxico
Desconectado
Mensajes: 58
Aprendiendo algo nuevo cada dia
|
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.
|
|
|
En línea
|
|
|
|
byway
Desconectado
Mensajes: 181
^^,
|
la verda no te explicas bien ... suponiendo que tu servidor es tu web host osea : http://www.mipagina.com/texto.txtsi estoy en lo cierto lo puedes hacer por separado osea poniendo dos txt... http://www.mipagina.com/texto1.txthttp://www.mipagina.com/texto2.txty 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 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.
|
|
|
En línea
|
|
|
|
eldiabloxico
Desconectado
Mensajes: 58
Aprendiendo algo nuevo cada dia
|
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.
|
|
|
En línea
|
|
|
|
& eDu &
Desconectado
Mensajes: 580
|
Lo mejor es utilizar el Inet, Proyecto>Componentes>Microsoft Internet Transfer Control Una vez añadido con su nombre predeterminado haz lo siguiete. Dim sContenido As String Private Sub Form_Load() sContenido = Inet1.OpenURL("Aquilawebconeltxt") Text1.Text = sContenido End Sub
|
|
|
En línea
|
|
|
|
eldiabloxico
Desconectado
Mensajes: 58
Aprendiendo algo nuevo cada dia
|
De nuevo muchisimas gracias a todos, saludos.
|
|
|
En línea
|
|
|
|
eldiabloxico
Desconectado
Mensajes: 58
Aprendiendo algo nuevo cada dia
|
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
|
|
|
En línea
|
|
|
|
& eDu &
Desconectado
Mensajes: 580
|
Eso es porque la propiedad Multiline del Textbox esta False, ponla en True
|
|
|
En línea
|
|
|
|
eldiabloxico
Desconectado
Mensajes: 58
Aprendiendo algo nuevo cada dia
|
Esta puesta en true, y nada, es lo primero que hice.
|
|
|
En línea
|
|
|
|
eldiabloxico
Desconectado
Mensajes: 58
Aprendiendo algo nuevo cada dia
|
Nadie sabe como podria solucionarlo?
|
|
|
En línea
|
|
|
|
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.. 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.
|
|
|
En línea
|
|
|
|
|
|