Importar de un .dat o txt a MSFlexGrid

[XYON126]

hola!

Tengo una consulta, tengo un archivo de datos.dat o datos.txt y quisiera rellenar un MSFlexGrid con algunos datos de ese archivo para una vez se me habra la ventana se me visualicen en el MSFlexGrid. El problema es que encuentro información de exportar a txt, excel, acces etc. pero de importar y de como se hace para MSFlexGrid no encuentro nada, mi idea es via RANDOM hacerlo pero no se si es posible y como.
Puede alguien echarme una manita y decirme como hacerlo, ante todo quisiera aprender ya que codigo siempre va bien pero si no se que hace, me quedo igual que al principio.
Otro tema dentro del MSFlexGrid veo 1001 funcion, etc. por ejemplo la MSFlexGrid#.TextMatrix(#,#) he leido que rellena la celda especificada pero ¿como se hace con esta función? entre el :

Código vb:

Private Sub Form_Load()
 
End Sub
 

o

Código vb:

Private Sub MSFlexGrid#_Click()
 
End Sub
 

Porque en cada una, con un For/next, etc. ¿Hay algun comando sentencia ligada a eso para funcionar? ya que no encuentro informacion que me lo explique.

Un saludo

[erbuson]

Hola:

Por lo que veo y por tus últimos mensajes, estás muy decidido con el MsFlexgrid y puedo decirte que lo lo utilizo siempre y le encuentro pocos inconvenientes.

En primer lugar, te aconsejaría que vayas creando algunas rutinas reutilizables para que te simplifiquen el proceso con el mismo.

Supongo que tienes claro que las rutinas Publicas debes incluirlas juntas en un Módulo.

Por ejemplo podrías tener:

1) Poner el título en una Columna, dimensionar su ancho, determinar si se ajustará a la izquierda, derecha o centro.

2) Poner el dato en la celda indicada.

¿ Porque tener estas rutinas ? Pues porque dentro de ellas puedes ir controlando errores que no tendrás que controlar en cada sentencia, mejorarlas poco a poco, mejorando así todo el código con un simple arreglo.

Te indico el principio, TU lo analizas, lo estudias, lo pruebas, lo mejoras y comentas.

Crea por ejemplo un Modulo con el nombre SubGrid y empiezas con la rutina:

Código vb:

Public Sub GridCabecera(Grid As MSFlexGrid, Columna As Single, AnchoTwips As Single, Titulo As String, Ajuste As String)
  ' Si la Columna no existe, la añadimos ya que de lo contrario se produciría un error
  If Grid.Cols - 1 < Columna Then Grid.Cols = Columna + 1
  Grid.ColWidth(Columna) = AnchoTwips
  Select Case UCase(Ajuste)
    Case "I": Grid.ColAlignment(Columna) = 1 ' Izquierda
    Case "D": Grid.ColAlignment(Columna) = 7 ' Derecha
    Case "C": Grid.ColAlignment(Columna) = 4 ' Centro
  End Select
  Grid.Row = 0
  Grid.Col = Columna
  Grid.CellAlignment = 4                     ' Título siempre Centrado
  Grid.Text = Titulo
End Sub
 

Código vb:

Private Sub GridPonerDato(Grid As MSFlexGrid, Fila As Single, Columna As Single, Dato As Variant)
  ' Si la fila no existe, la añadimos. La columna es de suponer que ya le hemos puesto cabecera
  If Grid.Rows - 1 < Fila Then Grid.Rows = Fila + 1
  Grid.TextMatrix(Fila, Columna) = Dato
End Sub
 

Ya puedes poner un MsFlexgrid en el proyecto y empezar a probar.

Nos leemos

[XYON126]

Hola erbunson!

Muchas gracias de antemano. Como comentas pues si, lo poco que se de VB hay comandos que me gustan y los veo mas utiles que otros que hacen lo mismo o similar, igual que lo del RANDOM que comentabamos en post anteriores, soy de la opinion que lo que se realice dentro mejor que sacar afuera (a otros programas) si se puede evitar.Lo malo es que la información que corre tanto por internet como la propia de Microsoft es muy extensa pero en ocasiones muy difusa o poco clara y didactica y si no es por vosotros los novatos vamos perdidos.

Voy a pelearme y como bien dices a prepararme Modulos que los voy a necesitar y mucho.

Un saludote

[XYON126]

Iniciado por erbuson

Hola:

Supongo que tienes claro que las rutinas Publicas debes incluirlas juntas en un Módulo.

Por ejemplo podrías tener:

1) Poner el título en una Columna, dimensionar su ancho, determinar si se ajustará a la izquierda, derecha o centro.

2) Poner el dato en la celda indicada.

Crea por ejemplo un Modulo con el nombre SubGrid y empiezas con la rutina:

Código vb:

Public Sub GridCabecera(Grid As MSFlexGrid, Columna As Single, AnchoTwips As Single, Titulo As String, Ajuste As String)
  ' Si la Columna no existe, la añadimos ya que de lo contrario se produciría un error
  If Grid.Cols - 1 < Columna Then Grid.Cols = Columna + 1
  Grid.ColWidth(Columna) = AnchoTwips
  Select Case UCase(Ajuste)
    Case "I": Grid.ColAlignment(Columna) = 1 ' Izquierda
    Case "D": Grid.ColAlignment(Columna) = 7 ' Derecha
    Case "C": Grid.ColAlignment(Columna) = 4 ' Centro
  End Select
  Grid.Row = 0
  Grid.Col = Columna
  Grid.CellAlignment = 4                     ' Título siempre Centrado
  Grid.Text = Titulo
End Sub
 

Código vb:

Private Sub GridPonerDato(Grid As MSFlexGrid, Fila As Single, Columna As Single, Dato As Variant)
  ' Si la fila no existe, la añadimos. La columna es de suponer que ya le hemos puesto cabecera
  If Grid.Rows - 1 < Fila Then Grid.Rows = Fila + 1
  Grid.TextMatrix(Fila, Columna) = Dato
End Sub
 

Hola erbunson!

Despues de analizarlo por lo que veo y creo (corrigeme si me equivoco) ambas rutinas las he de incluir en un solo "Modulo" y adaptarmelas o mejorarlas como dices y si puedo; pero en la primera veo que es para el tema visual y diseño del MSFlexGrid, en cambio la otra es para entrar datos en la celda y aqui es donde me viene la duda, esa es solo para una celda, entiendo que si la pongo en un modulo en el proyecto he de crear un bucle de lectura del archivo .dat o .txt con RANDOM (Get y Put) e introducirlo en la variable "Dato" y asi celda por celda, ¿Es asi? como en mi caso no hay commandButton sino que lee los datos directamente de un archivo y los mete en la grilla todo lo debo de tener en el "Private Sub Form_Load()", ¿es esto asi?

Muchas gracias

[erbuson]

Efectivamente, veo que captas la idea, debes introducir los datos a traves de un bucle, tanto para crear la cabecera como para pasar los datos, por ejemplo:

Código vb:

' Crear Cabeceras
GridCabecera Grid, 0, 800, "Codigo", "D"
GridCabecera Grid, 0, 2800, "Descripción", "I"
GridCabecera Grid, 0, 800, "Unidades", "D"
GridCabecera Grid, 0, 800, "Precio", "D"
 
' En un Bucle de lectura del Fichero
 
' Leer Registro 
Fila = Fila + 1
GridPonerDato Grid, Fila, 0, DatoLeido
GridPonerDato Grid, Fila, 1, DatoLeido
GridPonerDato Grid, Fila, 2, DatoLeido
GridPonerDato Grid, Fila, 3, DatoLeido
' Volver al Bucle
 

Es la idea

[XYON126]

Iniciado por erbuson

Efectivamente, veo que captas la idea, debes introducir los datos a traves de un bucle, tanto para crear la cabecera como para pasar los datos, por ejemplo:

Código vb:

' Crear Cabeceras
GridCabecera Grid, 0, 800, "Codigo", "D"
GridCabecera Grid, 0, 2800, "Descripción", "I"
GridCabecera Grid, 0, 800, "Unidades", "D"
GridCabecera Grid, 0, 800, "Precio", "D"
 
' En un Bucle de lectura del Fichero
 
' Leer Registro 
Fila = Fila + 1
GridPonerDato Grid, Fila, 0, DatoLeido
GridPonerDato Grid, Fila, 1, DatoLeido
GridPonerDato Grid, Fila, 2, DatoLeido
GridPonerDato Grid, Fila, 3, DatoLeido
' Volver al Bucle
 

Es la idea

hola erbunson!

Aqui hay dos puntos que me despistan, uno en "Crear Cabeceras o Leer Registro " en una de las lineas cualquiera pones esto :

GridCabecera Grid, 0, 800, "Codigo", "D"
GridPonerDato Grid, Fila, 0, DatoLeido

si mi MSFlexGrid se llama MSFlexGrid1 y la orden de insertar un dato en la 1º linea, 1º columna del grid es.:

MSFlexGrid1.TextMatrix(0,0)

lo que no entiendo es tu linea por completo, pues "Fila" supongo es una variable llamada Fila, "0" seria la columna 0 y "DatoLeido" seria otra variable con el dato leido, pero ¿Donde esta el .TextMatrix() y en cabecera¿ que es el "800"?

Si no es mucho pedir, por que no me pones una liea de codigo teniendo en cuenta que en el archivo Datos.dat hay tres datos a leer que son : Horainicio, Horafin y Totalhoras esas serian las tres variables y datos a leer y escribir en una columna de tres filas y la columna es la 2ª por la izquierda y no tiene cabecera púes la cabecera es un Label.

Yo haria el codigo para visualizar asi, corrigemelo si esta mal, gracias.(He tenido en cuenta el modulo tal como lo escribistes por si es aqui donde se crean mis dusdas).

Código vb:

Private Sub Form_Load()
 
Dim Horainicio As Integer
Dim Horafin As Integer
Dim Totalhoras As Integer
 
'Aqui llamamos al modulo SubGrid 
 
Dim lcdTest As New SubGrid 
 
'Lee del fichero en el registro posicionado y almacena los datos _
en la la variable UDT
Get #FileFree, RegActual, cliente
 
' Asignamos los datos a las variables de visualización.
        With cliente
 
        .Horainicio = Trim(cliente.Horainicio)
        .Horafin = Trim(cliente.Horafin)
        .Totalhoras = Trim(cliente.Totalhoras)
 
        End With
 
VisualizarDatos
 
End Sub
 
Private Sub VisualizarDatos()
 
'Lee del fichero en el registro posicionado y almacena los datos _
en la la variable UDT
Get #FileFree, RegActual, cliente
 
' Mostramos los datos
 
 
MSFlexGrid1.TextMatrix(0,0) = .Horainicio
MSFlexGrid1.TextMatrix(1,0) = .Horaifin
MSFlexGrid1.TextMatrix(2,0) = .Totalhoras
 
End Sub
 

erbunson si me comentas como se puede insertar una imagen en un post te podre poner una imagen del proyecto para mas comprension de lo que estoy intentando.

Saludo2

[erbuson]

Hola, veo que andas un poco perdido, intentaré aclararte en primer lugar el tema de los módulos para que comprendas mas fácilmente las llamadas posteriores a las rutinas reutilizables.

El hecho de crear dos rutinas GridCabecera y GridPonerDato en un módulo es para que resulte mas fácil efectuar las operaciones sobre el grid, ya que de lo contrario puedes necesitar con cada celda efectuar varios procesos repetitivos.

Cuando repites mucho un código lo mejor es crear un Sub o una Function reutilizable para no tener que reescribir siempre el mismo código.

Pero vamos con el tema módulos, un módulo no se tiene que llamar de ninguna manera como tu haces en el load. El módulo contiene Funciones y Subs que pueden ser llamados desde cualquier punto del programa, incluso puede tener variables compartidas por todos los Formularios del programa.

Si vas a la opción de menú Proyecto, veras que puedes añadir muchas cosas diferentes, vayamos por partes ya que estas empezando, por Formulario y Módulo.

Formulario ya sabes lo que es, cada Proyecto puede tener muchos formularios diferentes y además muchos módulos diferentes.

Selecciona Proyecto - Agregar Módulo - Nuevo (Abrir)

Pegas en el las dos Subs que hemos estado tratando y de este modo podrás comprobar cuando vayas a escribir código dentro del Formulario que por ejemplo cuando escribas dentro del Load:
GridCabecera vas a ir visualizando las distintas opciones. Ten en cuenta que se puede hacer de dos maneras, una es tal como yo lo he puesto y otra es con el Call delante y los parámetros entre paréntesis, o sea:

CALL GridCabecera (Grid, 0, 800, "Codigo", "D")

Evidentemente cuando tu llames a GridCabecera por lo que me indicas, deberas hacer:

GridCabecera MsFlexgrid1, LaColumna, ElAncho, ElTitulo, ElAjuste

Como ves, si lo comprendes la ventaja es que si tienes 2 o 3 grids o Grids en distintos formularios, puedes utilizar facilmente el código sin tener que volver a escribirlo.

Intenta comprender esto y después continuamos.

Saludos

[XYON126]

Hola erbunson!

Si, tienes razon estoy perdido llevo 2 semanas con el VBasic y me esperaba me seria mas facil comprenderlo de lo que realmente me lo he encontrado, he realizado muchas pruebas con rutinas faciles, ves que te salen y cometes el gran error que crees que ya lo sabes todo y te lanzas a un proyecto aunque propio y como hobby, pero mas grande de lo que creia, aunque no me desespero pues cuando lo finalice, creo me defendere bastante bien con el VB.
Bueno vallamos al grano, tema Modulos por lo que comentas los modulos no son necesarios declararlos; en un programilla de un reloj, el que realizo el codigo genero un Modulo de clase que lo que realizaba era traducir los números a vision LCD y este modulo lo declaraba al principio en el "Option Explicit" como si fuese una variable y para traducir el número a LCD solo ejecutaba la sentencia "variable.Caption = variablenúmero, en nuestro caso ¿No es lo mismo? por otro lado el codigo de las dos rutinas tal como las veo ¿No hay que declararlas de alguna manera? es que no veo ningun Dim o Private sub, soy muy cazurro por eso no lo entiendo muy bien, es que como no veo ningun .TextMatrix, etc tampoco y tanto esta sentencia :

Código vb:

GridCabecera MsFlexgrid1, LaColumna, ElAncho, ElTitulo, ElAjuste
 

como esta

Código vb:

GridCabecera Grid, 0, 800, "Precio", "D"
 

o esta

Código vb:

GridPonerDato Grid, Fila, 0, DatoLeido
 

solo veo variables y datos separados por comas (es la primera vez que lo veo) me despista y desconcetra, por aquello de no me reclame o diga el VB variable no definida.

Como comentaba al principio del post, al no encontrar referencia alguna de como realizarlo y solo programillas ya finalizados y sin decirte el porque me emperro en buscar similitudes con lo poco que conozco y no se si es aqui donde estoy metiendo la pata, espero me comprendas.

Muchas gracias por tu ayuda es inmensa a ver si consigo entenderlo.

Saludos,

[erbuson]

Efectivamente las rutinas y funciones declaradas en los módulos no necesitas declararlas en el formulario que las vas a utilizar, sólo debes tener en cuenta que deben estar definidas Public para que sean compartidas.

Por otra parte, es diferente un módulo de clase como dices que utilizaste que un módulo .bas que contiene rutinas y funciones.

Por otra parte al crear el módulo deberás incluir dentro de este las dos rutinas que te puse como ejemplo y que son las que contienen las sentencias TextMatrix que estas buscando.

Si el tema del módulo te lo está complicando, podemos empezarlo de otra manera ya que el código que te dejé lo puedes incluir dentro del código de formulario normal y cuando lo entiendas ya lo pasarás a un módulo para poder compartirlo con otros proyectos si es necesario.

Como puedes comprobar las dos están declaradas como Public por lo que después será muy fácil pasarlas a módulo.

Cuando quieras estoy a la espera de tus comentarios.

Saludos

[XYON126]

Hola erbunson!

Comentas que las sentencias tuyas tienen incluido el TextMatrix ¿Donde?, por lo de lo de los Modulos para declarar un Modulo publico he de ponerle en la cabecera el "Opton explicit" ¿Es asi? aunque desearia dejarlos para mas tarde.

Por otro lado y como bien dices,es ir pasito a pasito, por eso desearia ir creando el codigo para poderme dar de ostias y aprender con los errores. La aplicación que estoy intentando hacer tiene un archivo de datos externo "Datos.dat" en el que inicialmente puede solo tener un registro pero dia a dia va aumentando o no, el tema es, este formulario de este MSFlexGrid solo tiene 49 celdas 7x7 que corresponden las columnas a los siete dias de la semana y las siete filas, son tres de entradas, tres de salidas y la ultima el total de horas activas, pero existen tres problemas uno no siempre se empieza en Lunes o finaliza en domingo, no siempre se realizan los dias consecutivos y ultimo problema no siempre en un mismo dia se hacen las tres entradas pueden ser 1, 2 o 3, es decir que al leer el registro debo identificar los datos para no introducirlos en la celda de la grilla erronea y finalmente en un label aparte he de introducir la suma total de todas las horas de las 7 celdas de la ultima fila.Todo esto como ya sabes lo introduje en el Datos.dat mediante el sistema que en otro post comentamos con RANDOM bien aconsejado por ti para no usar BBDD externa.
Como ves el berengenal que me he montado es grande pero cuando lo consiga creo que tendre un campo muy amplio aprendido.¿Podrias ayudarme y guiarme en el codigo paso a paso?

Un saludo

[erbuson]

Primer punto:

El Option Explicit es optativo pero aconsejable ¿ Que significa ? pues que para utilizar una variable debes haberle definido antes y esto ayuda a evitar muchos errores.

Imagínate el siguiente Codigo:

Public Function Calcular(Dato as Integer) As Single
Prueba = Prueba + Dato
Prueba = Prueba * 25
Calcular = Prubea ' Fijate que me he equivocado y he puesto Prubea
End Function

Visual Basic no me avisará de que he cometido este error y me puede costar detectarlo, en cambio si tienes el Option Explicit, debería poner

Public Function Calcular(Dato as Integer) As Single
Dim Prueba As Single
Prueba = Prueba + Dato
Prueba = Prueba * 25
Calcular = Prubea ' Fijate que me he equivocado y he puesto Prubea
End Function

De este modo Visual Basic me diría que Prubea no está definido y detectas el error en la primera ejecución.

Respecto a donde esta el TextMatrix en mi código, pues simplemente donde lo puse al principio.

Código vb:

Private Sub GridPonerDato(Grid As MSFlexGrid, Fila As Single, Columna As Single, Dato As Variant)
* ' Si la fila no existe, la añadimos. La columna es de suponer que ya le hemos puesto cabecera
* If Grid.Rows - 1 < Fila Then Grid.Rows = Fila + 1
* Grid.TextMatrix(Fila, Columna) = Dato
End Sub
 

Por otra parte, en la primera rutina de Título no lo utilizo porque si estás posicionado en un Row / Col del Grid puedes utilizar la propiedad Text o sea que estos dos códigos hacen lo mismo.

Grid.Row = 1
Grid.Col = 3
Grid.Text = "JUAN"

Grid.TextMatrix(1,3)="JUAN"

Te preguntarás porque se utiliza el primero si el segundo es más rápido, pues porque no todas las propiedades de la celda se pueden modificar con la opción TextMatrix y debes encontrarte posicionado en ella para cambiar o averiguar por ejemplo el BackColor el CellAlignment, etc

Después me hablas del 7 x 7 = 49 celdas, las columnas generalmente son siempre las mismas ya que lo mismo necesitas 4, 5, 6 columnas para 1 fila que para mil, pero sin embargo las filas se van añadiendo a medida que las necesitas.

Si quieres deberías pegar el Codigo de la UDT que utilizas para leer los datos y la sentencia Open del Fichero para saber la longitud del mismo.

Después seguimos.

Saludos

[XYON126]

Hola erbunson!

Si algun dia nos conocemos personalmente, dame ostias hasta el DNI, estoy ciego y no habia visto el .TextMatrix cuando lo tenia delante de mis narices en la linea 4 de la segunda sentencia.
Y ahora ya voy captando,lo comentado, es lo que he comentado varias veces que en los manuales y tutoriales que corren por ahi en ningun sitio ponian lo que acabas de postear que si te posicionas en un Row/Col haces u obtienes lo mismo que en un .TextMatrix; entonces la linea :

Código vb:

GridCabecera MsFlexgrid1, LaColumna, ElAncho, ElTitulo, ElAjuste
 

que es exactamente lo del Row/Col,¿el orden de propiedades es ese? ¿Cuantas mas y en que orden puede llevar?

¿La primera fila la "0" y la primera columna "0" que se podrian tomar como indice o cabecera respectivamente ¿Tienen algun caracter(tratamiento) especial o es indiferente, pues veo que por defecto el MsFlexgrid la diferencia en color, ¿hay que tratarlas siempre por separado o simplemente como fila y columna (0,0) y punto?.

Iniciado por erbunson

Si quieres deberías pegar el Codigo de la UDT que utilizas para leer los datos y la sentencia Open del Fichero para saber la longitud del mismo.

Aqui en este punto estoy tambien anclado pues en el formulario reloj que es donde entro los datos en el archivo Horas.dat los guardo de esta manera .:

Código vb:

Option Explicit
 
'Variables
'##################################################
 
' Estructura para dar de alta los datos de las Horas.
 
Private Type Horas_T
 
'Variables
horainicio1 As Date
horafin1 As Date
horainicio2 As Date
horafin2 As Date
horainicio3 As Date
horafin3 As Date
Totalhoras As Date
dia As String * 8
semana As String * 4
mes As String * 12
año As Integer
 
End Type
 
'Variables para utilizar la estructura anterior
 
Dim Horas As Horas_T
Dim HorasTemp As Horas_T
 
'Variables para el archivo de los datos de Horas_T y temporal
Dim FileFree As Integer
Dim FileTemp As Integer
 
'Variables para la posición del primer y último registro
Dim RegActual As Long
Dim RegUltimo As Long
 
' Variable para la posición Temporal del registro
Dim RegActualTemp As Long
 
Dim Pos As Integer, p As Integer
 
' Variable para el cronometro
Dim marco As Integer
Dim horainicio As Date
Dim horafin As Date
Dim horainicio1 As Date
Dim horafin1 As Date
Dim horainicio2 As Date
Dim horafin2 As Date
Dim horainicio3 As Date
Dim horafin3 As Date
Dim tiempo_C As Date
Dim conthoras As Integer
Dim dia_C As String
Dim mes_C As String
Dim semana_C As String
Dim año_C As Integer
 
' Variable para identificar dia y mes.
Dim diatemp As Integer
Dim mestemp As Integer
Dim x As Integer
Dim i As Integer
 
Dim lcdTest As New mcLCD
 
 
Private Sub cmd_fin_Click()
 
diatemp = Weekday(Format(Date, "ww"))
mestemp = Month(Now)
semana_C = Format(Date, "WW")
año_C = Format(Date, "YYYY")
 
 
horafin = Time
marco = 0
 
dia_C = diatemp
mes_C = mestemp
 
 
'Sentencia para Nombrar los dias de la semana.
Select Case diatemp
    Case 1
    dia_C = "Lunes"
    
    Case 2
    dia_C = "Martes"
    
    Case 3
    dia_C = "Miercoles"
    
    Case 4
    dia_C = "Jueves"
    
    Case 5
    dia_C = "Viernes"
    
    Case 6
    dia_C = "Sabado"
    
    Case 7
    dia_C = "Domingo"
 
End Select
 
'Sentencia para Nombrar los meses.
Select Case mestemp
    Case 1
    mes_C = "Enero"
    
    Case 2
    mes_C = "Febrero"
    
    Case 3
    mes_C = "Marzo"
    
    Case 4
    mes_C = "Abril"
    
    Case 5
    mes_C = "Mayo"
    
    Case 6
    mes_C = "Junio"
    
    Case 7
    mes_C = "Julio"
    
    Case 8
    mes_C = "Agosto"
    
    Case 9
    mes_C = "Septiembre"
    
    Case 10
    mes_C = "Octubre"
    
    Case 11
    mes_C = "Noviembre"
    
    Case 12
    mes_C = "Diciembre"
    
End Select
    
tiempo_C = horafin - horainicio
 
'Datos salida por MsgBox
 
MsgBox tiempo_C & "   minutos realizados." & vbCrLf & vbCrLf _
        & Date & vbCrLf & vbCrLf & "KW-" & semana_C
       
MsgBox horafin & vbCrLf & horainicio & vbCrLf & "________" & vbCrLf & " " & vbCrLf _
        & tiempo_C & vbCrLf & año_C & vbCrLf & dia_C & "  , " & mes_C & vbCrLf & "KW-" & semana_C
        
'Guardamos en el archivo Horas.dat los datos del contenido de las variables.
GuardarDatos
 
'Escribimos los datos en el archivo y en la posición
Put #FileFree, RegActual, Horas
       
       
'Cerramos archivo de datos.
       
Close FileFree
       
End
End Sub
 
Private Sub cmd_Inicio_Click()
x = x + 1
marco = 2
horainicio = Time
 
'Asignamos los datos de la hora de inicio
Select Case x
 Case 1: horainicio1 = horainicio
 Case 2: horainicio2 = horainicio
 Case 3: horainicio3 = horainicio
         
End Select
 
'Escribimos los datos en el archivo y en la posición
Put #FileFree, RegActual, Horas
End Sub
 
Private Sub cmd_pausa_Click()
 
i = i + 1
marco = 1
horafin = Time
 
'Asignamos los datos de la hora de pausa
 
 
'Asignamos los datos de la hora de inicio
Select Case i
 Case 1: horafin1 = horafin
 Case 2: horafin2 = horafin
 Case 3: MsgBox "     Ejecucion no valida." & vbCrLf & "Esta es la ultima salida presione Detener", _
 vbExclamation, "Guardar datos."
         
End Select
 
'Escribimos los datos en el archivo y en la posición
Put #FileFree, RegActual, Horas
 
 
 
End Sub
 
Private Sub Form_Load()
 
   x = 0
   i = 0
   conthoras = conthoras
   conthoras = conthoras + 1
   lcdTest.NewLCD Picture1
   
   'Carga el primer registro del archivo
Cargar
 
End Sub
 
Private Sub Cargar()
 
FileFree = FreeFile
Open "Horas.dat" For Random As FileFree Len = Len(Horas)
 
RegActual = 1
' Almacenamos la posición del último registro
RegUltimo = LOF(FileFree) / Len(Horas)
 
If RegUltimo = 0 Then
RegUltimo = 1
End If
 
End Sub
 
Private Sub GuardarDatos()
 
'Asignamos los datos de la estructura con el contenido de las variables.
With Horas
 
 ' Variable para del archivo Horas.dat
 
.horainicio1 = horainicio1
.horafin1 = horafin1
.horainicio2 = horainicio2
.horafin2 = horafin2
.horainicio3 = horainicio3
.horafin3 = horafin3
.Totalhoras = conthoras
.dia = dia_C
.semana = semana_C
.mes = mes_C
.año = año_C
 
End With
 
End Sub
 
Private Sub Picture1_Click()
 
   Unload frmLCD
 
End Sub
 
Private Sub Timer1_Timer()
 
If marco = 0 Then
   lcdTest.Caption = "00:00:00"
   ElseIf marco = 1 Then
   lcdTest.Caption = horafin
   Else
   lcdTest.Caption = Time
   
   End If
End Sub
 

El problema es que no se si en el formulario del MsFlexgrid he de llamar a los datos igual y como tratar o filtrarlos para evitar los tres problemas que comento; de momento lo que estoy haciendo es una rutina llamada "Visualizardatos ()" y otra "Datos ()". :
La "Visualizardatos ()" estoy asignando cada dia de la semana con un número y cada registro de entrada o salida tambien para poder tener una especie de coordenada y poder identificar la celda de MsFlexgrid y con un Select case le inserto su dato obtenido.(1er. problema, como poder indentificarlo dentro de mi Horas.dat).

Y en la segunda rutina "Datos ()", aqui es donde Habro el archivo leo los datos y pretendo una vez identificado cada dato guardarlo en una variable para posteriormente cerrar el archivo. Mi problema es que con la sentencia :

Código vb:

Get #FileFree, RegActual, horas
 

No se si la he de declarar igual que en la del reloj o no (creo que por logica si) pero como trato los registros vacios(dias no trabajados, dias con solo una entrada, etc) este es un punto que me estoy rompiendo los cascos y habriendo el archivo para ver como los guarda, púes eso veo un monton de caracteres irreconocibles y me quedo peor que al principio.

Un saludo

[erbuson]

Hola, me estas preguntando demasiadas cosas a la vez, y el problema es que al no poder ser un cara a cara lo que sería fácil de explicar, resulta difícil de expresar

El .Row es la fila donde se ha hecho click con el ratón y el .Col es la columna, aunque tu puedes definir por código en que Fila y Columna quieres posicionarte, en cuanto al orden depende del ciclo que quieras usar en tu proceso o sea, si quieres procesar por filas o por columnas.

La Primera Fila es 0 y La Primera columna es 0, y esto no puedes cambiarlo, en cuanto a lo del color especial es porque tu puedes definir un número determinado de Filas o Columnas fijas o sea, que permanecerán fijas arriba y a la izquierda del Grid, generalmente se usan para títulos o encabezados.

Puedes definir las que quieras .FixedRows = 2 o .FixedCols = 5 depende de tus propósitos y necesidades.

Aquí en este punto estoy tambien anclado pues en el formulario reloj que es donde entro los datos en el archivo Horas.dat los guardo de esta manera .:

En cuanto al UDT creo que es correcto pero el problema es que me resulta francamente difícil introducirme en tu código tal vez porque muchas de las cosas que hay en el mismo se podrían simplificar enormemente con algunos trucos y resultaría mas fácil su lectura.

Por ejemplo, si necesitas tener en letras el día de la semana, puedes utilizar para ello la sentencia Format con sus múltiples posibilidades que aunque están a la vista permanecen ocultas si no es con imaginación, por ejemplo, si tu tienes una fecha por ejemplo 15/07/2009 y deseas obtener el nombre del día de la semana o el nombre del mes, puedes simplemente hacer esto:

Msgbox Format("15/07/2009", "dddd")
MsgBox Format("15/07/2009", "mmmm")

Pruébalo y ya me cuentas, las posibilidades son muchísimas.

En cuanto al tema de los caracteres irreconocibles en el archivo es porque al tener definida en la UDT campos de varios tipos, el programa los guarda en código binario por ejemplo un Campo Tipo Single se guarda en disco con una longitud de 4 bytes mientras que uno tipo Date se guarda como 8 bytes, independientemente de que tenga un valor mácimo o un valor 0, por esto estás viendo 'caracteres raros'

Si los guardaras en formato Ascii probablemente te resultaría mas facil de entender ya que incluso podrías editarlos y modificarlos con el bloc de notas.

Creo que primero deberías simplificar el proceso de guardado de los datos para posteriormente tener mas facil su proceso, al fin y al cabo lees el fichero de modo secuencial desde principio a fin ¿ no es asi ?

Saludos

[XYON126]

hola erbunson!

Iniciado por erbuson

El .Row es la fila donde se ha hecho click con el ratón y el .Col es la columna, aunque tu puedes definir por código en que Fila y Columna quieres posicionarte, en cuanto al orden depende del ciclo que quieras usar en tu proceso o sea, si quieres procesar por filas o por columnas.

Lo del .Row y .Col lo tengo claro que con raton o por codigo puedes hacerlo celda por celda, la pregunta era que otros paramentros y en que orden se podian añadir, pues al menos que no hubiese una manera de identificar que es, si el valor era solo entre "," es donde me daria error o datos equivocados.

Iniciado por erbuson

En cuanto al UDT creo que es correcto pero el problema es que me resulta francamente difícil introducirme en tu código tal vez porque muchas de las cosas que hay en el mismo se podrían simplificar enormemente con algunos trucos y resultaría mas fácil su lectura.

Msgbox Format("15/07/2009", "dddd")
MsgBox Format("15/07/2009", "mmmm")

Aqui me comentas que se podrian hacer varios trucos, yo tenia pensado por un lado en el tema de identificador de dias y meses hacer un modulo.cls (de clase) y simplemente con una llamada a una sentencia me diese el dia o mes, he probado meter toda la parte de codigo que hace eso en un modulo.cls y no see si es que se debe introducir diferente pero me daba error pero lo dejo para mas adelante para no complicar las cosas.Sobre lo del comando Format si le introduzco los "dddd" siempre me da el dia del mes pero no si es Jueves o Lunes de echo el Date lo que me responde es "13-abril-2010 y si le separo los parametros te da "13" "4" y "2010" si te fijas en las lineas 151 hasta la 158 lo unico que hacen es con el MsgBox visualizarme lo que se ha guardado en la variable que introducira el dato en el archivo.dat, lo realizo temporalmente para saber que es lo que me guarda por lo de la incomprension del archivo binario con intencion de eliminarlo posteriormente (el MsgBox), aqui si es solo un comado te diria cual es la forma de guardar en ASCII pero si son muchas lineas de codigo lo dejamos para mas adelante tambien.

Iniciado por erbuson

Creo que primero deberías simplificar el proceso de guardado de los datos para posteriormente tener mas facil su proceso, al fin y al cabo lees el fichero de modo secuencial desde principio a fin ¿ no es asi ?

Exactamente de momento, aunque cuando haya mas de 20 registros supongo que lo logico es poner un contador de registros y hacer un bucle para seleccionar los que necesite para visualizar en el MSFlexGrid del otro formulario.Sobre este tema una pregunta: ¿VBasic identifica, guarda internamente en el archivo.dat el número de registro o dato de cuando fue guardado?¿Debe guardar siempre aunque sea con valor "0" (cero) o nulo todos los campos o si por ejemplo un registro tiene el campo dia "jueves" y otro dia "viernes" yo los puedo identificar posteriormente al leerlos? lo pregunto porque las variantes relacionadas con la Fecha las introduzco solo para identificar el registro sin error.Comentas que deberia simplificarlo ¿Como? yo para guardar en el archivo solo utilizo esto :

Código vb:

Private Sub GuardarDatos()
 
'Asignamos los datos de la estructura con el contenido de las variables.
With Horas
 
 ' Variable para del archivo Horas.dat
 
.horainicio1 = horainicio1
.horafin1 = horafin1
.horainicio2 = horainicio2
.horafin2 = horafin2
.horainicio3 = horainicio3
.horafin3 = horafin3
.Totalhoras = conthoras
.dia = dia_C
.semana = semana_C
.mes = mes_C
.año = año_C
 
End With
 
End Sub
 

eso para guardar en el archivo y esto para obtener los datos .:

Código vb:

Private Sub cmd_fin_Click()
 
diatemp = Weekday(Format(Date, "ww"))
mestemp = Month(Now)
semana_C = Format(Date, "WW")
año_C = Format(Date, "YYYY")
 
 
horafin = Time
marco = 0
 
dia_C = diatemp
mes_C = mestemp
 
 
'Sentencia para Nombrar los dias de la semana.
Select Case diatemp
    Case 1
    dia_C = "Lunes"
    
    Case 2
    dia_C = "Martes"
    
    Case 3
    dia_C = "Miercoles"
    
    Case 4
    dia_C = "Jueves"
    
    Case 5
    dia_C = "Viernes"
    
    Case 6
    dia_C = "Sabado"
    
    Case 7
    dia_C = "Domingo"
 
End Select
 
'Sentencia para Nombrar los meses.
Select Case mestemp
    Case 1
    mes_C = "Enero"
    
    Case 2
    mes_C = "Febrero"
    
    Case 3
    mes_C = "Marzo"
    
    Case 4
    mes_C = "Abril"
    
    Case 5
    mes_C = "Mayo"
    
    Case 6
    mes_C = "Junio"
    
    Case 7
    mes_C = "Julio"
    
    Case 8
    mes_C = "Agosto"
    
    Case 9
    mes_C = "Septiembre"
    
    Case 10
    mes_C = "Octubre"
    
    Case 11
    mes_C = "Noviembre"
    
    Case 12
    mes_C = "Diciembre"
    
End Select
    
tiempo_C = horafin - horainicio
 
'Datos salida por MsgBox
 
MsgBox tiempo_C & "   minutos realizados." & vbCrLf & vbCrLf _
        & Date & vbCrLf & vbCrLf & "KW-" & semana_C
       
MsgBox horafin & vbCrLf & horainicio & vbCrLf & "________" & vbCrLf & " " & vbCrLf _
        & tiempo_C & vbCrLf & año_C & vbCrLf & dia_C & "  , " & mes_C & vbCrLf & "KW-" & semana_C
        
'Guardamos en el archivo Horas.dat los datos del contenido de las variables.
GuardarDatos
 
'Escribimos los datos en el archivo y en la posición
Put #FileFree, RegActual, Horas
       
       
'Cerramos archivo de datos.
       
Close FileFree
       
End
End Sub
 

Se ve largo por el case pero en realidad son 8 lineas ya que el resto de codigo son el correspondiente a los botones de paro y encendido del cronometro y que cada uno solo tiene 8 lineas. ¿Que truco aplicarias?

Por cierto la parte del guardado final esta en el boton "Private Sub cmd_fin_Click()" que lo pongo para que no me duplique los datos al mismo tiempo de salir de la función.


Un saludo

[erbuson]

Creo que a cada momento nos estamos complicando mas ¿ que hace realmente tu programa a fin de ver si consigo captar la idea ?

Por otra parte, no entiendo lo del truco del format, mi VB me devuelve por ejemplo lo siguiente

Msgbox Format(Date, "dddd") ' El día de la semana, Lunes, Martes, Miercoles, etc

¿ a ti no ?

[XYON126]

Iniciado por erbuson

Creo que a cada momento nos estamos complicando mas ¿ que hace realmente tu programa a fin de ver si consigo captar la idea ?

Por otra parte, no entiendo lo del truco del format, mi VB me devuelve por ejemplo lo siguiente

Msgbox Format(Date, "dddd") ' El día de la semana, Lunes, Martes, Miercoles, etc

¿ a ti no ?

hola erbunson!

Bueno, mi programa, el principal pues lo he dividido en varios pequeños programillas para ir poco a poco, su función es simplemente un cronometro o reloj de marcar, el cual tiene una BBDD de clientes, otra BBDD de pedidos activos y ya esta, para activar el tiempo de uso de un Soft de CAD llamado CATIA V5 que normalmente cuando me entran pedidos (soy autonomo) me toca facturarles las horas de CATIA V5 y las mias desglosadas y por separado. Ahora como no tengo curro me lo estoy haciendo para no tenerlo que hacer a manini como hasta ahora.

Tengo casi todos los formularios hechos, aunque no definitivos, el formulario de altas de clientes, ya esta y funciona, el cronometro es el posteado, tambien funciona pero el 80%, me falta poder guardar las entradas, salidas y calculo de horas, y el del status semanal, mensual y proyecto es el que esta el MSFlexgrid.

Referente al Format, a mi si lo escribo como tú !si! pero no se porque razon si en vez de visualizarlo directamente se lo añado a una variable y despues como verificación visualizo esta variable con el MsgBox me sale "13 abr de 1900" ¿Porque ni idea? y es legal mi VB, que no es pirata pues lo uso tambien para macros de CATIA.

¿Puedes comentarme en detalle el funcionamiento de la sentencias que posteastes para meterlas en un modulo del MSFlexgrid?.

Una consulta tonta ¿VB considera declaradas las variables que estan entre un "Private Type/ End Type" para usarlas fuera del entorno de lectura Random o hay que declararlas tambien fuera de aqui con el Dim para usarlas en otras sentencias?

Un saludo

[erbuson]

Bueno, intentaré comentarte las dudas, ya que inicialmente te comenté de crear las funciones multiuso y parece que te confundió un poco.

En primer lugar los valores intermedios en un Type están ya declarados y no es necesario volver a hacerlo, es mas, no se puede.

Yo utilizó en todos mis programas archivos random y acostumbro a crear una Rutina de control del Archivo como la Siguiente, supongamos que tengo un archivo llamado Clientes, entonces haría mas o menos:

Código vb:

Option Explicit
 
Private Type CamposClientes
  Codigo As String * 10
  Nombre As String * 40
  Domicilio As String * 40
  Poblacion As String * 40
  ' Posiciones disponibles en el Registro. Con esto consigo la longitud deseada, por ejemplo 256
  Libres As String * 126
End Type
 
Dim RegistroClientes As CamposClientes
 
Sub FicheroClientes(Opcion As String, Registro As Single)
  ' Variable de número de Fichero. Estática para guardarla en la Rutina.
  Static Numero As Integer
  ' Si Número = Cero el archivo no está abierto. Lo asignamos y Abrimos.
  If Numero = 0 Then
    Numero = FreeFile
    Open "CLIENTES.DAT" For Random As #Numero Len = 256
  End If
  
  Select Case LCase(Opcion)
    Case Is = "leer"
      ' Si pido un registro que no está en el fichero o Registro = 0 devolvemos Registro = -1
      If Registro = 0 Or Registro > LOF(Numero) / 256 Then
        Registro = -1
        Exit Sub
      End If
      Get #Numero, Registro, RegistroClientes
      
    Case Is = "grabar"
      ' Si no indico número de registro, añadirá al final. Si se le indica lo actualizará
      If Registro = 0 Then Registro = LOF(Numero) / 256 + 1
      Put #Numero, Registro, RegistroClientes
    
    Case Is = "cerrar"
      Close #Numero
      Numero = 0
      
    Case Is = "registros"
      ' Devuelve en Registro el número de Registros que contiene el fichero
      Registro = LOF(Numero) / 256
      
  End Select
  
End Sub
 

Analiza este código y veras que resulta muy simple y personalmente lo considero práctico.

Por ejemplo, necesito hacer un bucle que me lea todos los registros, puedo hacer dos cosas.

FicheroClientes "registros", Registros
For Registro = 1 to Registros
FicheroClientes "leer", Registro
' Procesar el registro leido
Next

o tambien puedo hacer
Do
Registro=Registro + 1
FicheroClientes "leer", Registro
If Registro = -1 Then Exit do
' Procesar el registro leido ya que tienes acceso a sus valores
Loop

Depende de ti, en el primer caso puedes poner una barra de progreso tal que así

FicheroClientes "registros", Registros
Barra.Min = 1
Barra.Max = Registros
For Registro = 1 to Registros
FicheroClientes "leer", Registro
Barra.Value = Registro
' Procesar el registro leido
Next


Lógicamente cuando quieras puedes hacer RegistroClientes "cerrar", 0 ' El cero es necesario porque el parámetro no se ha definido como opcional

Si se hubiera definido

Sub FicheroClientes(Opcion As String, Optional Registro As Single)

podrías cerrarlo así RegistroClientes "cerrar"




Nos vemos

[XYON126]

Hola erbunson!

Muchas gracias por esto me ayuda un monton, aunque como esperabas me provoca varias cnsultas.

1. Este codigo lo tienes en un modulo.bas o en el programa.

2. Si he entendido bien con la función "Select Case LCase(Opcion)" lo que estas haciendo son cuatro sentencias que llamas a tu antojo o necesidad como si fuesen variables ¿Es asi?¿Es lo mismo a crear varias subrutinas como (leer(), grabar(), etc.?si es asi, ¿esto seria valido para cuando tienes que crear un número elevado de subrutinas y asi poderlas agrupar para hacer mas comprensible el codigo?.

3. En esta parte de codigo :

Código vb:

Sub FicheroClientes(Opcion As String, Registro As Single)
 ' Variable de número de Fichero. Estática para guardarla en la Rutina.
  Static Numero As Integer
 ' Si Número = Cero el archivo no está abierto. Lo asignamos y Abrimos.
 If Numero = 0 Then
 Numero = FreeFile
Open "CLIENTES.DAT" For Random As #Numero Len = 256
End If
 

Veo que por un lado asignas un canal a la variable "Numero" o que use el FreeFile y despues en el Open siempre habres un canal en vez de usar el FreeFile ¿Porque, no es mejor usar siempre el FreeFile? y despues en la sentencia Open le das siempre el tamaño de 256 que es lo mismo que "CamposClientes", ¿lo haces por no llamar a "CamposClientes" en cada LEN?

4.Veo que utilizas la funcion "Sub" sola, referente a ella ypor mucho que he buscado siempre me la asocian o con un "Private Sub" o con un "Sub Main" y no sola, en tu caso como se comporta ¿Porque de Sub a solas.?

5. Y para rematar en varias sentencias If por ejemplo :

If Registro = 0 Or Registro > LOF(Numero) / 256 Then
Registro = -1

coges el valor del tamaño del registro y lo divides por 256 ¿Porque?
Se que son trucos de perro viejo por eso te lo pregunto.

Un saludo

PDTA.:

Una consulta mas .:

En este codigo :

Código C:

Private Sub GridPonerDato(Grid As MSFlexGrid, Fila As Single, Columna As Single, Dato As Variant)
  ' Si la fila no existe, la añadimos. La columna es de suponer que ya le hemos puesto cabecera
  If Grid.Rows - 1 < Fila Then Grid.Rows = Fila + 1
  Grid.TextMatrix(Fila, Columna) = Dato
End Sub
 

Si tengo tres grillas que se llaman MsFlexgrid1, MsFlexgrid2 y MsFlexgrid3

y para llamarlas con :

Código vb:

CALL GridPonerDato (Grid, 0, 0, "Dato")
 

He probado esto, con MsgBox el nomdre es bueno, pero en el CALL me da el error "el tipo de argumento de ByRef no coincide" ¿Porque?

Código vb:

Dim i As Integer, Grid As String
 
i = 1
 
For i = i To 3
 
Grid = "MsFlexgrid" & i
 
Call GridPonerDato(Grid, 0, 0, "25")
 

en cambio si al codigo no le declaro el "Grid As String"

el error que me da es "Variable no definida"

¿Como renombro la Grilla?

Saludo2

[erbuson]

Hola:

Disculpa pero estos días estoy muy liado y antes es el trabajo que la devoción, intentaré aclarar tus dudas:

1 - El código yo lo tengo en un módulo.bas ya que de este modo lo comparto desde todos los form sin ningún problema.

2 - Efectivamente, el tener las rutinas unificadas en una sóla hace mas fácil la posterior corrección de errores o ampliación de la misma ya que de este modo tienes todo concentrado en un mismo sitio, además de tratarse como ves de una rutina bastante simple.

3 - El FreeFile asigna un nuevo número cada vez, te asigna el próximo Canal disponible, por lo que no solicito un nuevo FreeFile si tengo el fichero abierto porque evidentemente no sería el mismo acceso.

4 - El tamaño de 256 en este ejemplo es poque la UDT tiene una longitud de 256, por lo tanto este número varía en funcion de la longitud de tu UDT, por costumbre procuro siempre reservar espacio disponible para posibles ampliaciones en el la UDT aunque sin pasarse.

5 - Public se utiliza para definir procedimientos o Funciones que están accesibles desde otros Módulos y Private para los que están solo disponibles en módulo que los contiene, su uso depende de tus necesidades.

7 - El motivo de dividir el tamaño del fichero es simplemente porque dividiendo el LOF del Fichero por la longitud del Registro obtienes el número de registros que tiene el Fichero.

Si pretendo leer el registro 0 o un registro que no existe devuelvo -1 para controlar el error fuera de la rutina.

8 - CALL GridPonerDato (Grid, 0, 0, "Dato") En esta sentencia lógicamente tienes que sustituir el primer parámetro Grid por MsFlexGrid1, MsFlexGrid2, o como te convenga según tu proyecto.

CALL GridPonerDato (MsFlexGrid2, 0, 0, "Dato")

Dim i As Integer, Grid As String
i = 1
For i = i To 3
Grid = "MsFlexgrid" & i
Call GridPonerDato(Grid, 0, 0, "25")

Esto no se puede hacer ya que la rutina GridPonerDato espera como primer parámetro un MsFlexGrid identificado por su nombre de objeto y tu le estas pasando una String, por esta razón te da el error.

Bueno, poco a poco lo conseguiremos.

Saludos

[XYON126]

Hola erbunson!

Primeramente, muchas gracias y esta antes tu trabajo que cualquier cosa que el horno no esta para bollos y si puedes ayudar siempre es bueno y si no puedes tambien, que lo primero es lo primero y sin ninguna duda.
Entonces como aclaración final, no hay manera posible que con una sola sentencia se puedan llamar a varios MSFlexgrid es decir que por ejemplo deberia hacer un "Selet case" y tantos case con CALL como grillas tenga para conseguir un bucle, si es lo que necesito, ¿He comprendido bien?.Y si es asi para que me sirve declarar esto :

Código vb:

Private Sub GridPonerDato(Grid As MSFlexGrid, Fila As Single, Columna As Single, Dato As Variant)
 

si despues no puedo llamar al "Grid" incluso entonces, el CALL me da error ya que el tiene declarado el Grid y no MsFlexgrid#, que al mismo tiempo esto me conlleva a otra consulta :

¿Debo entonces en el Modulo.bas declarar todos los MsFlexgrid que tenga?
¿Seria esta linea de codigo del Modulo.bas correcta?

Código vb:

Private Sub GridPonerDato(Grid1 As MSFlexGrid1, Grid2 As MSFlexGrid2, Grid3 As MSFlexGrid3, Grid4 As MSFlexGrid4, Fila As Single, Columna As Single, Dato As Variant)
 

Voy a probarlo asi y ya te comentare como me ha hido.

Muchas gracias, un saludo

[XYON126]

Hola erbunson"

He probado lo antes comentado y me da el error "No se ha definido el tipo definido por el usuario" :

Código vb:

Public Sub GridCabecera(Grid1 As MSFlexGrid1, Grid2 As MSFlexGrid2, Columna As Single, AnchoTwips As Single, Titulo As String, Ajuste As String)
 
' Si la Columna no existe, la añadimos ya que de lo contrario se produciría un error
If Grid1.Cols - 1 < Columna Then Grid1.Cols = Columna + 1
    Grid1.ColWidth(Columna) = AnchoTwips
    Select Case UCase(Ajuste)
      Case "I": Grid1.ColAlignment(Columna) = 1 ' Izquierda
      Case "D": Grid1.ColAlignment(Columna) = 7 ' Derecha
      Case "C": Grid1.ColAlignment(Columna) = 4 ' Centro
    End Select
If Grid2.Cols - 1 < Columna Then Grid2.Cols = Columna + 1
    Grid2.ColWidth(Columna) = AnchoTwips
    Select Case UCase(Ajuste)
      Case "I": Grid2.ColAlignment(Columna) = 1 ' Izquierda
      Case "D": Grid2.ColAlignment(Columna) = 7 ' Derecha
      Case "C": Grid2.ColAlignment(Columna) = 4 ' Centro
End Select
 
   Grid1.Row = 0
   Grid1.Col = Columna
   Grid1.CellAlignment = 4                     ' Título siempre Centrado
   Grid1.Text = Titulo
 
   Grid2.Row = 0
   Grid2.Col = Columna
   Grid2.CellAlignment = 4                     ' Título siempre Centrado
   Grid2.Text = Titulo
End Sub
 
Private Sub GridPonerDato(Grid1 As MSFlexGrid1, Grid2 As MSFlexGrid2, Fila As Single, Columna As Single, Dato As Variant)
' Si la fila no existe, la añadimos. La columna es de suponer que ya le hemos puesto cabecera
If Grid1.Rows - 1 < Fila Then Grid1.Rows = Fila + 1
    Grid1.TextMatrix(Fila, Columna) = Dato
If Grid2.Rows - 1 < Fila Then Grid2.Rows = Fila + 1
    Grid2.TextMatrix(Fila, Columna) = Dato
   
End Sub
 

Por lo que creo que no se declara asi que se comporta como una subrutina

¿Como identifico los MsFlexgrid en el modulo o hay que hacerlos todos?.

Por otro lado y volviendo al apartado de este codigo tuyo (solo un trozo como ref.)

Código vb:

Option Explicit
 
Private Type CamposClientes
  Codigo As String * 10
  Nombre As String * 40
  Domicilio As String * 40
  Poblacion As String * 40
  ' Posiciones disponibles en el Registro. Con esto consigo la longitud deseada, por ejemplo 256
  Libres As String * 126
End Type
 
Dim RegistroClientes As CamposClientes
e
 

Consigues la longitud deseada, en este caso 256; en mi caso donde tengo variables String, Date, Integer y ademas no siempre se llenan todos los campos, aunque conozcamos el tamaño en bytes que asigna VB a cada tipo de variable, no es siempre de longitud igual por el String con lo que tu rutina la he de adaptar para registros de tamaño aleatorio, ¿Es asi, no?

Y como ultima consulta, en el codigo :

Código vb:

FicheroClientes "registros", Registros
For Registro = 1 to Registros
FicheroClientes "leer", Registro
' Procesar el registro leido
Next
 

Segun la subrutina FicheroClientes le deberiamos especificar la Opcion y un número de registro, entonces Registros entiendo que te refieres a ese número de registro(1, 22, 33, etc) o en su defecto a la variable Registro es decir le sobra la "s" de Registros, ¿Es asi?

Un saludo

[erbuson]

O vamos por partes o no nos aclaramos, lo que quiero es que lo entiendas, y no que modifiques directamente tu programa, una vez que lo entiendas verás que es mil veces mas fácil de lo que por ahora lo complicas.

Vamos primero con el Grid

Crea un Formulario y pega en el tres controles Grid por omisión que los veas separados MsFlexGrid1, MsFlexGrid2 y MsFlexGrid3

Después copia y pega este código y ejecuta el programa.

Código:

Option Explicit

Private Sub Form_Load()
  GridCabecera MSFlexGrid1, 0, 1000, "Col 0 Grid 1", "C"
  GridCabecera MSFlexGrid1, 1, 1000, "Col 1 Grid 1", "C"
  
  GridCabecera MSFlexGrid2, 0, 1000, "Col 0 Grid 2", "C"
  GridCabecera MSFlexGrid2, 1, 1000, "Col 1 Grid 2", "C"
  
  GridCabecera MSFlexGrid3, 0, 1000, "Col 0 Grid 3", "C"
  GridCabecera MSFlexGrid3, 1, 1000, "Col 1 Grid 3", "C"
End Sub

Public Sub GridCabecera(Grid As MSFlexGrid, Columna As Single, AnchoTwips As Single, Titulo As String, Ajuste As String)
' Si la Columna no existe, la añadimos ya que de lo contrario se produciría un error
If Grid.Cols - 1 < Columna Then Grid.Cols = Columna + 1
Grid.ColWidth(Columna) = AnchoTwips
Select Case UCase(Ajuste)
  Case Is = "I": Grid.ColAlignment(Columna) = 1 ' Izquierda
  Case Is = "D": Grid.ColAlignment(Columna) = 7 ' Derecha
  Case "C": Grid.ColAlignment(Columna) = 4 ' Centro
End Select
  Grid.Row = 0
  Grid.Col = Columna
  Grid.CellAlignment = 4 ' Título siempre Centrado
  Grid.Text = Titulo
End Sub

Seguramente que así lo veas mas claro.

[XYON126]

Iniciado por erbuson

O vamos por partes o no nos aclaramos, lo que quiero es que lo entiendas, y no que modifiques directamente tu programa, una vez que lo entiendas verás que es mil veces mas fácil de lo que por ahora lo complicas.

Vamos primero con el Grid

Hola erbunson!

Estoy totalmente de acuerdo contigo que un copy/paste no me aporta nada y es justo lo que no realizo, de ahi el porque he realizado pruebas, como te indicaba en los dos ultimos post y los problemas que me surgian. Por parte del Grid veo que con el codigo que has posteado (aunque he realizado lo que comentas) nada mas ver el tramo este :

Código vb:

Option Explicit
 
Private Sub Form_Load()
  GridCabecera MSFlexGrid1, 0, 1000, "Col 0 Grid 1", "C"
  GridCabecera MSFlexGrid1, 1, 1000, "Col 1 Grid 1", "C"
  
  GridCabecera MSFlexGrid2, 0, 1000, "Col 0 Grid 2", "C"
  GridCabecera MSFlexGrid2, 1, 1000, "Col 1 Grid 2", "C"
  
  GridCabecera MSFlexGrid3, 0, 1000, "Col 0 Grid 3", "C"
  GridCabecera MSFlexGrid3, 1, 1000, "Col 1 Grid 3", "C"
End Sub
 

Lo he comprendido y me has respondido a como llamar a varios MSFlexgrid, pues si, aqui son solo 6 lineas para crear 3 Grid de 2x2, pero en cambio, si en vez de ser de 2x2 son de 10x10, en vez de ser 6 lineas serian 30 lineas minimo, a menos de que se pudiera hacer un bucle por MSFlexGrid o general y aqui es cuando surgio mi consulta de como hacerlo si es que se puede, pues las variables internas del " GridCabecera"(Rutina) no las puedo tomar como variables puras y duras ya que si las tomo automaticamente VB me responde "Variable no definida" que despues he comprendido que VB las toma no como variables sino como parametros internos obligados; resumiendo ¿Hay alguna manera de poder controlar estos parametros o variables internas? ¿Me comprendes ahora?.

PDta: Ya se que en el caso de "Titulo y Ajuste" creo una variable y en vez de poner un dato pongo esa variable y me toma el valor de la misma, pero en el caso de "Grid As MSFlexGrid" hay alguna manera o no es posible.

Me refiero a esto :

Código vb:

Option Explicit
 
Dim pepito As String
Dim pepito2 As String
 
 
Private Sub Form_Load()
 
pepito = "Manel"
pepito2 = "Jose"
 
  GridCabecera MSFlexGrid1, 0, 1000, pepito, "C"
  GridCabecera MSFlexGrid1, 1, 1000, pepito2, "C"
  
  GridCabecera MSFlexGrid2, 0, 1000, "Col 0 Grid 2", "C"
  GridCabecera MSFlexGrid2, 1, 1000, "Col 1 Grid 2", "C"
  
  GridCabecera MSFlexGrid3, 0, 1000, "Col 0 Grid 3", "C"
  GridCabecera MSFlexGrid3, 1, 1000, "Col 1 Grid 3", "C"
  
  
End Sub
 

si pudiese controlar tambien el Grid con un bucle podria rellenar las tres Grillas con solo 2 lineas de codigo:

GridCabecera MSFlexGrid1, 1, 1000, pepito2, pepito.

, es a lo que me refiero, no se si me he explicado bien.

Un saludo

[erbuson]

Hola:


Si comprendiste la idea, mira a ver si entiendes este ejemplo mejorado en el que le indicas en una sóla linea TODAS las columnas del Grid con sus formatos y títulos.

Necesitas insertar un sólo grid para probarlo.

Código:

Option Explicit

Private Sub Form_Load()
  GridCabeceras MSFlexGrid1, "Código;1000;D", "Nombre;4000;I", "NIF;1000;D", "Fecha;1000;C"
End Sub


Public Sub GridCabeceras(Grid As MSFlexGrid, ParamArray Columnas() As Variant)
' Cada columna debe enviarse con el formato Titulo;Ancho;Ajuste
' Si la Columna no existe, la añadimos ya que de lo contrario se produciría un error
Dim Valores() As String
Dim Columna As Single, ValoresColumna As Variant
For Each ValoresColumna In Columnas
  Valores = Split(ValoresColumna, ";")
  If Grid.Cols - 1 < Columna Then Grid.Cols = Columna + 1
  Grid.ColWidth(Columna) = Val(Valores(1))        ' Ancho
  Select Case UCase(Valores(2))                   ' Ajuste
    Case Is = "I": Grid.ColAlignment(Columna) = 1 ' Izquierda
    Case Is = "D": Grid.ColAlignment(Columna) = 7 ' Derecha
    Case "C": Grid.ColAlignment(Columna) = 4      ' Centro
  End Select
  Grid.Row = 0
  Grid.Col = Columna
  Grid.CellAlignment = 4 ' Siempre Centrado
  Grid.Text = Valores(0) ' Título
  ' Incrementamos el valor de Columna aquí porque la primera es la 0
  Columna = Columna + 1
Next
End Sub

Saludos

[XYON126]

Hola erbunson!

Buf!!!!!!!!! Me estas haciendo que me coma el tarro de Güikis, esta vez me lo has puesto complicadillo con algunos comandos que desconocia(For Each Next y ParamArray) pero bueno, rascando y leyendo no hay nada que se resista casi siempre.
Por lo que he entendido y he visto como funciona (corrigeme), lo que haces con esta funcion es un bucle dentro de otro bucle controlado por nosotros, desde el inicio del programa o donde toque(esto ultimo muy improbable); podemos con parametros o variables selecionados a nuestro antojo, para rellenar una MsFlexgrid cualquiera y si lo guardamos como Modulo.bas, llamando al modulo ya no nos tenemos que preocupar en este caso de configurar la Grilla, a su vez con unos pocos retoques quizas se pueda rellenar incluso, mas o menos lo que te preguntaba en el anterior post.¿Es asi?.
Pero esto me lo tengo que estudiar muy a fondo pues aunque aparentemente parece facil, no lo es. y aunque quisiera hacer un copy/paste para mi programilla, si no lo entiendes bien y a fondo lo que provocaria es que me volveria loco y me perdiese ahora que voy pillando el hilo.
Ya te contare como me va con esto, posiblemente antes de que leas este post o no.

Por cierto, ¿siempre que se genera un archivo al abrir uno inexistente se te genera un registro vacio, es decir el que tu guardas mas uno al inicio sin nada todo ceros y si eliminas este primer registro te lo vuelve a generar al volver abrir este archivo? Me refiero con aperturas de archivos aleatorios RANDOM.

Un saludote

[erbuson]

Respecto al tema de loa archivos, te comento que la apertura de un archivo en modo RANDOM hace que se mantengan todos los datos del fichero por lo tanto suponte que tienes los siguiente registros:

1_AAAAAAAAAAAAAAAAA
2_BBBBBBBBBBBBBBBBB
3_CCCCCCCCCCCCCCC
4_DDDDDDDDDDDDDDD

tu puedes obviamente añadir registros al final tal como hacía en el post original como machacar sobre uno de los existentes para sustituir sus datos. Si un registro tiene una longitud de 256 bytes independientemente de que su campos esten llenos o vacios por lo tanto un campo STRING de 15 posiciones ocupa los mismo si contiene PEPE que si contiene HERMENEGILDO

Mientras no leas un Registro la UDT que tengas definida estará vacia, el hecho de abrir el fichero simplemente significa que está abierto.

La funciones FREEFILE te devuelve el siguiente canal disponible para ser abierto por lo tanto no puedes asignarla cada vez aunque evidentemente podrías tener un fichero abierto con distintos canales siempre que definas la cláusula SHARED para compartir archivos, por ejemplo

OPEN "CLIENTES" .... As #1 Len = 256

OPEN "CLIENTES" .... As #2 Len = 256

Si tu lees el registro 10 del archivo #1 te devolverá lo mismo que si lees el 10 del Archivo #2 puesto que ambos son el mismo fichero.

Pero atención si tienes que borrar el archivo, y sólo cierras el #1 no te permitirá hacerlo porque el #2 sigue abierto y es el mismo.

No tiene mucho sentido el ejemplo de abrir 2 archivos pero es para que te hagas una idea.

Respecto al tema de BORRAR registros de un archivo RANDOM lo que suele hacer es grabar un registro con un determinado valor que tu sepas no puede formar parte del archivo o incluso es suficiente con una única posición y entonces tu en el proceso decides como actúas con el registro.

Imagínate que decides poner un campo String o Bolean (tu decides) en mitad de una UDT que significa SUPRIMIDO por ejemplo Eliminado As Boolean

Cuando tu grabes este registro lo grabas como Eliminado = True y entonces significará para ti que lo consideras suprimido, independientemente de que puedas seguir accediendo a su información.

En este caso cuando leas un registro debes comprobar si Eliminado = True porque de ser así debes omitirlo en tus procesos por ejemplo, siguiendo lo que vimos anteriormente

Do
Registro = Registro + 1
LeerRegistro Registro
' Si es fin de Registros, salimos del bucle
IF Registro = -1 Then Exit Do

If Not(Registro.Eliminado) Then
RegistrosValidos = RegistrosValidos + 1
' Efectuar tu proceso sobre el registro
Else
RegistrosSuprimidos = RegistrosSuprimidos + 1
' Recuerda que aunque lo consideras suprimido el resto sigue ahí, podrías
' reactivarlo simplemente haciendo Suprimido = False y regrabando sobre el
End If
Loop

MsgBox "Válidos " & RegistrosValidos
MsgBox "Eliminados " & RegistrosSuprimidos


Saludos

[XYON126]

Hola erbunson!

En este codigo que solo tiene un Grid ya que es para ir probando al ejecutarlo no me rellena ninguna celda ¿Donde tengo el error? ¿Porque no me rellena nada?, si pongo MsgBox de control despues de cada paso o sentencia estos si responden bien, en cambio las celdas se quedan en blanco.
Podrias ayudarme.

Código vb:

Option Explicit
 
'Variables
'##################################################
 
' Estructura para dar de alta los datos de las Horas.
 
Private Type Horas_T
 
'Variables
 
inicio1 As Date
fin1 As Date
inicio2 As Date
fin2 As Date
inicio3 As Date
fin3 As Date
tiempo As Date
dia As String * 8
fecha As Integer
semana As Integer
mes As String * 10
año As Integer
npedido As Long
Totalhoras As Integer
 
 
End Type
 
'Variables para utilizar la estructura anterior
 
Dim Horas As Horas_T
Dim HorasTemp As Horas_T
 
'Variables para el archivo de los datos de Horas_T y temporal
Dim Numero As Integer
Dim FileTemp As Integer
 
'Variables para la posición del primer y último registro
Dim RegActual As Long
Dim RegUltimo As Long
 
' Variable para la posición Temporal del registro
Dim RegActualTemp As Long
Dim semanatemp As Integer
Dim Pos As Integer, p As Integer
 
'Variables para datos temporales de la Grilla
 
Dim inicio1_C As Date
Dim fin1_C As Date
Dim inicio2_C As Date
Dim fin2_C As Date
Dim inicio3_C As Date
Dim fin3_C As Date
Dim tiempo_C As Date
Dim dia_C As String
Dim fecha_C As Integer
Dim semana_C As Integer
Dim mes_C As String
Dim año_C As Integer
Dim npedido_C As Long
Dim Totalhoras_C As Integer
 
'Variables para las celdas de la Grilla
 
Dim lunes As String
Dim martes As String
Dim miercoles As String
Dim jueves As String
Dim viernes As String
Dim sabado As String
Dim domingo As String
Dim Entrada As Integer
Dim FilaG As Single
Dim ColumnaG As Single
Dim DatoG As Variant
Dim SemanaActual As Integer
 
'Variables contador
 
Dim x As Integer, s As Integer
 
' ---------------------------------------------------------------------------
' \\ -- Descripción : Alternar color por Filas en Flexgrid
' ---------------------------------------------------------------------------
 
  Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
  Private Declare Sub InitCommonControls Lib "Comctl32" ()
 
 
' ---------------------------------------------------------------------------
' \\ -- Función para Colorear por Filas
' ---------------------------------------------------------------------------
  Private Sub pvSetColors(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
      Dim iRow            As Long
      Dim iCol            As Integer
      Dim lCurrentColor   As Long
 
      With objFlexgrid
      ' -- Desahbilitar el repintado del control para agilizar el trabajo
          .Redraw = False
          .BackColor = lColor1
          ' -- Recorrer las filas
          For iRow = 0 To .Rows - 1 Step 2
              ' -- Establecer la Fila actual del flex
              .Row = iRow
              ' -- Recorre por columna y le aplica el color a la celda indicada de la fila actual
              For iCol = 0 To .Cols - 1
                  .Col = iCol
                  .CellBackColor = lColor2
              Next
          Next
          ' -- Reestablecer la propiedad Redraw para poder refrescar el control
          .Redraw = True
      End With
End Sub
 
  Private Sub pvSetColors2(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
      Dim iRow            As Long
      Dim iCol            As Integer
      Dim lCurrentColor   As Long
 
      With objFlexgrid
      ' -- Desahbilitar el repintado del control para agilizar el trabajo
          .Redraw = False
          .BackColor = lColor1
                  .Row = 6
              ' -- Recorre por columna y le aplica el color a la celda indicada de la fila actual
              For iCol = 0 To .Cols - 1
                  .Col = iCol
                  .CellBackColor = lColor2
           Next
          ' -- Reestablecer la propiedad Redraw para poder refrescar el control
          .Redraw = True
      End With
  End Sub
 
  
' ---------------------------------------------------------------------------
' \\ -- Subrutina que Visualiza los datos en el MSFlexGrid1
' ---------------------------------------------------------------------------
Private Sub VisualizarDatos()
 
Dim ContRegDias As Integer
Dim ContDias As Integer
Dim NrDia As Integer
                 
'Calculamos el Nr. del dia de la semana.
 
Select Case dia_C
 
    Case Is = "lunes"
         NrDia = 1
    Case Is = "martes"
         NrDia = 2
    Case Is = "miercoles"
         NrDia = 3
    Case Is = "jueves"
         NrDia = 4
    Case Is = "viernes"
         NrDia = 5
    Case Is = "sabado"
         NrDia = 6
    Case Is = "domingo"
         NrDia = 7
End Select
                 
ContDias = 7
ContRegDias = ContDias - NrDia
 
For ContRegDias = 7 To ContRegDias
 
ActualizarDatoG
 
' Mostramos los datos en las celdas
Select Case dia_C
 
    Case Is = "lunes"
         MSFlexGrid1.TextMatrix(FilaG, 0) = DatoG
    Case Is = "martes"
         MSFlexGrid1.TextMatrix(FilaG, 1) = DatoG
    Case Is = "miercoles"
         MSFlexGrid1.TextMatrix(FilaG, 2) = DatoG
    Case Is = "jueves"
         MSFlexGrid1.TextMatrix(FilaG, 3) = DatoG
    Case Is = "viernes"
         MSFlexGrid1.TextMatrix(FilaG, 4) = DatoG
    Case Is = "sabado"
         MSFlexGrid1.TextMatrix(FilaG, 5) = DatoG
    Case Is = "domingo"
         MSFlexGrid1.TextMatrix(FilaG, 6) = DatoG
End Select
FilaG = FilaG + 1
Next
 
End Sub
  
  ' --------------------------------------------------------------------------
' \\ -- Subrutina para actualizar los datos  leidos de Horas.dat.
' --------------------------------------------------------------------------
Private Sub ActualizarDatoG()
FilaG = 0
 
For FilaG = 0 To 6
 
     Select Case FilaG
            Case 0
            DatoG = inicio1_C
            Case 1
            DatoG = fin1_C
            Case 2
            DatoG = inicio2_C
            Case 3
            DatoG = fin2_C
            Case 4
            DatoG = inicio3_C
            Case 5
            DatoG = fin3_C
            Case 6
            DatoG = tiempo_C
End Select
Next
End Sub
  
  ' --------------------------------------------------------------------------
' \\ -- Subrutina para abrir el archivo Horas.dat.
' --------------------------------------------------------------------------
Private Sub AbrirArchivo()
 
Numero = FreeFile
Open "Horas.dat" For Random As Numero Len = Len(Horas)
 
RegActual = 1
' Almacenamos la posición del último registro
RegUltimo = LOF(Numero) / Len(Horas)
 
If RegUltimo = 0 Then
RegUltimo = 1
End If
 
End Sub
 
' ---------------------------------------------------------------------------
' \\ -- Función para asignar los Datos de un registro del archivo Horas.dat a
' -----  las variables internas.
' ---------------------------------------------------------------------------
Private Sub CargarDatos()
 
Get #Numero, RegUltimo, Horas
 
'Asignamos contenidos de las variables con datos de Horas.dat.
With Horas
 
inicio1_C = .inicio1
fin1_C = .fin1
inicio2_C = .inicio2
fin2_C = .fin2
inicio3_C = .inicio3
fin3_C = .fin3
tiempo_C = .tiempo
dia_C = .dia
fecha_C = .fecha
semana_C = .semana
mes_C = .mes
año_C = .año
npedido_C = .npedido
Totalhoras_C = .Totalhoras
 
End With
 
End Sub
 
Private Sub Form_Load()
Call pvSetColors(MSFlexGrid1, RGB(255, 255, 203), RGB(255, 255, 255))
Call pvSetColors2(MSFlexGrid1, RGB(255, 255, 203), RGB(255, 234, 255))
 
Dim nrcol As Integer
nrcol = 0
npedido_C = 0
 
For nrcol = 0 To MSFlexGrid1.Cols - 1
      ' Asignamos la Columa
      MSFlexGrid1.Col = nrcol
       ' Ahora podemos asignarle el tamaño que queramos
      MSFlexGrid1.ColWidth(nrcol) = 960
Next
 
AbrirArchivo
CargarDatos
VisualizarDatos
 
End Sub
 

aqui en este otro codigo esta el contenido del archivo Horas.dat de prueba ..

Código .dat:

þA†ÊSæ?7ŨáoSæ?                                 @Î*ÈE?viernes   abril     Ú#z   ªËí2Tæ?±ïØl«Tæ?¹ÄÉ$Uæ?Øwl¶Uæ?e+HVæ?lÁlÁVæ? @Î*ÈE(?viernes   abril     Ú#z   '“TkWæ?K~±äWæ?µŒ=Xæ?î2TvXæ?                  è´N?viernes   abril     Ú#z   ÌâN§â?ðÍ«‰§â?ᐖñ¡§â?ðØl«”¨â?¾y5ñ¬¨â?ÿ Ce‡©â? ¸šxV42?domingo   abril     Ú#z   cÔð·)Fì?ζJ‰rFì?œWÏŠFì?:m*ÓFì?                 ÀšxV4?lunes     abril     Ú#z   y@²Î•Gì?Ház®Gì?                                  Ï*ÈEè>lunes     abril     Ú#z
 

abierto desde el Bloc de notas.

Un saludo

[erbuson]

Hola:

Asi analizando un poco por encima veo que estas utilizando la misma variable FilaG en dos sitios diferentes:

Si miras esta parte de tu código

For ContRegDias = 7 To ContRegDias
ActualizarDatoG
' Mostramos los datos en las celdas
Select Case dia_C
Case Is = "lunes": MSFlexGrid1.TextMatrix(FilaG, 0) = DatoG
Case Is = "martes": MSFlexGrid1.TextMatrix(FilaG, 1) = DatoG
Case Is = "miercoles": MSFlexGrid1.TextMatrix(FilaG, 2) = DatoG
Case Is = "jueves": MSFlexGrid1.TextMatrix(FilaG, 3) = DatoG
Case Is = "viernes": MSFlexGrid1.TextMatrix(FilaG, 4) = DatoG
Case Is = "sabado": MSFlexGrid1.TextMatrix(FilaG, 5) = DatoG
Case Is = "domingo": MSFlexGrid1.TextMatrix(FilaG, 6) = DatoG
End Select
' Aunque aquí sumas 1 a Fila G no sirve de nada porque en la anterior
' ActualizarDatos varías siempre su contenido
FilaG = FilaG + 1
Next

Creo que por ahí van los tiros ya que como comenté en alguna ocasión cada uno tiene sus porpias técnicas y es dificil introducirse en la idea de otro.

[XYON126]

Hola erbunson!

Es cierto que utilizo otra tecnica, tengo intención de usar he ir por donde tu me estas enseñado pero aunque he comprendido el concepto estoy probando a un nivel mas basico para hacerme con el VB. En mi codigo mi intencion es con la función "AbrirArchivo" realizo lo que dice, simplemente abrir el archivo "Horas.dat" posteriormente en la función "CargarDatos" leo los datos de este y se los asigno a las variables que corresponden a un solo registro y columna, pasamos a la función "VisualizarDatos" que es donde pretendo introducir los datos de las variables a las celdas del MsFlexgrid donde en el 1er case pretendo saber del registro leido detectar que dia de la semana es, una vez identificado (lunes =1, martes = 2, etc.) y dentro del bucle inicial con "ActualizarDatos" en este bucle identificar la fila y asignarle el valor que le corresponde o DatoG hasta finalizar todos los datos de una columna que es un dia, creo que me falta un For aqui, pero lo que me preocupa es que no me visualiza nada de nada, como minimo una sola celda aunque este mal y asi por lo menos saber por donde he de ir. ¿Porque en teoria deberia como minimo grabar una celda?

Erbunson en este pos http://www.forosdelweb.com/f69/funci...a-todo-798738/ pretendo borrar el 1er registro que comentaba yo antes, mi idea o es lo que pretendo para poderlo realizar es mediante un bucle y con dos archivos abiertos uno el original y a variar "Horas.dat" y otro el "Temporal.dat" es copiar del Horas.dat empezando por el 2º registro y grabarlo al Temporal.dat asi registro a registro hasta el ultimo del Horas.dat, una vez copiados todos menos el primero al Temporal.dat, cierro ambos registros y renombro el Temporal por Horas.dat con lo que en teoria el Horas.dat ahora tiene un registro menos (el 1º) . ¿Podrias indicarme donde cometo el error para que no me funciones?

Un saludo

[XYON126]

hola erbunson!


Aqui he encontrado parte del error, he cogido todo el codigo y lo he simplificado sin sentencias intermedias o rutinas para ver donde se me colapsaba y parte era debido a que al entrar los datos a la variable dia_C de .dia no he tenido en cuenta que en Horas.dat el tamaño de .dia es siempre el mismo, ya sea lunes o martes con lo que si no Trimaba el resultado lo de dia_C no era igual a lo del case es decir .:

dia_C = " lunes" y

case "lunes" ya que el primero tenia tres espacios y en el otro no, he variado esto .:

dia_C = Trim(.dia)

en vez de

dia_C = .dia

ahora se me rellena la grilla pero me falta ordenarla y que no me coja datos de una semana por otra.

Por otro lado, ahora he empezado a aplicar lo por ti comentado con funciones iniciales o modulos, he creado un modulo.bas con por ejemplo el GridponerDatos y al ejecutar el programa en la linea donde lo llamo me da el error "Procedimiento Sub o funcion no definida" ¿A que es debido eso? Lo he probado con Modulo.bas y de clase e idem de idem incluso como funcion dentro del formulario.

Aqui te pongo la parte del codigo donde lo llamo :

Código vb:

' ---------------------------------------------------------------------------
' \\ -- Subrutina que Visualiza los datos en el MSFlexGrid
' ---------------------------------------------------------------------------
Private Sub VisualizarDatos()
                
'Mostramos los datos en las celdas
Select Case dia_C
 
    Case "lunes"
         GridPonerDato MSFlexGrid, 0, 0, inicio1_C
         GridPonerDato MSFlexGrid, 1, 0, fin1_C
         GridPonerDato MSFlexGrid, 2, 0, inicio2_C
         GridPonerDato MSFlexGrid, 3, 0, fin2_C
         GridPonerDato MSFlexGrid, 4, 0, inicio3_C
         GridPonerDato MSFlexGrid, 5, 0, fin3_C
         GridPonerDato MSFlexGrid, 6, 0, tiempo_C
         
         'MSFlexGrid.TextMatrix(0, 0) = inicio1_C
         'MSFlexGrid.TextMatrix(1, 0) = fin1_C
         'MSFlexGrid.TextMatrix(2, 0) = inicio2_C
         'MSFlexGrid.TextMatrix(3, 0) = fin2_C
         'MSFlexGrid.TextMatrix(4, 0) = inicio3_C
         'MSFlexGrid.TextMatrix(5, 0) = fin3_C
         'MSFlexGrid.TextMatrix(6, 0) = tiempo_C
 
'Aqui faltan el resto de dias que son igual pero con columna diferente.
      
End Select
End Sub
 

Y la parte del codigo en el Modulo es esta:

La de cabecera es identica y esta igual aunque la he de modificar pues no tengo cabecera y tampoco la llamo en ninguna parte.

Código vb:

Private Sub GridPonerDato(Grid As MSFlexGrid, Fila As Single, Columna As Single, Dato As Variant)
 
' Si la fila no existe, la añadimos. La columna es de suponer que ya le hemos puesto cabecera
If Grid.Rows - 1 < Fila Then Grid.Rows = Fila + 1
    Grid.CellAlignment = 4
    Grid.TextMatrix(Fila, Columna) = Dato
End Sub
 

Es practicamente igual a la tuya solo le he añadido una linea para centrar los datos en la celda.

Un saludo