DigiNG edición Scripting

Método digi.PrimeraEntidad

Devuelve un Objeto Entidad constante correspondiente a la primera entidad registrada en un archivo DigiNG. La llamada a este método hace que la siguiente llamada al Método SiguienteEntidad devuelva un objeto a la segunda entidad del archivo.

¿Qué significa que el objeto devuelto es de sólo lectura? Significa que no podemos llamar a ningún método del Objeto Entidad que modifique cualquier propiedad de éste. No podemos cambiar su código, no podemos añadirle un punto, ni cambiar su tipo...

Para realizar cualquiera de estas tareas tendremos que realizar los siguientes pasos:

• Indicarle a DigiNG que nos Clone la entidad, devolviéndonos un objeto nuevo que ya no será de sólo lectura y al que podremos modificar a nuestro antojo. Método ClonaEntidad.
• Ocultar la entidad original Método OcultaEntidad.
• Borrar del archivo DigiNG la entidad original Método BorraEntidad.
• Almacenar en el archivo DigiNG la nueva entidad clonada Método AnadeEntidad.

digi.PrimeraEntidad (bSoloDelArchivoActivo)

Argumentos

bSoloDelArchivoActivo

        Valor booleano (True ó False) que indica si queremos enumerar elementos sólo del archivo activo ó de todos los archivos de referencia.

Ejemplo

Const vbLinea = 1

Const vbPunto = 2

Const vbTexto = 4

Dim entidad

Dim lineas

Dim puntos

Dim textos

Set entidad = digi.PrimeraEntidad(True)

While Not entidad Is Nothing

    Select Case entidad.Tipo

        Case vbLinea

            lineas = lineas + 1

        Case vbPunto

            puntos = puntos + 1

        Case vbTexto

            textos = textos + 1       

    End Select

    Set entidad = digi.SiguienteEntidad

Wend

MsgBox( "El archivo actual tiene: " & vbCrLf & lineas & " líneas" & vbCrLf & puntos & " puntos" & vbCrLf & textos & " textos")

Mirar también

Método SiguienteEntidad | Objeto Entidad

Fecha de última modificación: domingo, 9 de diciembre de 2001

© 2001-2002 Dreaming With Objects. Todos los derechos reservados.