DigiNG edición Scripting

Método digi.SiguienteEntidad

Devuelve el siguiente Objeto Entidad constante del archivo DigiNG. Para comenzar desde el principio, usamos el Método PrimeraEntidad.

¿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.SiguienteEntidad

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 PrimeraEntidad | Objeto Entidad

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

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