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
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.
El mundo tiene derecho a saber... la informacion es para todos!
Hola,aca tenes otra forma de cargar un .txt a un listbox:
saludos.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
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
' 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
Here I am, rock you like a HURRICANE
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
Here I am, rock you like a HURRICANE
¿queres exportar el codigo fuente de una pagina web a un archivo .txt?si es asi podes hacer esto:
en un modulo:
en el formulario con un RichTextBox: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
uso un richtextbox para aprovechar su metodo de SaveFile,para exportarlo a txtCódigo:Private Sub Form_Load() RichTextBox1.Text = GetUrlSource("http://www.google.com") RichTextBox1.SaveFile "c:\codigo.txt", rtfText End Sub
saludos.
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
Jjaja, kiero hacer un tester de cuentas habbo.es
wow! qué genio seba
Here I am, rock you like a HURRICANE