Mis dudas:
Como cargo una lista con las palabras de un .txtmultilinea?

Y como hago que cada 1 segundo se seleccione la palabra de abajo de la listA?


Thanks de ante mano

Hola amigo te pongo un codigo:
dim todo as string
dim ar() as string
Set obj_FSO = CreateObject("Scripting.FileSystemObject")
Set Archivo = obj_FSO.OpenTextFile("c:\miarchivo.txt", 1)
todo = Archivo.readall
ar = Split(todo, Chr(13) & Chr(10))
For i = LBound(ar) To UBound(ar)
IF ar(i) <> "" Then
list1.AddItem ar(i)
End If

Next

eso es para llenar tu list, y parar qu selecciones cada segundo la palabra de abajo seria con u timer y este codigo en el timer.timer, declarando a x en la parte superior de la ventana de codigo.

list1.list(x)
x=x+1

Espero te sirva, saludos.

Hola,aca tenes otra forma de cargar un .txt a un listbox:

Código:

Option Explicit





Private Sub Command1_Click()


Dim archivo As String


Dim fnum As Integer


Dim file_line As String


archivo = App.Path & "\archivo.txt"


fnum = FreeFile


Open archivo For Input As fnum


Do While Not EOF(fnum)


Line Input #fnum, file_line


List1.AddItem file_line


Loop


End Sub

saludos.

' Esto sería para que busques el archivo que querés importar
Private Sub bBuscar_Click()
Dialogo.DialogTitle = "Seleccione el archivo a Procesar" 'Dialogo es un Common Dialog
Dialogo.Filter = "Archivos TXT (*.txt)|*.txt|"
Dialogo.InitDir = App.Path
Dialogo.ShowOpen

If Dialogo.FileName <> "" Then
lblEstado.Caption = "Haga click en Migrar para Continuar"
cArchivo.Text = Dialogo.FileName
lblEstado.Refresh
bMigrar.Enabled = True
End If
End Sub

'Esto es para abrir el archivo :

n = -1
Open cArchivo For Input As #1
While Not EOF(1)
DoEvents
Line Input #1, cLinea
n = n + 1
ReDim Preserve aLineas(0 To n)
aLineas(n) = cLinea
Wend
Close #1

'luego con esto irías pasando los datos a la list
For n = 0 To UBound(aLineas)
IF aLineas(n) <> "" Then
list1.AddItem ar(i)
End If
Next

gracias a todos!!!
Lo unico que me falta es como ir seleccionando en la lista, puesto ke no lo logro.

Solucionado.
La forma es asi:
for a = 1 to 20
List1.ListIndex = a
next a

El problema ahora es como se cuantas lineas tiene el archivo.

PD: Estoy con el codigo de Winamp

Sólo tienes que poner en el evento Timer (con interval = 1000, un segundo), la siguiente instrucción:


List1.ListIndex = List1.ListCount - 1


y cada segundo seleccionará el último de la lista.

Saludos

Solucionado:
lineas = UBound(ar)

-------------

Tengo una duda mas:
Como hago pongo en un txt el source de un web

no te entendí bien

¿queres exportar el codigo fuente de una pagina web a un archivo .txt?si es asi podes hacer esto:

en un modulo:

Código:

Option Explicit
Public 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
Public 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
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Const IF_FROM_CACHE = &H1000000
Public Const IF_MAKE_PERSISTENT = &H2000000
Public Const IF_NO_CACHE_WRITE = &H4000000
Private Const BUFFER_LEN = 256

Public Function GetUrlSource(sURL 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, sURL, 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)
GetUrlSource = sData
End Function

en el formulario con un RichTextBox:

Código:

Private Sub Form_Load()
RichTextBox1.Text = GetUrlSource("http://www.google.com")
RichTextBox1.SaveFile "c:\codigo.txt", rtfText
End Sub

uso un richtextbox para aprovechar su metodo de SaveFile,para exportarlo a txt

saludos.

Jjaja, kiero hacer un tester de cuentas habbo.es

wow! qué genio seba