buscar en txt luego seleccionar y mostar

[diabolik]

hola bueno como seria para que busque en un archivo.txt y luego selecione solo los emails de yahoo o hotmail segun le indique.. y luego de selecionado se muestre en pantalla y haya un aopcion para guardar ..este los archivos.txt son de esta manera

Código:

[email protected]
[email protected]
[email protected]
[email protected]

osea una linea por email
y kiero que al guardarlo tambien salga de esa manera bueno soy nuevo en esto si alguein me podrai decir komo puedo empesar estaria muy agradecido

[piojoman]

Bueno el ejemplo que pongo aca da como asumido que ya estan todos los email cargados (como lo presentaste) en un textbox, Cargarlo es muy facil con la funcion Open, incluso en el MSND hay ejemplos de carga y todo...
Para que funcione el ejemplo tenes que crear un Commandbutton, un TextBox y un Label creado como matriz, comos se hace?? Crea dos Label nombra uno igual al otro y VB te preguntara si queres hacer una matriz de controles y le das que si y listo!!!.

Dim Num As Byte
Private Sub Command1_Click()
Dim Inicio As Integer, Final As Integer, Parcial As String

If Num > 0 Then
For Var = 1 To Num
Unload Label(Var)
Next Var
End If
Num = 0

Inicio = 1
Final = 1
Do While Final <= Len(Text1) 'Se repite hasta el final
Parcial = Mid(Text1, Final + 1, 1) 'Mira caracter por caracter
If Parcial = Chr(13) Then 'Se fija si hay un Enter
Label(Num) = Mid(Text1, Inicio, Final - Inicio + 1)
Inicio = Final + 2
Final = Final + 2
'Creara controles segun la cantidad de Cuentas
Load Label(Num + 1)
With Label(Num + 1)
.Visible = True
.Top = Label(Num).Top + 220 'Le dara la pos Top al nuevo Label
.Left = Label(Num).Left
End With
'--------------
Num = Num + 1 'Lleva el conteo de las Cant de Labels.
Else
Final = Final + 1
End If
Loop
End Sub

[diabolik]

hola bueno lo eh probado epro no se mira lo eh cargado con este codigo

Código:

Private Sub cmdOpen_Click()
On Error GoTo ErrOut

Dim file_data As String

Dlgopen.Filter = " Archivos de Texto (*.txt)|*.txt"
Dlgopen.ShowOpen

'Codigo encargado para cargar textos en un control TextBox
txtTexto.Text = vbNullString

Open Dlgopen.FileName For Input As #1

While Not EOF(1)
Line Input #1, file_data
txtTexto.Text = txtTexto.Text & file_data & vbNewLine
Wend

Close #1

ErrOut:
End Sub

bueno pero me sale con separadores y yo kiero ke me salga linea a linea porke en el texto esta asi. :

Código:

[email protected]
[email protected]
hjdjdj#@gmail.com

y en el txtobox em sale asi ;

Código:

[email protected]||[email protected]||jfjf#@.ggd.com||||

y bueno todo en una sola linea ayudame porfavor

bueno eso es una parte
ya que la verdad no entiendo tu codigo ya que coloco en text1 la palabra que quiero buscar y no me aparesene ninguno de los labels bueno lo que pasa es ke resien empiso en esto ..gracias por ayudarme ..spero tengas tiempo para responderme gracias

[lucasiramos]

mmm... ¿es para hacer spam?

[oast]

estos son los pasos hacer te coloque esto en una lista de combobox

Open "C:\emails.txt" For Input As #1 'abre el archivo
Do Until EOF(1)
Line Input #1, linealeida 'carga linea del plano mientras se mueve
If linealeida Like Me.Text1.Text & "*" Then 'si linea = cajade texto
combobox.AddItem UCase(linealeida) 'adiciona en la lista
End If
Loop 'se mueve
Close #1 'cierra el archivo


esta seria la forma que prodrias hacer lo que quieres saludes

desarrollador de software y redes
msn/correo: [email protected]
[email protected]
Bogotá-Colombia