color item listbox y leer y guardar .txt

[carnero]

hola quiero que cuando se cumpla una condicion se cambie el color de un item del listbox.
por ejemplo:

estan seleccionados los items 6 yo queiro que por ejemplo todos los items 3 esten en color rojo.


y ademas ME GUSTARIA SABER COMO PUEDO AGREGAR Y LEER DATOS DE UN TXT, POR EJEMPLO QUIERO QUE AL GUARDAR UNA CIUDAD ME GUARDE UN TXT CON EL NOMBRE DE LA CIUDAD Y UN NUMERO ( PARA AHORRARME UNA TABLA MAS EN LA BD)


espero se entienda y otraves muchas gracias

[lokoman]

Crear y agregar datos en un archivo:

Código vb:

Open app.path & "\Archivo.txt" For Append As #1
   Write #1, Numero, NombreCiudad
Close #1
 

Para leer:

Código vb:

Open  app.path & "\Archivo.txt"  For Input As #1
   Do while not EOF(1)
      Input #1, Numero, NombreCiudad
   loop
Close #1
 

[carnero]

vale gracias y se puede cambiar el color de la letra en el list??

[carnero]

y como puedo eliminar la informacion que esta dentro del txt desde el programa?

garcias otraves

[erbuson]

Hola, si te refieres a como eliminar lo que había al grabar nuevos datos, debes utilizar la opcion Output

Input....... es para Leer datos del fichero
Append... es para Añadir datos al final del fichero
Output.... es para Añadir datos sobreescribiendo si existe.

Si lo que quieres es borrarlo definitivamente, debes utilizar Kill

[carnero]

ok muchas gracias

[carnero]

una consulta no me sale.
como puedo hacer el siguiente algoritmo??

si el achivo sucursales.txt no existe
creelo
si existe
lea lo que tiene y agreguelo al lisbox

y tambien

como guardo todo lo que esta en el listbox en el archivo sucursales.txt

muchas gracias

[carnero]

Iniciado por carnero

una consulta no me sale.
como puedo hacer el siguiente algoritmo??



muchas gracias

como puedo despues agregar todos los datos del listbox
por ejemplo:

list1.ListIndex
list1.text

la cosa esta en que el "list1.text" toma el valor seleccionado y no todos los datos y no se como agregarlo.

gracias

[-rommel_]

A ver amigo te ayudo...
para eliminar un archivo

Código vb:

Private Sub EliminarArch (strRuta as string)
   Dim fsO as New FileSystemObject
   if fsO.FileExists (strRuta) Then fsO.DeleteFile strRuta
   set fsO = Nothing
End sub
 

Para Copiar Archivos a otra Ruta...

Código vb:

Private Sub CopiarArch(strRutaOrig as String, strRutaFin as String )
   Dim fsO as New FileSystemObject
   if not fsO.FileExists (strRutaFin) Then fsO.CopyFile strRutaOrig strRutaFin
   set fsO = Nothing
End Sub
 

Para Crear un Archivo...

Código vb:

Private Sub CrearArch(strRuta)
    Dim nFile as integer
    ' FreeFile, captura el Indice del Primer Archivo que no se esta utilizando, inicialmente 1
    ' si hubiera otro freefile, obtendria el valor 2
    nFile = freeFile
    'Aqui creamos un Archivo con OUTPUT para Crearlo VACIO
    Open strRuta For OutPut As #nFile
    ' Aqui agregamos data al archivo creado
    Write #nFile, "Data agregada" 'que puede ser Data del ListBox
    'Es mas todo esto lo ponemos dentro de un FOR
    Close #nFile
End Sub
 

Para Leer Datos de un Archivo...

Código vb:

Private Sub LeerArch (strRuta As String)
   Dim nFile as Integer
   nFile = FreeFile
   'Abrimos el Archivo con INPUT para LEER
   Open strRuta For Input As nFile
   'Almacena TODO el contenido en el TextBox
   me.txtContenido.text = Input$(LOF(nFile), #nFile)
   'Cierra el Archivo
   Close #nFile
End Sub
 

Aqui te dejo un Ejemplo de Recorrer el Archivo...

Código vb:

Private Sub RecorrerArchivo(strRuta as String)
   Dim nFile as Integer
   nFile = FreeFile
   ' Abrimos con Append para Agregar AL FINAL DEL ARCHIVO
   Open strRuta For Append As #nFile
   'Recorremos el List adicionando al Archivo
   For i=0 To Me.ListDatos.ListCount - 1
       Print #nFile, Me.ListaDatos.List(i)
   next i
   Close #nFile
   ''''
   'Aqui recorremos para guardar los datos en otro list
   Dim LineaArch as String
   nFile = freeFile
   Open strRuta For Input As #nFile
   While Not EOF(nFile)
        Line Input #nFile, LineaArch
        Me.ListDatos2. AddItem LineaArch
   Wend
   #Close #nFile
End Sub
 

Espero te sirva amigo...

[carnero]

muuuuuuuuuuuchas gracias

[-rommel_]

jejej de nada amigo

[razomarfue8]

estan muy buena slas respuestas respecto a lectura de archivos (Y), tengo un problema parecido en cuanto a modificar el color de un item del listbox ya utilize el forecolor y este cambia d ecolor a todos los items ahora quiero cambiarle el color solo al item que esta seleccionado ...haber sia lguien puede echarme una mano