cargar datos en un textbox

[Albertomi]

Estimado gasafonso

Como saber que el el archivo de texto se llama misclientes.txt, pues es simple, cuando ejecutas tú aplicación pasándole un parámetro de esta forma c:\enviaemail\Proyecto.exe c:\enviaemail\misclientes.txt

En la línea de código Open Command For Input As #strFreeFile, Command está recibiendo el valor c:\enviaemail\misclientes.txt, por lo tanto, esa línea de código quedaría de la siguiente manera Open "c:\enviaemail\misclientes.txt" For Input As #strFreeFile (Para hacértelo más simple asume que Command es una variable que tiene asignado el texto "c:\enviaemail\misclientes.txt")
 
Saludos, desde algún lugar de Lima-Perú

[gasafonso]

Pero antes tengo que crear este archivo ?

c:\enviaemail\misclientes.txt



gracias

[Albertomi]

Estimado gasafonso

Es correcto, antes de ejecutar tienes que tener el archivo misclientes.txt actualizado.
Pero de que se trata tú software...?
 
Saludos, desde algún lugar de Lima-Perú

[gasafonso]

hola Albertoimi

mi softaware es de gestion y administracion de clinicas veterinarias y pet shop

Sabes que no me carga en misclientes.txt las direcciones de mails, se te ocurre algo ?

[Albertomi]

Estimado gasafonso
No se me ocurre nada, porque, no tengo ni las más remota idea de lo que estaras haciendo.
Si grabas un video donde podamos ver que es lo que estas haciendo creo que quizas ayudaria a entenderte.
 
Saludos desde algún lugar de Lima-Perú

[gasafonso]

Pero con esta instruccion no se deberia guardar en el archivo txt ?

Código: (VB) [Seleccionar]

Private Sub Form_Load()
  Dim strFreeFile As String
  Dim strEmail As String
 
  If Command = vbNullString Then
    ' Vacío, solo por si lo necesitaras. 
  Else
    strFreeFile = FreeFile
    Open Command For Input As #strFreeFile
    Input #strFreeFile, strEmail
    TuVariableParaLosEmail = strEmail  '<-- Esta línea tienes que adecuarla a tú programa
    Close #strFreeFile
  End If
End Sub
gracias

[Albertomi]

Estimado gasafonso
La porción de código que indicas no guarda en el archivo de texto; lee del archivo de texto. Dicho archivo de texto debes de haberlo creado antes y debe de contener tus direcciones de email separadas por punto y coma (; ). No recuerdo si fue en este o en otro post donde te explique cómo es que se crea el archivo de texto.
Por favor, lee los link (auto aprendisaje) que te he adjuntado en respuestas anteriores, para que sepas así cuando se está leyendo o escribiendo en un archivo de texto.

Saludos, desde algun lugar de Lima-Perú

[gasafonso]

siiiii perdonnnnnn, lo hice del celular y me equivoque

Este es la instruccion

Código: (VB) [Seleccionar]

Dim strEmails As String

strEmails = vbNullString
 
'Nos movemos al primer registro (Esto no es 100% necesario).
rstRecordSet.MoveFirst
 
'Itera el recordset
Do While Not rstRecordSet.EOF
  ' Concatena email
  If Len(rstRecordSet.Fields("mail").Value) > 0 Then
    strEmails = strEmails & rstRecordSet.Fields("mail").Value & ";"
  End If
 
  'Nos movemos al siguiente registro.
  rstRecordSet.MoveNext
Loop
 
'Cerramos el recordset (Quizás para tú aplicación no necesites cerrar el recordset en este punto)
rstRecordSet.Close
 
'Asigna al TextBox los email separados por ";"
TextBox.Text = strEmails

[gasafonso]

siiiii perdonnnnnn, lo hice del celular y me equivoque

Este es la instruccion

Código: (VB) [Seleccionar]

Dim strEmails As String

strEmails = vbNullString
 
'Nos movemos al primer registro (Esto no es 100% necesario).
rstRecordSet.MoveFirst
 
'Itera el recordset
Do While Not rstRecordSet.EOF
  ' Concatena email
  If Len(rstRecordSet.Fields("mail").Value) > 0 Then
    strEmails = strEmails & rstRecordSet.Fields("mail").Value & ";"
  End If
 
  'Nos movemos al siguiente registro.
  rstRecordSet.MoveNext
Loop
 
'Cerramos el recordset (Quizás para tú aplicación no necesites cerrar el recordset en este punto)
rstRecordSet.Close
 
'Asigna al TextBox los email separados por ";"
TextBox.Text = strEmails

como hago para ingresar en un archivo de texto , todos mis direcciones de mails que se encuentran en la variabble (strEmails)


gracias

[Albertomi]

Estimado gasafonso

 
El siguiente código hace lo que necesitas, te recomiendo leer el siguiente tutorial de manejo de archivos
-----------------------------------------------------------------------------------
Dim lngFile As Long
 
'Obtenemos un número de archivo libre
lngFile = FreeFile
 
'Abre, escribe (a archivo de texto el contenido de la variable strEmails) y cierra el archivo de texto
Open App.Path & "\misclientes.txt" For Input As lngFile '<-- Esta línea crea algo como esto (adaptalo a tu ruta) c:\enviaemail\misclientes.txt
Print #lngFile, strEmails
Close #lngFile
-----------------------------------------------------------------------------------

Saludos, desde algún lugar de Lima-Perú

[gasafonso]

Gracias CApo, estos foros son geniales gracias a Gente como Vos , Yacosta, etc


muchas gracias por tu dedicacion


abazo

[gasafonso]

Me da el siguiente error, alguien sabe por que ?





gracias

[raul338]

En que linea te da el error?

Probaste cerrando todo el IDE (el visual basic) y abriendo denuevo?

[Albertomi]

Estimado gasafonso
 
Sin poder ver tú código es un poco difícil orientarte sobre que puede estar ocurriendo o que estás haciendo mal.

Por otro lado, debes de tener en consideración que a partir de Windows Vista en adelante, el sistema operativa pone más restricciones de seguridad por ejemplo muchas carpetas (directorios) tienen por defecto permiso de solo lectura entre ellas Archivos de programa (Program File). Esto es controlado por UAC (User Account Control), a manera de prueba desactiva por completo UAC (necesitaras reiniciar tú PC para que el cambio surja efecto) y luego vuelve a intentar ejecutar tú código.
 
Saludos, desde algún lugar de Lima-Perú

[gasafonso]

Hola Amigos , gracias a todos por su dedicacion

lo solucione poniendo


Open App.Path & "\misclientes.txt" For Append As lngFile


en vez de


Open App.Path & "\misclientes.txt" For input As lngFile


Ahora bien aprovecho y pregunto, una vez que mando el mails necesito borrar esa linea (la primera deberia ser) donde estaran todos los mails del dia para mandar. COmo hago ?[