1083 lines
No EOL
55 KiB
QBasic
1083 lines
No EOL
55 KiB
QBasic
Sub Main
|
||
' Oeffnen der LOG-Datei
|
||
' Es gibt 2 Moeglichgkeiten, diesen Test zu absolvieren.
|
||
' 1) Ausgabe von Informationen in MessageBoxen
|
||
' 2) Ausgabe von Informationen in einer LOG-Datei
|
||
'
|
||
' Die Methoden OpenLOG, CloseLOG, Message, ErrorMessage und InfoMessage beruecksichtigen das automatisch!
|
||
' Zum Umschalten zwischen den beiden Zustaenden genuegt es, eine der folgenden
|
||
' zwei Programmzeilen zu aktivieren ...
|
||
|
||
'bLOGOn = cOn
|
||
bLOGOn = cOff
|
||
|
||
'bShowErrorsOnly = cOn
|
||
bShowErrorsOnly = cOff
|
||
|
||
OpenLOG ( cTestPath + "TestDocumentProperties.log" )
|
||
InfoMessage ( "Test DocumentProperties ... [start]" )
|
||
|
||
' Service besorgen
|
||
InfoMessage ( "Service besorgen ... [start]" )
|
||
aDocumentProperties = createUnoService ( "com.sun.star.document.DocumentProperties" )
|
||
|
||
' Erfolg abtesten
|
||
if ( isnull ( aDocumentProperties ) ) then
|
||
ErrorMessage ( "Service konnte nicht instanziiert werden!" )
|
||
exit sub
|
||
else
|
||
InfoMessage ( "Service erfolgreich instanziiert ..." )
|
||
InfoMessage ( "Service besorgen ... [ende]" )
|
||
end if
|
||
|
||
' Unterstuetzte Schnittstellen, Methoden und Properties anzeigen
|
||
' Achtung: Methoden und Properties koennen nicht angezeigt werden ...
|
||
' neues Uno <-> Basic !?
|
||
msgbox aDocumentProperties.dbg_supportedInterfaces
|
||
'msgbox aDocumentProperties.dbg_methods
|
||
'msgbox aDocumentProperties.dbg_properties
|
||
|
||
' Testen des Services unter normalen Bedingungen (also wie vorgesehen)
|
||
bState = Test_NormalUse ( aDocumentProperties )
|
||
' Fehlerstatus abfragen
|
||
if ( bState = cError ) then
|
||
ErrorMessage ( "Der Service arbeitet unter normalen Bedingungen nicht korrekt!" )
|
||
end if
|
||
|
||
bState = Test_ErrorUse ( aDocumentProperties )
|
||
' Fehlerstatus abfragen
|
||
if ( bState = cError ) then
|
||
ErrorMessage ( "Der Service verhaelt sich in Fehlersituationen nicht korrekt!" )
|
||
end if
|
||
|
||
' Schliessen der Error-Logdatei
|
||
InfoMessage ( "Test DocumentProperties ... [ende]" )
|
||
CloseLOG
|
||
End Sub
|
||
|
||
'*****************************************************************************************************************
|
||
' Testfunktionen
|
||
'*****************************************************************************************************************
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Testmethode: Testet den Service unter normalen Bedingungen
|
||
'
|
||
' Returnwert cOK bedeutet, dass sich das Objekt normal verhaelt ...
|
||
' Returnwert cError bedeutet, dass sich das ein Fehler aufgetreten ist ...
|
||
'----------------------------------------------------------------------------
|
||
Function Test_NormalUse ( aDocumentProperties ) as Boolean
|
||
|
||
' Zunaechst wird vom Erfolg des Test ausgegangen.
|
||
' Sollte einer der Detail-Tests fehlschlagen, dann wird dieser Wert
|
||
' zurueckgesetzt. Damit wird dann angezeigt, dass mindestens ein
|
||
' Einzeltest nicht korrekt funktionierte.
|
||
|
||
Test_NormalUse = cOK
|
||
|
||
bState = Test_NormalUse_XPropertySet ( aDocumentProperties )
|
||
if ( bState = cError ) then
|
||
Test_NormalUse = cError
|
||
end if
|
||
|
||
bState = Test_NormalUse_XNameContainer ( aDocumentProperties )
|
||
if ( bState = cError ) then
|
||
Test_NormalUse = cError
|
||
end if
|
||
|
||
bState = Test_NormalUse_XPersist ( aDocumentProperties )
|
||
if ( bState = cError ) then
|
||
Test_NormalUse = cError
|
||
end if
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Testmethode: Testet den Service unter Randbedingungen und provoziert Fehlerzustaende
|
||
'
|
||
' Returnwert cOK bedeutet, dass das Objekt damit keine Probleme hat ...
|
||
' Returnwert cError bedeutet, dass das Objekt noch nicht robust genug ist ...
|
||
'----------------------------------------------------------------------------
|
||
Function Test_ErrorUse ( aDocumentProperties ) as Boolean
|
||
|
||
Test_ErrorUse = cOK
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Testmethode: Testen des unterstuetzten Interfaces "XPropertySet" unter normalen Bedingungen
|
||
'
|
||
' Returnwert = cOK ; wenn der Test erfolgreich war
|
||
' Returnwert = cError ; wenn sich das Objekt nicht korrekt verhalten hat
|
||
'----------------------------------------------------------------------------
|
||
Function Test_NormalUse_XPropertySet ( aDocumentProperties ) as Boolean
|
||
|
||
' Einschalten der Fehlerbehandlung, um Exceptions oder aehnliches abzufangen!
|
||
on Error goto Test_NormalUse_XPropertySet_Error
|
||
|
||
InfoMessage ( "Test_NormalUse_XPropertySet ... [start]" )
|
||
|
||
' 1) Test der Funktion "getPropertySetInfo()"
|
||
' Da diese Funktion keine Parameter besitzt und zudem eine "get"-Methode
|
||
' darstellt, wird sie durch Basic automatisch als "Property" behandelt!
|
||
' Daher schreibt man nicht "getPropertySetInfo()" sondern nur "PropertySetInfo".
|
||
|
||
' Besorgen der Info
|
||
PropertySetInfo = aDocumentProperties.PropertySetInfo
|
||
' Und abtesten auf Gueltigkeit
|
||
if ( isnull (PropertySetInfo) ) then
|
||
ErrorMessage ( "getPropertySetInfo() ... Error (Keine Info bestimmbar!)" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
end if
|
||
|
||
' Hier fehlt noch der Test der InfoStruktur! (Laesst sich unter Basic irgendwie NICHT testen!!!???)
|
||
' ...
|
||
|
||
InfoMessage ( "getPropertySetInfo() ... OK" )
|
||
|
||
' 2) getPropertyValue() & setPropertyValue ()
|
||
' In diesem Service sind mehrere Properties bereits definiert und vorbelegt.
|
||
' Zum Test werden repraesentativ einige davon verwendet. Naemlich je eine
|
||
' der verschiedenen Datentypen!
|
||
' Das sind im folgenden: OWString, sal_Bool, sal_Int16, sal_uInt16, sal_Int32, DateTime, Sequence< sal_Int8 >
|
||
' Achtung! sal_uInt16 kann in Basic so nicht dargestellt werden. Daher wird ein normaler
|
||
' Integer-Wert angenommen - Bedingung ist, das hier im Test der Wertebereich nicht
|
||
' ueberschritten wird!
|
||
' Es wird versucht den Standardwert dieser zu ermitteln und zu merken;
|
||
' dann einen neuen Wert zu setzen; sowie diesen wiederum zu lesen und mit den
|
||
' vorherigen Werten zu vergleichen!
|
||
|
||
' Zunaechst werden die Standardwerte dieser Properties besorgt ...
|
||
sDefaultValue_OWString$ = aDocumentProperties.getPropertyValue ( "Author" )
|
||
bDefaultValue_sal_Bool = aDocumentProperties.getPropertyValue ( "AutoloadEnabled" )
|
||
nDefaultValue_sal_Int16% = aDocumentProperties.getPropertyValue ( "EditingCycles" )
|
||
nDefaultValue_sal_uInt16% = aDocumentProperties.getPropertyValue ( "Priority" )
|
||
nDefaultValue_sal_Int32& = aDocumentProperties.getPropertyValue ( "EditingDuration" )
|
||
aDefaultValue_DateTime = aDocumentProperties.getPropertyValue ( "ModifyDate" )
|
||
' aDefaultValue_ByteSequence = aDocumentProperties.getPropertyValue ( "ExtraData" )
|
||
aDefaultValue_ByteSequence = aDocumentProperties.ExtraData
|
||
|
||
' ... dann die Werte zur Kontrolle ausgeben.
|
||
ShowProperties ( aDocumentProperties )
|
||
|
||
InfoMessage ( "getPropertyValue() ... OK" )
|
||
|
||
' Jetzt werden neue Werte vereinbart ...
|
||
' Diese werden so gewaehlt, das sie garantiert von den Standardwerten verschieden sind!
|
||
' Dazu werden die alten auf Wert abgefragt und entsprechend die neuen gesetzt.
|
||
sNewValue_OWString$ = sDefaultValue_OWString$ + "NeuerWert"
|
||
bNewValue_sal_Bool = not bDefaultValue_sal_Bool
|
||
nNewValue_sal_Int16% = nDefaultValue_sal_Int16% + 1
|
||
if ( nDefaultValue_sal_uInt16% = 1 ) then
|
||
nNewValue_sal_uInt16% = 2
|
||
else
|
||
nNewValue_sal_uInt16% = 1
|
||
end if
|
||
nNewValue_sal_Int32& = nDefaultValue_sal_Int32& + 1
|
||
|
||
aNewValue_DateTime = aDefaultValue_DateTime
|
||
aNewValue_DateTime.HundredthSeconds = aDefaultValue_DateTime.HundredthSeconds + 1
|
||
aNewValue_DateTime.Seconds = aDefaultValue_DateTime.Seconds + 1
|
||
aNewValue_DateTime.Minutes = aDefaultValue_DateTime.Minutes + 1
|
||
aNewValue_DateTime.Hours = aDefaultValue_DateTime.Hours + 1
|
||
aNewValue_DateTime.Day = aDefaultValue_DateTime.Day + 1
|
||
aNewValue_DateTime.Month = aDefaultValue_DateTime.Month + 1
|
||
aNewValue_DateTime.Year = aDefaultValue_DateTime.Year + 1
|
||
|
||
aNewValue_ByteSequence = aDefaultValue_ByteSequence
|
||
nElementCount% = UBound ( aDefaultValue_ByteSequence )
|
||
' for nCounter%=0 to nElementCount% step 1
|
||
' aNewValue_ByteSequence(nCounter%) = ( aDefaultValue_ByteSequence(nCounter%) + 1 )
|
||
' next nCounter%
|
||
|
||
' Anschliessend muessen diese neuen Werte gesetzt werden.
|
||
aDocumentProperties.setPropertyValue ( "Author" , sNewValue_OWString$ )
|
||
aDocumentProperties.setPropertyValue ( "AutoloadEnabled", bNewValue_sal_Bool )
|
||
aDocumentProperties.setPropertyValue ( "EditingCycles" , nNewValue_sal_Int16% )
|
||
aDocumentProperties.setPropertyValue ( "Priority" , nNewValue_sal_uInt16% )
|
||
aDocumentProperties.setPropertyValue ( "EditingDuration", nNewValue_sal_Int32& )
|
||
aDocumentProperties.setPropertyValue ( "ModifyDate" , aNewValue_DateTime )
|
||
' aDocumentProperties.setPropertyValue ( "ExtraData" , aNewValue_ByteSequence )
|
||
aDocumentProperties.ExtraData = aNewValue_ByteSequence
|
||
|
||
' Dann lassen wir sie uns ausgeben, um sie mit den vorherigen vergleichen zu koennen.
|
||
' (Das geht natuerlich nur, wenn "bLOGOn=cOn" ist - also eine LOG-Datei geschrieben wird!)
|
||
ShowProperties ( aDocumentProperties )
|
||
|
||
' Nun werden die Properties wieder gelesen ...
|
||
sLastValue_OWString$ = aDocumentProperties.getPropertyValue ( "Author" )
|
||
bLastValue_sal_Bool = aDocumentProperties.getPropertyValue ( "AutoloadEnabled" )
|
||
nLastValue_sal_Int16% = aDocumentProperties.getPropertyValue ( "EditingCycles" )
|
||
nLastValue_sal_uInt16% = aDocumentProperties.getPropertyValue ( "Priority" )
|
||
nLastValue_sal_Int32& = aDocumentProperties.getPropertyValue ( "EditingDuration" )
|
||
aLastValue_DateTime = aDocumentProperties.getPropertyValue ( "ModifyDate" )
|
||
aLastValue_ByteSequence = aDocumentProperties.getPropertyValue ( "ExtraData" )
|
||
|
||
' ... und mit den vorher als zu setzend bestimmte Werte vergleichen!
|
||
' Es duerfen KEINE Unterschiede auftreten, da sonst "setPropertyValue()" nicht korrekt funktioniert hat!
|
||
|
||
if ( CompareOWString ( sNewValue_OWString$, sLastValue_OWString$ ) = cDifferent ) then
|
||
ErrorMessage ( "setPropertyValue() ... Fehler [OWString fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareBool ( bNewValue_sal_Bool, bLastValue_sal_Bool ) = cDifferent ) then
|
||
ErrorMessage ( "setPropertyValue() ... Fehler [sal_Bool fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareInt16 ( nNewValue_sal_Int16%, nLastValue_sal_Int16% ) = cDifferent ) then
|
||
ErrorMessage ( "setPropertyValue() ... Fehler [sal_Int16 fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareInt16 ( nNewValue_sal_uInt16%, nLastValue_sal_uInt16% ) = cDifferent ) then
|
||
ErrorMessage ( "setPropertyValue() ... Fehler [sal_uInt16 fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareInt32 ( nNewValue_sal_Int32&, nLastValue_sal_Int32& ) = cDifferent ) then
|
||
ErrorMessage ( "setPropertyValue() ... Fehler [sal_Int32 fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareDateTime ( aNewValue_DateTime, aLastValue_DateTime ) = cDifferent ) then
|
||
ErrorMessage ( "setPropertyValue() ... Fehler [DateTime fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareByteSequence ( aNewValue_ByteSequence, aLastValue_ByteSequence ) = cDifferent ) then
|
||
ErrorMessage ( "setPropertyValue() ... Fehler [ByteSequence fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
end if
|
||
|
||
InfoMessage ( "setPropertyValue() ... OK" )
|
||
|
||
' Nun wird noch mit den zuerst ermittelten Default-Werten verglichen!
|
||
' Hier MUESSEN Unterschiede auftreten, da sonst "get-" UND "setPropertyValue()" nicht korrekt funktioniert haben!
|
||
|
||
if ( CompareOWString ( sDefaultValue_OWString$, sLastValue_OWString$ ) = cEqual ) then
|
||
ErrorMessage ( "Zusammenspiel set & getPropertyValue() ... Fehler [OWString fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareBool ( bDefaultValue_sal_Bool, bLastValue_sal_Bool ) = cEqual ) then
|
||
ErrorMessage ( "Zusammenspiel set & getPropertyValue() ... Fehler [sal_Bool fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareInt16 ( nDefaultValue_sal_Int16%, nLastValue_sal_Int16% ) = cEqual ) then
|
||
ErrorMessage ( "Zusammenspiel set & getPropertyValue() ... Fehler [sal_Int16 fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareInt16 ( nDefaultValue_sal_uInt16%, nLastValue_sal_uInt16% ) = cEqual ) then
|
||
ErrorMessage ( "Zusammenspiel set & getPropertyValue() ... Fehler [sal_uInt16 fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareInt32 ( nDefaultValue_sal_Int32&, nLastValue_sal_Int32& ) = cEqual ) then
|
||
ErrorMessage ( "Zusammenspiel set & getPropertyValue() ... Fehler [sal_Int32 fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
elseif ( CompareDateTime ( aDefaultValue_DateTime, aLastValue_DateTime ) = cEqual ) then
|
||
ErrorMessage ( "Zusammenspiel set & getPropertyValue() ... Fehler [DateTime fehlerhaft]" )
|
||
goto Test_NormalUse_XPropertySet_Error
|
||
' elseif ( CompareByteSequence ( aDefaultValue_ByteSequence, aLastValue_ByteSequence ) = cEqual ) then
|
||
' ErrorMessage ( "Zusammenspiel set & getPropertyValue() ... Fehler [ByteSequence fehlerhaft]" )
|
||
' goto Test_NormalUse_XPropertySet_Error
|
||
end if
|
||
|
||
InfoMessage ( "Zusammenspiel set & getPropertyValue() ... OK" )
|
||
|
||
' Der Test war erfolgreich! Meldung ausgeben und zurueck zm Aufrufer.
|
||
' Ausschalten der Fehlerbehandlung
|
||
on Error goto 0
|
||
' Meldung ausgeben
|
||
InfoMessage ( "Test_NormalUse_XPropertySet ... [ende]" )
|
||
' Status setzen
|
||
Test_NormalUse_XPropertySet = cOK
|
||
' Und Funktion beenden
|
||
Exit Function
|
||
|
||
' Es ist ein unerwartete Fehler aufgetreten! (Exception ...)
|
||
' Meldung ausgeben und mit Fehler zurueckkehren.
|
||
Test_NormalUse_XPropertySet_Error:
|
||
' Ausschalten der Fehlerbehandlung
|
||
on Error goto 0
|
||
' Meldung ausgeben
|
||
ErrorMessage ( "Test_NormalUse_XPropertySet ... [Error]" )
|
||
' und Fehlerstatus setzen
|
||
Test_NormalUse_XPropertySet = cError
|
||
' Abbruch der Funktion erzwingen!
|
||
Exit Function
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Testmethode: Testen des unterstuetzten Interfaces "XNameContainer" unter normalen Bedingungen
|
||
'
|
||
' Returnwert = cOK ; wenn sich das Objekt korrekt verhalten hat
|
||
' Returnwert = cError ; wenn das Objekt noch nicht robust genug ist
|
||
'----------------------------------------------------------------------------
|
||
Function Test_NormalUse_XNameContainer ( aDocumentProperties ) as Boolean
|
||
|
||
' Einschalten der Fehlerbehandlung, um Exceptions oder aehnliches abzufangen!
|
||
on Error goto Test_NormalUse_XNameContainer_Error
|
||
|
||
InfoMessage ( "Test_NormalUse_XNameContainer ... [start]" )
|
||
|
||
' Da das Initialisieren im Konstruktor des Objektes und das Aufraeumen im Destruktor
|
||
' automatisch geschieht und diese Methode pro Programmablauf nur einmal verwendet wird,
|
||
' darf sich kein Element schon im NameContainer befinden!
|
||
' Wenn doch, ist das ein Fehler!
|
||
if ( aDocumentProperties.hasElements () = TRUE ) then
|
||
ErrorMessage ( "Der NameConatiner sollte eigentlich leer sein, enthaelt initial aber schon Elemente!?" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
end if
|
||
|
||
' Zunaechst werden mehrere Elemente in den NameContainer eingefuegt.
|
||
sItemName_1$ = "Item 1"
|
||
sItemName_2$ = "Item 2"
|
||
sItemName_3$ = "Item 3"
|
||
sItemName_4$ = "Item 4"
|
||
sItemName_5$ = "Item 5"
|
||
|
||
sFirstValue_1$ = "Value 1"
|
||
sFirstValue_2$ = "Value 2"
|
||
sFirstValue_3$ = "Value 3"
|
||
sFirstValue_4$ = "Value 4"
|
||
sFirstValue_5$ = "Value 5"
|
||
|
||
aDocumentProperties.insertByName ( sItemName_1$, sFirstValue_1$ )
|
||
aDocumentProperties.insertByName ( sItemName_2$, sFirstValue_2$ )
|
||
aDocumentProperties.insertByName ( sItemName_3$, sFirstValue_3$ )
|
||
aDocumentProperties.insertByName ( sItemName_4$, sFirstValue_4$ )
|
||
aDocumentProperties.insertByName ( sItemName_5$, sFirstValue_5$ )
|
||
|
||
' Zur Kontrolle die Werte ausgeben. (Nur wichtig, wenn geloggt wird!)
|
||
' Dabei wird die Methode "getElementNames()" gleich implizit mitgetestet!
|
||
ShowNameContainer ( aDocumentProperties )
|
||
|
||
' Aber auch die Anzahl kontrollieren.
|
||
' (Hier wird eine eigene BASIC-Hilfsfunktion verwendet! keine Interface-Methode)
|
||
if ( getNameContainerCount ( aDocumentProperties ) <> 5 ) then
|
||
ErrorMessage ( "insertByName() ... Fehler (Der NameConatiner enthaelt nicht die eingefuegten 5 Elemente!)" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
end if
|
||
|
||
' Nun noch feststellen, ob die 5 denn auch tatsaechlich vorhanden sind.
|
||
if ( aDocumentProperties.hasByName ( sItemName_1$ ) = FALSE ) then
|
||
ErrorMessage ( "hasByName() ... Fehler [Element 1 nicht vorhanden!?]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( aDocumentProperties.hasByName ( sItemName_2$ ) = FALSE ) then
|
||
ErrorMessage ( "hasByName() ... Fehler [Element 2 nicht vorhanden!?]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( aDocumentProperties.hasByName ( sItemName_3$ ) = FALSE ) then
|
||
ErrorMessage ( "hasByName() ... Fehler [Element 3 nicht vorhanden!?]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( aDocumentProperties.hasByName ( sItemName_4$ ) = FALSE ) then
|
||
ErrorMessage ( "hasByName() ... Fehler [Element 4 nicht vorhanden!?]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( aDocumentProperties.hasByName ( sItemName_5$ ) = FALSE ) then
|
||
ErrorMessage ( "hasByName() ... Fehler [Element 5 nicht vorhanden!?]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
end if
|
||
|
||
' Dann die Werte wieder auslesen.
|
||
sCompareValue_1$ = aDocumentProperties.getByName ( sItemName_1$ )
|
||
sCompareValue_2$ = aDocumentProperties.getByName ( sItemName_2$ )
|
||
sCompareValue_3$ = aDocumentProperties.getByName ( sItemName_3$ )
|
||
sCompareValue_4$ = aDocumentProperties.getByName ( sItemName_4$ )
|
||
sCompareValue_5$ = aDocumentProperties.getByName ( sItemName_5$ )
|
||
|
||
' Zum Vergleich die Werte ausgeben. (Nur wichtig, wenn geloggt wird!)
|
||
ShowNameContainer ( aDocumentProperties )
|
||
|
||
' Dann die Werte automatisch vergleichen!
|
||
if ( CompareOWString ( sFirstValue_1$, sCompareValue_1$ ) = cDifferent ) then
|
||
ErrorMessage ( "getByName() ... Fehler [Element 1 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( CompareOWString ( sFirstValue_2$, sCompareValue_2$ ) = cDifferent ) then
|
||
ErrorMessage ( "getByName() ... Fehler [Element 2 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( CompareOWString ( sFirstValue_3$, sCompareValue_3$ ) = cDifferent ) then
|
||
ErrorMessage ( "getByName() ... Fehler [Element 3 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( CompareOWString ( sFirstValue_4$, sCompareValue_4$ ) = cDifferent ) then
|
||
ErrorMessage ( "getByName() ... Fehler [Element 4 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( CompareOWString ( sFirstValue_5$, sCompareValue_5$ ) = cDifferent ) then
|
||
ErrorMessage ( "getByName() ... Fehler [Element 5 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
end if
|
||
|
||
InfoMessage ( "getByName() ... OK" )
|
||
|
||
' Jetzt wird versucht einige der Elemente in ihrem Wert zu veraendern.
|
||
sNewValue_1$ = "NewValue 1"
|
||
sNewValue_2$ = "NewValue 2"
|
||
sNewValue_3$ = "NewValue 3"
|
||
sNewValue_4$ = "NewValue 4"
|
||
sNewValue_5$ = "NewValue 5"
|
||
|
||
aDocumentProperties.replaceByName ( sItemName_1$, sNewValue_1$ )
|
||
aDocumentProperties.replaceByName ( sItemName_2$, sNewValue_2$ )
|
||
aDocumentProperties.replaceByName ( sItemName_3$, sNewValue_3$ )
|
||
aDocumentProperties.replaceByName ( sItemName_4$, sNewValue_4$ )
|
||
aDocumentProperties.replaceByName ( sItemName_5$, sNewValue_5$ )
|
||
|
||
' Zur Kontrolle die Werte ausgeben. (Nur wichtig, wenn geloggt wird!)
|
||
ShowNameContainer ( aDocumentProperties )
|
||
|
||
' Dann die Werte wieder auslesen.
|
||
sCompareValue_1$ = aDocumentProperties.getByName ( sItemName_1$ )
|
||
sCompareValue_2$ = aDocumentProperties.getByName ( sItemName_2$ )
|
||
sCompareValue_3$ = aDocumentProperties.getByName ( sItemName_3$ )
|
||
sCompareValue_4$ = aDocumentProperties.getByName ( sItemName_4$ )
|
||
sCompareValue_5$ = aDocumentProperties.getByName ( sItemName_5$ )
|
||
|
||
' Zum Vergleich die Werte ausgeben. (Nur wichtig, wenn geloggt wird!)
|
||
ShowNameContainer ( aDocumentProperties )
|
||
|
||
' Dann die Werte automatisch vergleichen!
|
||
if ( CompareOWString ( sNewValue_1$, sCompareValue_1$ ) = cDifferent ) then
|
||
ErrorMessage ( "replaceByName() ... Fehler [Element 1 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( CompareOWString ( sNewValue_2$, sCompareValue_2$ ) = cDifferent ) then
|
||
ErrorMessage ( "replaceByName() ... Fehler [Element 2 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( CompareOWString ( sNewValue_3$, sCompareValue_3$ ) = cDifferent ) then
|
||
ErrorMessage ( "replaceByName() ... Fehler [Element 3 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( CompareOWString ( sNewValue_4$, sCompareValue_4$ ) = cDifferent ) then
|
||
ErrorMessage ( "replaceByName() ... Fehler [Element 4 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( CompareOWString ( sNewValue_5$, sCompareValue_5$ ) = cDifferent ) then
|
||
ErrorMessage ( "replaceByName() ... Fehler [Element 5 fehlerhaft]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
end if
|
||
|
||
InfoMessage ( "replaceByName() ... OK" )
|
||
|
||
' Hier sollen einige der 5 Eintraege geloescht werden.
|
||
aDocumentProperties.removeByName ( sItemName_1$ )
|
||
aDocumentProperties.removeByName ( sItemName_3$ )
|
||
|
||
' Dann wieder die Anzahl kontrollieren.
|
||
' (Hier wird eine eigene BASIC-Hilfsfunktion verwendet! keine Interface-Methode)
|
||
if ( getNameContainerCount ( aDocumentProperties ) <> 3 ) then
|
||
ErrorMessage ( "removeByName() ... Fehler (Der NameConatiner enthaelt nicht die erwarteten 3 Elemente!)" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
end if
|
||
|
||
' Nun noch feststellen, ob die restlichen 3 denn auch tatsaechlich die richtigen sind.
|
||
if ( aDocumentProperties.hasByName ( sItemName_2$ ) = FALSE ) then
|
||
ErrorMessage ( "removeByName() ... Fehler [Element 2 nicht vorhanden!?]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( aDocumentProperties.hasByName ( sItemName_4$ ) = FALSE ) then
|
||
ErrorMessage ( "removeByName() ... Fehler [Element 4 nicht vorhanden!?]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
elseif ( aDocumentProperties.hasByName ( sItemName_5$ ) = FALSE ) then
|
||
ErrorMessage ( "removeByName() ... Fehler [Element 5 nicht vorhanden!?]" )
|
||
goto Test_NormalUse_XNameContainer_Error
|
||
end if
|
||
|
||
' Zur Kontrolle die Werte nochmals ausgeben. (Nur wichtig, wenn geloggt wird!)
|
||
ShowNameContainer ( aDocumentProperties )
|
||
|
||
InfoMessage ( "removeByName() ... OK" )
|
||
|
||
' Der Test war erfolgreich! Meldung ausgeben und zurueck zm Aufrufer.
|
||
' Ausschalten der Fehlerbehandlung
|
||
on Error goto 0
|
||
' Meldung ausgeben
|
||
InfoMessage ( "Test_NormalUse_XNameContainer ... [ende]" )
|
||
' Status setzen
|
||
Test_NormalUse_XNameContainer = cOK
|
||
' Und Funktion beenden
|
||
Exit Function
|
||
|
||
' Es ist ein unerwartete Fehler aufgetreten! (Exception ...)
|
||
' Meldung ausgeben und mit Fehler zurueckkehren.
|
||
Test_NormalUse_XNameContainer_Error:
|
||
' Ausschalten der Fehlerbehandlung
|
||
on Error goto 0
|
||
' Meldung ausgeben
|
||
ErrorMessage ( "Test_NormalUse_XNameContainer ... [Error]" )
|
||
' und Fehlerstatus setzen
|
||
Test_NormalUse_XNameContainer = cError
|
||
' Abbruch der Funktion erzwingen!
|
||
Exit Function
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Testmethode: Testen des unterstuetzten Interfaces "XPersist" unter normalen Bedingungen
|
||
'
|
||
' Returnwert = cOK ; wenn der Test erfolgreich war
|
||
' Returnwert = cError ; wenn sich das Objekt nicht korrekt verhalten hat
|
||
'----------------------------------------------------------------------------
|
||
Function Test_NormalUse_XPersist ( aDocumentProperties ) as Boolean
|
||
|
||
' Einschalten der Fehlerbehandlung, um Exceptions oder aehnliches abzufangen!
|
||
on Error goto Test_NormalUse_XPersist_Error
|
||
|
||
InfoMessage ( "Test_NormalUse_XPersist ... [start]" )
|
||
|
||
' Laden der Properties aus einer Datei
|
||
aDocumentProperties.read ( cTestPath + "TestDebug_in.sdw" )
|
||
|
||
' Zur Kontrolle anzeigen
|
||
ShowProperties ( aDocumentProperties )
|
||
|
||
' Speichern der Properties in einer neuen Datei
|
||
aDocumentProperties.write ( cTestPath + "TestDebug_Out.sdw" )
|
||
aDocumentProperties.read ( cTestPath + "TestDebug_Out.sdw" )
|
||
|
||
' Zur Kontrolle anzeigen
|
||
ShowProperties ( aDocumentProperties )
|
||
|
||
' Der Test war erfolgreich! Meldung ausgeben und zurueck zm Aufrufer.
|
||
' Ausschalten der Fehlerbehandlung
|
||
on Error goto 0
|
||
' Meldung ausgeben
|
||
InfoMessage ( "Test_NormalUse_XPersist ... [ende]" )
|
||
' Status setzen
|
||
Test_NormalUse_XPersist = cOK
|
||
' Und Funktion beenden
|
||
Exit Function
|
||
|
||
' Es ist ein unerwartete Fehler aufgetreten! (Exception ...)
|
||
' Meldung ausgeben und mit Fehler zurueckkehren.
|
||
Test_NormalUse_XPersist_Error:
|
||
' Ausschalten der Fehlerbehandlung
|
||
on Error goto 0
|
||
' Meldung ausgeben
|
||
ErrorMessage ( "Test_NormalUse_XPersist ... [Error]" )
|
||
' und Fehlerstatus setzen
|
||
Test_NormalUse_XPersist = cError
|
||
' Abbruch der Funktion erzwingen!
|
||
Exit Function
|
||
|
||
End Function
|
||
|
||
'*****************************************************************************************************************
|
||
' Hilfsfunktionen und -methoden
|
||
'*****************************************************************************************************************
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsmethode: Oeffnet die LOG-Datei.
|
||
'----------------------------------------------------------------------------
|
||
Sub OpenLOG ( sFileName$ )
|
||
if ( bLOGOn = cOn ) then
|
||
sLOGFileName$ = sFileName$
|
||
nLOGFileHandle% = FreeFile
|
||
open sLOGFileName$ for output as nLOGFileHandle%
|
||
end if
|
||
End Sub
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsmethode: Schliesst die LOG-Datei.
|
||
'----------------------------------------------------------------------------
|
||
Sub CloseLOG
|
||
if ( bLOGOn = cOn ) then
|
||
close #nLOGFileHandle%
|
||
end if
|
||
End Sub
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsmethode: Gibt einen Text in einer LOG-Datei aus.
|
||
'----------------------------------------------------------------------------
|
||
Sub WriteLOG ( sMessage$ )
|
||
if ( bLOGOn = cOn ) then
|
||
Write #nLOGFileHandle% sMessage$
|
||
end if
|
||
End Sub
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsmethode: Gibt eine MessageBox mit Fehlertext, Zeilennummer und Warnschild aus.
|
||
'----------------------------------------------------------------------------
|
||
Sub ErrorMessage ( sMessage$ )
|
||
' Entweder in die LOG-Datei schreiben oder eine MessageBox anzeigen.
|
||
if ( bLOGOn = cOn ) then
|
||
WriteLOG ( sMessage$ )
|
||
else
|
||
MsgBox ( sMessage$, 16 )
|
||
end if
|
||
End Sub
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsmethode: Gibt eine Hinweisbox aus.
|
||
'----------------------------------------------------------------------------
|
||
Sub InfoMessage ( sMessage$ )
|
||
' Nur was anzeigen, wenn Nutzer es wuenscht!
|
||
if ( bShowErrorsOnly = cOff ) then
|
||
' Ansonsten wird entweder in die LOG-Datei geschrieben oder eine MessageBox angezeigt.
|
||
if ( bLOGOn = cOn ) then
|
||
WriteLOG ( sMessage$ )
|
||
else
|
||
MsgBox ( sMessage$, 64 )
|
||
end if
|
||
end if
|
||
End Sub
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Vergleicht zwei OWString-Werte
|
||
'
|
||
' Returnwert = cEqual ; wenn Werte identisch sind
|
||
' Returnwert = cDifferent ; wenn Werte verschieden sind
|
||
'----------------------------------------------------------------------------
|
||
Function CompareOWString ( sOWString_1$, sOWString_2$ ) as Boolean
|
||
|
||
if ( sOWString_1$ = sOWString_2$ ) then
|
||
CompareOWString = cEqual
|
||
else
|
||
CompareOWString = cDifferent
|
||
end if
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Vergleicht zwei DateTime-Strukturen
|
||
'
|
||
' Returnwert = cEqual ; wenn Werte identisch sind
|
||
' Returnwert = cDifferent ; wenn Werte verschieden sind
|
||
'----------------------------------------------------------------------------
|
||
Function CompareDateTime ( aDateTime_1, aDateTime_2 ) as Boolean
|
||
|
||
if ( aDateTime_1.Day = aDateTime_2.Day and aDateTime_1.Month = aDateTime_2.Month and aDateTime_1.Year = aDateTime_2.Year and aDateTime_1.Hours = aDateTime_1.Hours and aDateTime_1.Minutes = aDateTime_1.Minutes and aDateTime_1.Seconds = aDateTime_1.Seconds and aDateTime_1.HundredthSeconds = aDateTime_1.HundredthSeconds ) then
|
||
CompareDateTime = cEqual
|
||
else
|
||
CompareDateTime = cDifferent
|
||
end if
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Vergleicht zwei ByteSequence's
|
||
'
|
||
' Returnwert = cEqual ; wenn Werte identisch sind
|
||
' Returnwert = cDifferent ; wenn Werte verschieden sind
|
||
'----------------------------------------------------------------------------
|
||
Function CompareByteSequence ( seqByteSequence_1, seqByteSequence_2 ) as Boolean
|
||
|
||
' Wenn beide leer sind, sind sie auch identisch !
|
||
' Dieser Test mit "IsArray" ist noetig, da bei einem leeren Array die
|
||
' Funktion "UBound" einen Fehler produziert!
|
||
if ( IsArray ( seqByteSequence_1 ) = FALSE and IsArray ( seqByteSequence_2 ) = FALSE ) then
|
||
CompareByteSequence = cEqual
|
||
Exit Function
|
||
end if
|
||
|
||
' Wenn jedoch nur eine leer ist, dann sind sie nicht identisch.
|
||
if ( IsArray ( seqByteSequence_1 ) = FALSE ) or ( IsArray ( seqByteSequence_2 ) = FALSE ) then
|
||
CompareByteSequence = cDifferent
|
||
Exit Function
|
||
end if
|
||
|
||
' Besorgen der Anzahl der Elemente der Sequences
|
||
nElementCount_1% = UBound ( seqByteSequence_1 )
|
||
nElementCount_2% = UBound ( seqByteSequence_2 )
|
||
|
||
' Wenn diese Anzahl schon verschieden ist, dann ...
|
||
if ( nElementCount_1% <> nElementCount_2% ) then
|
||
' ... sind die Sequences wohl verschieden.
|
||
CompareByteSequence = cDifferent
|
||
' Die Element brauchen dann nicht mehr verglichen zu werden.
|
||
Exit Function
|
||
end if
|
||
|
||
' Ansonsten werden die Elemente einzeln miteinander verglichen.
|
||
for nCounter%=0 to nElementCount_1% step 1
|
||
' Wenn auch nur ein paar davon verschieden ist, dann ...
|
||
if ( nElementCount_1%(nCounter%) <> nElementCount_2%(nCounter%) ) then
|
||
' ... kann der Vergleich abgebrochen werden!
|
||
CompareByteSequence = cDifferent
|
||
Exit Function
|
||
end if
|
||
next nCounter%
|
||
|
||
' Wenn man bis hier gekommen ist, dann sind die Sequences identisch.
|
||
CompareByteSequence = cEqual
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Vergleicht zwei Int16-Werte
|
||
'
|
||
' Returnwert = cEqual ; wenn Werte identisch sind
|
||
' Returnwert = cDifferent ; wenn Werte verschieden sind
|
||
'----------------------------------------------------------------------------
|
||
Function CompareInt16 ( nInt16_1%, nInt16_2% ) as Boolean
|
||
|
||
if ( nInt16_1% = nInt16_2% ) then
|
||
CompareInt16 = cEqual
|
||
else
|
||
CompareInt16 = cDifferent
|
||
end if
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Vergleicht zwei Int32-Werte
|
||
'
|
||
' Returnwert = cEqual ; wenn Werte identisch sind
|
||
' Returnwert = cDifferent ; wenn Werte verschieden sind
|
||
'----------------------------------------------------------------------------
|
||
Function CompareInt32 ( nInt32_1&, nInt32_2& ) as Boolean
|
||
|
||
if ( nInt32_1& = nInt32_2& ) then
|
||
CompareInt32 = cEqual
|
||
else
|
||
CompareInt32 = cDifferent
|
||
end if
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Vergleicht zwei Bool-Werte
|
||
'
|
||
' Returnwert = cEqual ; wenn Werte identisch sind
|
||
' Returnwert = cDifferent ; wenn Werte verschieden sind
|
||
'----------------------------------------------------------------------------
|
||
Function CompareBool ( bBool_1, bBool_2 ) as Boolean
|
||
|
||
if ( bBool_1 = bBool_2 ) then
|
||
CompareBool = cEqual
|
||
else
|
||
CompareBool = cDifferent
|
||
end if
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Vergleicht die Properties zweier Objekte um Unterschiede festzustellen.
|
||
'
|
||
' Returnwert = cEqual ; wenn Objekte von den Properties her identisch sind
|
||
' Returnwert = cDifferent ; wenn Objekte von den Properties her verschieden sind
|
||
'----------------------------------------------------------------------------
|
||
Function CompareDocumentProperties ( aDocumentProperties_1, aDocumentProperties_2 ) as Boolean
|
||
|
||
' Besorgen der Werte und zwischenspeichern (bezogen auf Objekt 1)
|
||
sAuthor_1$ = aDocumentProperties_1.getPropertyValue ( "Author" )
|
||
bAutoloadEnabled_1 = aDocumentProperties_1.getPropertyValue ( "AutoloadEnabled" )
|
||
nAutoloadSecs_1% = aDocumentProperties_1.getPropertyValue ( "AutoloadSecs" )
|
||
sAutoLoadURL_1$ = aDocumentProperties_1.getPropertyValue ( "AutoloadURL" )
|
||
sBliendCopiesTo_1$ = aDocumentProperties_1.getPropertyValue ( "BlindCopiesTo" )
|
||
sCopiesTo_1$ = aDocumentProperties_1.getPropertyValue ( "CopiesTo" )
|
||
aCreationDate_1 = aDocumentProperties_1.getPropertyValue ( "CreationDate" )
|
||
sDefaultTarget_1$ = aDocumentProperties_1.getPropertyValue ( "DefaultTarget" )
|
||
sDescription_1$ = aDocumentProperties_1.getPropertyValue ( "Description" )
|
||
nEditingCycles_1% = aDocumentProperties_1.getPropertyValue ( "EditingCycles" )
|
||
nEditingDuration_1& = aDocumentProperties_1.getPropertyValue ( "EditingDuration" )
|
||
seqExtraData_1 = aDocumentProperties_1.getPropertyValue ( "ExtraData" )
|
||
sInReplyTo_1$ = aDocumentProperties_1.getPropertyValue ( "InReplyTo" )
|
||
bIsEncrypted_1 = aDocumentProperties_1.getPropertyValue ( "IsEncrypted" )
|
||
sKeywords_1$ = aDocumentProperties_1.getPropertyValue ( "Keywords" )
|
||
sMIMEType_1$ = aDocumentProperties_1.getPropertyValue ( "MIMEType" )
|
||
sModifiedBy_1$ = aDocumentProperties_1.getPropertyValue ( "ModifiedBy" )
|
||
aModifyDate_1 = aDocumentProperties_1.getPropertyValue ( "ModifyDate" )
|
||
sNewsgroups_1$ = aDocumentProperties_1.getPropertyValue ( "Newsgroups" )
|
||
sOriginal_1$ = aDocumentProperties_1.getPropertyValue ( "Original" )
|
||
bPortableGraphics_1 = aDocumentProperties_1.getPropertyValue ( "PortableGraphics" )
|
||
aPrintDate_1 = aDocumentProperties_1.getPropertyValue ( "PrintDate" )
|
||
sPrintedBy_1$ = aDocumentProperties_1.getPropertyValue ( "PrintedBy" )
|
||
nPriority_1% = aDocumentProperties_1.getPropertyValue ( "Priority" )
|
||
bQueryTemplate_1 = aDocumentProperties_1.getPropertyValue ( "QueryTemplate" )
|
||
sRecipient_1$ = aDocumentProperties_1.getPropertyValue ( "Recipient" )
|
||
sReferences_1$ = aDocumentProperties_1.getPropertyValue ( "References" )
|
||
sReplyTo_1$ = aDocumentProperties_1.getPropertyValue ( "ReplyTo" )
|
||
bSaveGraphicsCompressed_1 = aDocumentProperties_1.getPropertyValue ( "SaveGraphicsCompressed" )
|
||
bSaveOriginalGraphics_1 = aDocumentProperties_1.getPropertyValue ( "SaveOriginalGraphics" )
|
||
bSaveVersionOnClose_1 = aDocumentProperties_1.getPropertyValue ( "SaveVersionOnClose" )
|
||
sTemplate_1$ = aDocumentProperties_1.getPropertyValue ( "Template" )
|
||
bTemplateConfig_1 = aDocumentProperties_1.getPropertyValue ( "TemplateConfig" )
|
||
aTemplateDate_1 = aDocumentProperties_1.getPropertyValue ( "TemplateDate" )
|
||
sTemplateFileName_1$ = aDocumentProperties_1.getPropertyValue ( "TemplateFileName" )
|
||
sTheme_1$ = aDocumentProperties_1.getPropertyValue ( "Theme" )
|
||
sTitle_1$ = aDocumentProperties_1.getPropertyValue ( "Title" )
|
||
bUserData_1 = aDocumentProperties_1.getPropertyValue ( "UserData" )
|
||
|
||
' Besorgen der Werte und zwischenspeichern (bezogen auf Objekt 2)
|
||
sAuthor_2$ = aDocumentProperties_2.getPropertyValue ( "Author" )
|
||
bAutoloadEnabled_2 = aDocumentProperties_2.getPropertyValue ( "AutoloadEnabled" )
|
||
nAutoloadSecs_2% = aDocumentProperties_2.getPropertyValue ( "AutoloadSecs" )
|
||
sAutoLoadURL_2$ = aDocumentProperties_2.getPropertyValue ( "AutoloadURL" )
|
||
sBliendCopiesTo_2$ = aDocumentProperties_2.getPropertyValue ( "BlindCopiesTo" )
|
||
sCopiesTo_2$ = aDocumentProperties_2.getPropertyValue ( "CopiesTo" )
|
||
aCreationDate_2 = aDocumentProperties_2.getPropertyValue ( "CreationDate" )
|
||
sDefaultTarget_2$ = aDocumentProperties_2.getPropertyValue ( "DefaultTarget" )
|
||
sDescription_2$ = aDocumentProperties_2.getPropertyValue ( "Description" )
|
||
nEditingCycles_2% = aDocumentProperties_2.getPropertyValue ( "EditingCycles" )
|
||
nEditingDuration_2& = aDocumentProperties_2.getPropertyValue ( "EditingDuration" )
|
||
seqExtraData_2 = aDocumentProperties_2.getPropertyValue ( "ExtraData" )
|
||
sInReplyTo_2$ = aDocumentProperties_2.getPropertyValue ( "InReplyTo" )
|
||
bIsEncrypted_2 = aDocumentProperties_2.getPropertyValue ( "IsEncrypted" )
|
||
sKeywords_2$ = aDocumentProperties_2.getPropertyValue ( "Keywords" )
|
||
sMIMEType_2$ = aDocumentProperties_2.getPropertyValue ( "MIMEType" )
|
||
sModifiedBy_2$ = aDocumentProperties_2.getPropertyValue ( "ModifiedBy" )
|
||
aModifyDate_2 = aDocumentProperties_2.getPropertyValue ( "ModifyDate" )
|
||
sNewsgroups_2$ = aDocumentProperties_2.getPropertyValue ( "Newsgroups" )
|
||
sOriginal_2$ = aDocumentProperties_2.getPropertyValue ( "Original" )
|
||
bPortableGraphics_2 = aDocumentProperties_2.getPropertyValue ( "PortableGraphics" )
|
||
aPrintDate_2 = aDocumentProperties_2.getPropertyValue ( "PrintDate" )
|
||
sPrintedBy_2$ = aDocumentProperties_2.getPropertyValue ( "PrintedBy" )
|
||
nPriority_2% = aDocumentProperties_2.getPropertyValue ( "Priority" )
|
||
bQueryTemplate_2 = aDocumentProperties_2.getPropertyValue ( "QueryTemplate" )
|
||
sRecipient_2$ = aDocumentProperties_2.getPropertyValue ( "Recipient" )
|
||
sReferences_2$ = aDocumentProperties_2.getPropertyValue ( "References" )
|
||
sReplyTo_2$ = aDocumentProperties_2.getPropertyValue ( "ReplyTo" )
|
||
bSaveGraphicsCompressed_2 = aDocumentProperties_2.getPropertyValue ( "SaveGraphicsCompressed" )
|
||
bSaveOriginalGraphics_2 = aDocumentProperties_2.getPropertyValue ( "SaveOriginalGraphics" )
|
||
bSaveVersionOnClose_2 = aDocumentProperties_2.getPropertyValue ( "SaveVersionOnClose" )
|
||
sTemplate_2$ = aDocumentProperties_2.getPropertyValue ( "Template" )
|
||
bTemplateConfig_2 = aDocumentProperties_2.getPropertyValue ( "TemplateConfig" )
|
||
aTemplateDate_2 = aDocumentProperties_2.getPropertyValue ( "TemplateDate" )
|
||
sTemplateFileName_2$ = aDocumentProperties_2.getPropertyValue ( "TemplateFileName" )
|
||
sTheme_2$ = aDocumentProperties_2.getPropertyValue ( "Theme" )
|
||
sTitle_2$ = aDocumentProperties_2.getPropertyValue ( "Title" )
|
||
bUserData_2 = aDocumentProperties_2.getPropertyValue ( "UserData" )
|
||
|
||
' Als erwarteten Zielwert schon mal "Properties identisch" annehmen!!!
|
||
' F<>r den Fall, das nur eine diesen Anspruch nicht erf<72>llt, wird der Wert einfach zur<75>ckgesetzt.
|
||
' Von da bleibt der neue Wert bestehen und zeigt an, da<64> sich mindestens eine Property ge<67>ndert hat!
|
||
CompareDocumentProperties = cEqual
|
||
|
||
' Dann die Werte vergleichen
|
||
if ( CompareOWString ( sAuthor_1$, sAuthor_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareBool ( bAutoloadEnabled_1, bAutoloadEnabled_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareInt16 ( nAutoloadSecs_1%, nAutoloadSecs_2% ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sAutoLoadURL_1$, sAutoLoadURL_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sBliendCopiesTo_1$, sBliendCopiesTo_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sCopiesTo_1$, sCopiesTo_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareDateTime ( aCreationDate_1, aCreationDate_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sDefaultTarget_1$, sDefaultTarget_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sDescription_1$, sDescription_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareInt16 ( nEditingCycles_1%, nEditingCycles_2% ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareInt32 ( nEditingDuration_1&, nEditingDuration_2& ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareByteSequence( seqExtraData_1, seqExtraData_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sInReplyTo_1$, sInReplyTo_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareBool ( bIsEncrypted_1, bIsEncrypted_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sKeywords_1$, sKeywords_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sMIMEType_1$, sMIMEType_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sModifiedBy_1$, sModifiedBy_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareDateTime ( aModifyDate_1, aModifyDate_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sNewsgroups_1$, sNewsgroups_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sOriginal_1$, sOriginal_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareBool ( bPortableGraphics_1, bPortableGraphics_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareDateTime ( aPrintDate_1, aPrintDate_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sPrintedBy_1$, sPrintedBy_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareInt16 ( nPriority_1%, nPriority_2% ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareBool ( bQueryTemplate_1, bQueryTemplate_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sRecipient_1$, sRecipient_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sReferences_1$, sReferences_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sReplyTo_1$, sReplyTo_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareBool ( bSaveGraphicsCompressed_1, bSaveGraphicsCompressed_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareBool ( bSaveOriginalGraphics_1, bSaveOriginalGraphics_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareBool ( bSaveVersionOnClose_1, bSaveVersionOnClose_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sTemplate_1$, sTemplate_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareBool ( bTemplateConfig_1, bTemplateConfig_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareDateTime ( aTemplateDate_1, aTemplateDate_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sTemplateFileName_1$, sTemplateFileName_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sTheme_1$, sTheme_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareOWString ( sTitle_1$, sTitle_2$ ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
elseif ( CompareBool ( bUserData_1, bUserData_2 ) = cDifferent ) then
|
||
CompareDocumentProperties = cDifferent
|
||
end if
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Wandelt eine Struktur des Types DateTime in einen formatierten String um
|
||
'----------------------------------------------------------------------------
|
||
Function DateTime2String ( aDateTime ) as String
|
||
|
||
stempString$ = ""
|
||
stempString$ = stempString$ + aDateTime.Day + "."
|
||
stempString$ = stempString$ + aDateTime.Month + "."
|
||
stempString$ = stempString$ + aDateTime.Year + " - "
|
||
stempString$ = stempString$ + aDateTime.Hours + ":"
|
||
stempString$ = stempString$ + aDateTime.Minutes + ":"
|
||
stempString$ = stempString$ + aDateTime.Seconds + ":"
|
||
stempString$ = stempString$ + aDateTime.HundredthSeconds + " Uhr"
|
||
|
||
DateTime2String = stempString$
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Wandelt eine Sequence von Bytes in einen formatierten String um
|
||
'----------------------------------------------------------------------------
|
||
Function ByteSequence2String ( seqByteSequence ) as String
|
||
|
||
nElementCount% = UBound ( seqByteSequence() )
|
||
|
||
if ( nElementCount% < 1 ) then
|
||
stempString$ = "leer"
|
||
else
|
||
stempString$ = "{"
|
||
for nCounter%=0 to nElementCount% step 1
|
||
stempString$ = stempString$ + seqByteSequence(nCounter%)
|
||
next nCounter%
|
||
stempString$ = stempString$ + "}"
|
||
end if
|
||
|
||
ByteSequence2String = stempString$
|
||
|
||
End Function
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsmethode: Zeigt die aktuellen Werte ALLER Properties an
|
||
'----------------------------------------------------------------------------
|
||
Sub ShowProperties ( aDocumentProperties )
|
||
|
||
' Besorgen der Werte und zwischenspeichern
|
||
sAuthor$ = aDocumentProperties.getPropertyValue ( "Author" )
|
||
bAutoloadEnabled = aDocumentProperties.getPropertyValue ( "AutoloadEnabled" )
|
||
nAutoloadSecs% = aDocumentProperties.getPropertyValue ( "AutoloadSecs" )
|
||
sAutoLoadURL$ = aDocumentProperties.getPropertyValue ( "AutoloadURL" )
|
||
sBliendCopiesTo$ = aDocumentProperties.getPropertyValue ( "BlindCopiesTo" )
|
||
sCopiesTo$ = aDocumentProperties.getPropertyValue ( "CopiesTo" )
|
||
dCreationDate = aDocumentProperties.getPropertyValue ( "CreationDate" )
|
||
sDefaultTarget$ = aDocumentProperties.getPropertyValue ( "DefaultTarget" )
|
||
sDescription$ = aDocumentProperties.getPropertyValue ( "Description" )
|
||
nEditingCycles% = aDocumentProperties.getPropertyValue ( "EditingCycles" )
|
||
nEditingDuration& = aDocumentProperties.getPropertyValue ( "EditingDuration" )
|
||
seqExtraData = aDocumentProperties.getPropertyValue ( "ExtraData" )
|
||
sInReplyTo$ = aDocumentProperties.getPropertyValue ( "InReplyTo" )
|
||
bIsEncrypted = aDocumentProperties.getPropertyValue ( "IsEncrypted" )
|
||
sKeywords$ = aDocumentProperties.getPropertyValue ( "Keywords" )
|
||
sMIMEType$ = aDocumentProperties.getPropertyValue ( "MIMEType" )
|
||
sModifiedBy$ = aDocumentProperties.getPropertyValue ( "ModifiedBy" )
|
||
dModifyDate = aDocumentProperties.getPropertyValue ( "ModifyDate" )
|
||
sNewsgroups$ = aDocumentProperties.getPropertyValue ( "Newsgroups" )
|
||
sOriginal$ = aDocumentProperties.getPropertyValue ( "Original" )
|
||
bPortableGraphics = aDocumentProperties.getPropertyValue ( "PortableGraphics" )
|
||
dPrintDate = aDocumentProperties.getPropertyValue ( "PrintDate" )
|
||
sPrintedBy$ = aDocumentProperties.getPropertyValue ( "PrintedBy" )
|
||
nPriority% = aDocumentProperties.getPropertyValue ( "Priority" )
|
||
bQueryTemplate = aDocumentProperties.getPropertyValue ( "QueryTemplate" )
|
||
sRecipient$ = aDocumentProperties.getPropertyValue ( "Recipient" )
|
||
sReferences$ = aDocumentProperties.getPropertyValue ( "References" )
|
||
sReplyTo$ = aDocumentProperties.getPropertyValue ( "ReplyTo" )
|
||
bSaveGraphicsCompressed = aDocumentProperties.getPropertyValue ( "SaveGraphicsCompressed" )
|
||
bSaveOriginalGraphics = aDocumentProperties.getPropertyValue ( "SaveOriginalGraphics" )
|
||
bSaveVersionOnClose = aDocumentProperties.getPropertyValue ( "SaveVersionOnClose" )
|
||
sTemplate$ = aDocumentProperties.getPropertyValue ( "Template" )
|
||
bTemplateConfig = aDocumentProperties.getPropertyValue ( "TemplateConfig" )
|
||
dTemplateDate = aDocumentProperties.getPropertyValue ( "TemplateDate" )
|
||
sTemplateFileName$ = aDocumentProperties.getPropertyValue ( "TemplateFileName" )
|
||
sTheme$ = aDocumentProperties.getPropertyValue ( "Theme" )
|
||
sTitle$ = aDocumentProperties.getPropertyValue ( "Title" )
|
||
bUserData = aDocumentProperties.getPropertyValue ( "UserData" )
|
||
|
||
' Eine Zeichenkette zusammenbasteln, welche die Werte formatiert darstellt.
|
||
sOutLine$ = "[OWString]" + chr$(9) + "Author" + chr$(9) + "= {" + chr$(9) + sAuthor$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Bool]" + chr$(9) + "AutoloadEnabled" + chr$(9) + "= {" + chr$(9) + bAutoloadEnabled + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Int16]" + chr$(9) + "AutoloadSecs" + chr$(9) + "= {" + chr$(9) + nAutoloadSecs% + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "AutoLoadURL" + chr$(9) + "= {" + chr$(9) + sAutoLoadURL$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "BliendCopiesTo" + chr$(9) + "= {" + chr$(9) + sBliendCopiesTo$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "CopiesTo" + chr$(9) + "= {" + chr$(9) + sCopiesTo$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[DateTime]" + chr$(9) + "CreationDate" + chr$(9) + "= {" + chr$(9) + DateTime2String(dCreationDate) + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "DefaultTarget" + chr$(9) + "= {" + chr$(9) + sDefaultTarget$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "Description" + chr$(9) + "= {" + chr$(9) + sDescription$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Int16]" + chr$(9) + "EditingCycles" + chr$(9) + "= {" + chr$(9) + nEditingCycles% + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Int32]" + chr$(9) + "EditingDuration" + chr$(9) + "= {" + chr$(9) + nEditingDuration& + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[Sequence<Byte>]" + chr$(9) + "ExtraData" + chr$(9) + "= {" + chr$(9) + ByteSequence2String(seqExtraData) + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "InReplyTo" + chr$(9) + "= {" + chr$(9) + sInReplyTo$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Bool]" + chr$(9) + "IsEncrypted" + chr$(9) + "= {" + chr$(9) + bIsEncrypted + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "Keywords" + chr$(9) + "= {" + chr$(9) + sKeywords$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "MIMEType" + chr$(9) + "= {" + chr$(9) + sMIMEType$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "ModifiedBy" + chr$(9) + "= {" + chr$(9) + sModifiedBy$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[DateTime]" + chr$(9) + "ModifyDate" + chr$(9) + "= {" + chr$(9) + DateTime2String(dModifyDate) + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "Newsgroups" + chr$(9) + "= {" + chr$(9) + sNewsgroups$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "Original" + chr$(9) + "= {" + chr$(9) + sOriginal$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Bool]" + chr$(9) + "PortableGraphics" + chr$(9) + "= {" + chr$(9) + bPortableGraphics + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[DateTime]" + chr$(9) + "PrintDate" + chr$(9) + "= {" + chr$(9) + DateTime2String(dPrintDate) + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "PrintedBy" + chr$(9) + "= {" + chr$(9) + sPrintedBy$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Int16]" + chr$(9) + "Priority" + chr$(9) + "= {" + chr$(9) + nPriority% + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Bool]" + chr$(9) + "QueryTemplate" + chr$(9) + "= {" + chr$(9) + bQueryTemplate + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "Recipient" + chr$(9) + "= {" + chr$(9) + sRecipient$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "References" + chr$(9) + "= {" + chr$(9) + sReferences$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "ReplyTo" + chr$(9) + "= {" + chr$(9) + sReplyTo$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Bool]" + chr$(9) + "SaveGraphicsCompressed" + chr$(9) + "= {" + chr$(9) + bSaveGraphicsCompressed + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Bool]" + chr$(9) + "SaveOriginalGraphics" + chr$(9) + "= {" + chr$(9) + bSaveOriginalGraphics + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Bool]" + chr$(9) + "SaveVersionOnClose" + chr$(9) + "= {" + chr$(9) + bSaveVersionOnClose + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "Template" + chr$(9) + "= {" + chr$(9) + sTemplate$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Bool]" + chr$(9) + "TemplateConfig" + chr$(9) + "= {" + chr$(9) + bTemplateConfig + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[DateTime]" + chr$(9) + "TemplateDate" + chr$(9) + "= {" + chr$(9) + DateTime2String(dTemplateDate) + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "TemplateFileName" + chr$(9) + "= {" + chr$(9) + sTemplateFileName$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "Theme" + chr$(9) + "= {" + chr$(9) + sTheme$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[OWString]" + chr$(9) + "Title" + chr$(9) + "= {" + chr$(9) + sTitle$ + "}" + chr$(13)
|
||
sOutLine$ = sOutLine$ + "[sal_Bool]" + chr$(9) + "UserData" + chr$(9) + "= {" + chr$(9) + bUserData + "}"
|
||
|
||
' Ausgabe der formatierten Zeichenkette
|
||
InfoMessage ( sOutLine$ )
|
||
End Sub
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsmethode: Zeigt die aktuellen Elemente des NameContainers an.
|
||
'----------------------------------------------------------------------------
|
||
Sub ShowNameContainer ( aDocumentProperties )
|
||
|
||
if ( aDocumentProperties.hasElements () = FALSE ) then
|
||
InfoMessage ( "Keine Elemente im NameContainer enthalten." )
|
||
Exit Sub
|
||
end if
|
||
|
||
aNameField = aDocumentProperties.getElementNames ()
|
||
if ( IsArray ( aNameField ) = FALSE ) then
|
||
ErrorMessage ( "getElementNames() .... Fehler (Es konnte keine Sequence bestimmt werden!)" )
|
||
Exit Sub
|
||
end if
|
||
nElementCount% = UBound ( aNameField () )
|
||
|
||
stempString$ = ""
|
||
for nCounter%=0 to nElementCount% step 1
|
||
stempString$ = "[" + nCounter% + "]"
|
||
stempString$ = stempString$ + chr$(9) + aNameField(nCounter%)
|
||
stempString$ = stempString$ + chr$(9) + "="
|
||
stempString$ = stempString$ + chr$(9) + aDocumentProperties.getByName ( aNameField(nCounter%) )
|
||
stempString$ = stempString$ + chr$(13)
|
||
next nCounter%
|
||
|
||
InfoMessage ( stempString$ )
|
||
|
||
End Sub
|
||
|
||
'----------------------------------------------------------------------------
|
||
' Hilfsfunktion: Ermittelt die Anzahl der im NameContainer enthaltenen Elemente.
|
||
'
|
||
' Returnwert = Anzahl der Elemente
|
||
'----------------------------------------------------------------------------
|
||
Function getNameContainerCount ( aDocumentProperties ) as Long
|
||
|
||
if ( aDocumentProperties.hasElements () = FALSE ) then
|
||
getNameContainerCount = 0
|
||
Exit Function
|
||
end if
|
||
|
||
aNameField = aDocumentProperties.getElementNames ()
|
||
nElementCount% = UBound ( aNameField () )
|
||
|
||
' Da die Zaehlung bei 0 beginnt, und der ermittelte Wert die obere Grenze darstellt,
|
||
' muss hier eine 1 draufgeschlagen werden.
|
||
getNameContainerCount = nElementCount% + 1
|
||
|
||
End Function |