summaryrefslogtreecommitdiff
path: root/testautomation/writer/optional/includes/regexp
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/writer/optional/includes/regexp')
-rwxr-xr-xtestautomation/writer/optional/includes/regexp/regular.inc974
-rwxr-xr-xtestautomation/writer/optional/includes/regexp/search.inc1699
2 files changed, 2673 insertions, 0 deletions
diff --git a/testautomation/writer/optional/includes/regexp/regular.inc b/testautomation/writer/optional/includes/regexp/regular.inc
new file mode 100755
index 000000000000..3a323bce2a49
--- /dev/null
+++ b/testautomation/writer/optional/includes/regexp/regular.inc
@@ -0,0 +1,974 @@
+'encoding UTF-8 Do not remove or change this line!
+'**************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' This file is part of OpenOffice.org.
+'
+' OpenOffice.org is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Lesser General Public License version 3
+' only, as published by the Free Software Foundation.
+'
+' OpenOffice.org is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+' GNU Lesser General Public License version 3 for more details
+' (a copy is included in the LICENSE file that accompanied this code).
+'
+' You should have received a copy of the GNU Lesser General Public License
+' version 3 along with OpenOffice.org. If not, see
+' <http://www.openoffice.org/license.html>
+' for a copy of the LGPLv3 License.
+'
+'/************************************************************************
+'*
+'* owner : helge.delfs@oracle.com
+'*
+'* short description : Search for regular expressions
+'*
+'\***********************************************************************
+
+sub regular
+ call tAny_Character
+ call tWord_At_Paragraph_Beginning
+ call tWord_At_Paragraph_End
+ call tNone_Or_Several_Between
+ call tAtLeast_One_Between
+ call tText_At_WordBeginning
+ call tText_At_WordEnd
+ call tDolar
+ call tTabulator
+ call tOr_Search
+ call tEmpty_Paragraph
+ call tLineBreak
+ call tSingle_Selected
+ call tOne_Area_Selected
+ call tTwo_Areas_Selected
+ call tHexadecimal_Code
+ call tHexadecimal_Code_NEW
+ call tAttach_Behind_WordToFind
+ Call tWord_At_Beginning_With_Empty_Field
+ Call tWord_At_Beginning_With_Frame
+ Call tWord_At_End_With_Empty_Field
+ Call tWord_At_End_With_Frame
+'---------New------------
+ call tChartype_digit
+ call tChartype_space
+ call tChartype_print
+ call tChartype_alnum
+ call tChartype_alpha
+ call tChartype_cntrl
+
+ call tChartype_lower
+ call tChartype_upper
+end sub
+
+'---------------------------------------------------------
+' Wort mit einem beliebigen Zeichen im Wort Search : geht mit '.'
+'
+testcase tAny_Character
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+ RegularExpressions.Check '/// hmmm, one time set, evry time work : just here gets regexp checked ?!///
+ '/// Start Search & Compare ///
+ Such_Text = "M.ller" 'beliebiges Zeichen im Wort
+ '///+ Enter RegExp in Field Search for : 'M.ller' ///
+ Vergleichstext = "MöllerMüller"
+ '/// Compare string found with: 'M�llerM�ller' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+'///' Wort am Absatzanfang Search : geht mit '^' ///
+'
+testcase tWord_At_Paragraph_Beginning
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "^Anfang" 'Wort am Absatzanfang
+ '///+ Enter RegExp in Field Search for : '^Anfang' ///
+ Vergleichstext = "Anfang"
+ '/// Compare string found with: 'Anfang' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' Wort am Absatzende Search : geht mit 'xxx$' - Dollarzeichen
+'
+testcase tWord_At_Paragraph_End
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "Ende$" 'Wort am Absatzende
+ '///+ Enter RegExp in Field Search for : 'Ende$' ///
+ Vergleichstext = "Ende"
+ '/// Compare string found with: 'Ende' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' Wort oder Satzteile Search. Zwischen den Worten mit dem Suchbegriff darf kein oder mehrere Buchstaben stehen : geht mit '.*'
+'
+testcase tNone_Or_Several_Between
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "Peter.*Haus" 'Kein oder mehrere Zeichen dazwischen
+ '///+ Enter RegExp in Field Search for : 'Peter.*Haus' ///
+ Vergleichstext = "Peter ist im HausPeter liebt dieses HausPeters HausPeterhaus"
+ '/// Compare string found with: 'Peter ist im HausPeter liebt dieses HausPeters HausPeterhaus' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' Wort oder Satzteile Search. Zwischen den Worten mit dem Suchbegriff mu├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£Ôòæ├ö├Â┬úÔö£Ôòæ├ö├Â┬úÔö£├æ mindestens ein Buchstabe stehen : geht mit '.+'
+'
+testcase tAtLeast_One_Between
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "Peter.+Haus"
+ '///+ Enter RegExp in Field Search for : 'Peter.+Haus' ///
+ Vergleichstext = "Peter ist im HausPeter liebt dieses HausPeters Haus"
+ '/// Compare string found with: 'Peter ist im HausPeter liebt dieses HausPeters Haus' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' Worte mit Vergleichtext am Wortanfang Search : geht mit '\<'
+'
+testcase tText_At_WordBeginning
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "\<aaa"
+ '///+ Enter RegExp in Field Search for : '\<aaa' ///
+ Vergleichstext = "aaa"
+ '/// Compare string found with: 'aaa' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' Worte mit Vergleichtext am Wortende Search : geht mit '\>'
+'
+testcase tText_At_WordEnd
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "eee\>" 'Text am Wortende
+ '///+ Enter RegExp in Field Search for : 'eee\>' ///
+ Vergleichstext = "eee"
+ '/// Compare string found with: 'eee' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' Normale mit regulren Ausdrcke Search, hier das Dollarzeichen geht mit \$
+
+testcase tDolar
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "\$" 'Sonderzeichen ($)
+ '///+ Enter RegExp in Field Search for : '\$' ///
+ Vergleichstext = "$$"
+ '/// Compare string found with: '$$' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht nach Tabulatoren : geht mit \t
+'
+testcase tTabulator
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "\t" 'Tabulatoren
+ '///+ Enter RegExp in Field Search for : '\t' ///
+ Vergleichstext = Chr$(9)+Chr$(9)+Chr$(9)
+ '/// Compare string found with: ' ' ///
+ call Search_Und_Vergleichen
+' findet nun t
+endcase
+
+'---------------------------------------------------------
+' entweder das eine Wort oder das andere Wort Search : geht mit 'aaa|bbb'
+'
+testcase tOr_Search
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "Erstes|Zweites" 'ODER-Suche
+ '///+ Enter RegExp in Field Search for : 'Erstes|Zweites' ///
+ Vergleichstext = "ZweitesErstesZweites"
+ '/// Compare string found with: 'ZweitesErstesZweites' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht leere Abstze : geht mit '^$'
+'
+testcase tEmpty_Paragraph
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "^$"
+ '///+ Enter RegExp in Field Search for : '^$' ///
+ if gPlatgroup = "unx" then
+ Vergleichstext = Chr$(10)
+ else
+ Vergleichstext = Chr$(13) + Chr$(10)
+ end if
+ '/// Compare string found with: 'An empty paragraph' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht nach einem weichen Zeilenumbruch ( linefeed, newline ): geht mit '\n'
+'
+testcase tLineBreak
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "\n" 'Zeilenumbruch
+ '///+ Enter RegExp in Field Search for : '\n' ///
+ Vergleichstext = Chr$(10)
+ '/// Compare string found with: a line break ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht alle ausgewlten Zeichen : geht mit '[xyz]'
+'
+testcase tSingle_Selected
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[xyz]" 'Einzelne ausgewhlte Zeichen
+ '///+ Enter RegExp in Field Search for : '[xyz]' ///
+ Vergleichstext = "xZzzZzxxzzZZzZzXxYyZz"
+ '/// Compare string found with: 'xZzzZzxxzzZZzZzXxYyZz' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht alle Zeichen im Bereich zwischen zwei Buchstaben : geht mit '[x-z]'
+'
+testcase tOne_Area_Selected
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[w-z]" 'Bereich ausgewhlter Zeichen
+ '///+ Enter RegExp in Field Search for : '[w-z]' ///
+ Vergleichstext = "xZWWzWzZzwWWxWwxWwzzZwWWwZwWzZzWwXxYyZz"
+ '/// Compare string found with: 'xZWWzWzZzwWWxWwxWwzzZwWWwZwWzZzWwXxYyZz' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht alle Zeichen aus zwei angegebenen Buchstabenbereichen : geht mit '[a-cg-h]'
+'
+testcase tTwo_Areas_Selected
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[B-Dx-z]" 'Zwei Bereiche ausgewhlter Zeichen
+ '///+ Enter RegExp in Field Search for : '[B-Dx-z]' ///
+ Vergleichstext = "xdcbbZcddcddbzddcbddbzddcbddZczcdbdcDccxddcxddddzcbdbzZDddZbzZcbdzcBbCcDdXxYyZzcddDd"
+ '/// Compare string found with: 'xdcbbZcddcddbzddcbddbzddcbddZczcdbdcDccxddcxddddzcbdbzZDddZbzZcbdzcBbCcDdXxYyZzcddDd' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht alle Zeichen mit dem Hexadezimalcode .. : geht mit '\x..'
+'
+testcase tHexadecimal_Code_NEW
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "\x3E" 'Zeichen mit Hexadezimal-Code finden
+ '///+ Enter RegExp in Field Search for : '\x3E' ///
+ Vergleichstext = ">"
+ '/// Compare string found with: '>' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht alle Zeichen mit dem Hexadezimalcode .. : geht mit '\x..'
+'
+testcase tHexadecimal_Code
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "\x003E" 'Zeichen mit Hexadezimal-Code finden
+ '///+ Enter RegExp in Field Search for : '\x003E' ///
+ Vergleichstext = ">"
+ '/// Compare string found with: '>' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht Wort am Anfang eines Absatzes mit leerem Feldbefehl davor : geht mit '^'
+'
+testcase tWord_At_Beginning_With_Empty_Field
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "^Halloo"
+ '///+ Enter RegExp in Field Search for : '^Halloo' ///
+ Vergleichstext = "Halloo"
+ '/// Compare string found with: 'Halloo' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht Wort am Anfang eines Absatzes mit zeichengebundenen Rahmen davor : geht mit '^'
+'
+testcase tWord_At_Beginning_With_Frame
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "^Rahmen"
+ '///+ Enter RegExp in Field Search for : '^Rahmen' ///
+ Vergleichstext = "Rahmen"
+ '/// Compare string found with: 'Rahmen' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht Wort am Ende eines Absatzes mit leerem Feldbefehl davor : geht mit '^'
+'
+testcase tWord_At_End_With_Empty_Field
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "hhallo$"
+ '///+ Enter RegExp in Field Search for : 'hhallo$' ///
+ Vergleichstext = "hhallo"
+ '/// Compare string found with: 'hhallo' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+' sucht Wort am Ende eines Absatzes mit zeichengebundenen Rahmen davor : geht mit '^'
+'
+testcase tWord_At_End_With_Frame
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "Rahmenend$"
+ '///+ Enter RegExp in Field Search for : 'Rahmenend$' ///
+ Vergleichstext = "Rahmenend"
+ '/// Compare string found with: 'Rahmenend' ///
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+testcase tAttach_Behind_WordToFind
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// look for 'Sonderzeichen' replace with '& sind toll' ///'
+ '/// Start Search & Compare ///
+ Such_Text = "Sonderzeichen" 'Anh├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£ÔòæÔö£├ÂÔö£├éÔö¼├║Ôö£├ÂÔö£ÔòùÔö£├Ñngen an gesuchtes Wort
+ '///+ Enter RegExp in Field Search for : 'Sonderzeichen' ///
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText "& sind toll"
+ ReplaceAll.Click
+ sleep 1
+ Kontext "Active"
+ if Active.Exists then
+ if Active.GetRT = 304 then
+ Active.OK 'MSG-Box (... x ersetzt) schlie�en
+ else
+ Warnlog "Messagebox, how often replaced, not up !"
+ end if
+ end if
+ Kontext "FindAndReplace"
+ FindAndReplace.Close
+ kontext "DocumentWriter"
+ DocumentWriter.Typekeys "<PAGEUP>"
+ DocumentWriter.Typekeys "<MOD1 HOME>"
+ EditSearchAndReplace
+ kontext "FindAndReplace" 'Search&Replace-Fenster ├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£ÔòæÔö£├ÂÔö£├éÔö¼├║├ö├Â┬úÔö¼┬½ffnen
+ if RegularExpressions.IsVisible = False then More.Click
+ RegularExpressions.Uncheck
+ Such_Text = "Sonderzeichen sind toll"
+ Vergleichstext = "Sonderzeichen sind tollSonderzeichen sind toll"
+ call Search_Und_Vergleichen
+endcase
+
+'--------------NEW ONES from TBO; to SO 6.0---------------------------------
+
+testcase tChartype_digit
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[:digit:]*"
+ '///+ Enter RegExp in Field Search for : '[:digit:]*' ///
+ Vergleichstext = "²³¹¼½¾"
+ '/// Compare string found with: '' ///
+ call Search_Und_Vergleichen
+endcase
+
+testcase tChartype_space
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[:space:]*"
+ '///+ Enter RegExp in Field Search for : '[:space:]*' ///
+ Vergleichstext = " "
+ '/// Compare string found with: 'All spaces in document' ///
+ call Search_Und_Vergleichen
+endcase
+
+testcase tChartype_print
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[:print:]*"
+ '///+ Enter RegExp in Field Search for : '[:print:]*' ///
+ Vergleichstext = "HuhuhuHuhuhuTest-Text für "+chr$(34)+"Reguläre Ausdrücke"+chr$(34)+"Ein beliebiges Zeichen in einem WortFinde Möller und Müller, nicht Mller und Mueller !Wort am Anfang des AbsatzesAnfang Quaeramus tum aliarum rerum, quae vitam instruunt, diligens sine admiratione cuiusquam, usura fortunae muneribus, non servitura.Wort am Ende des AbsatzesQuaeramus tum aliarum rerum, quae vitam instruunt, diligens sine admiratione cuiusquam, usura fortunae muneribus, non servitura EndeKein oder mehrere Zeichen zwischen den WörternPeter ist im Haus. - Aha !Peter liebt dieses Haus. - Warum?Es ist Peters Haus. Ach so.Das Peterhaus. - Natürlich!Suchtext am Anfang des Wortesaaahier kommt das wortaaaSuchtext am Ende des Worteseeehier kommt das worteeeSonderzeichen$TabulatorenHiersindTabsgesetzt !AlternativgruppenErst kam ein Zweites WortDann kam ein Erstes WortUnd wieder ein Zweites WortLeerer AbsatzZeilenvorschubSonderzeichen@`Àà!Aa¡Áá"+chr$(34)+"Bb¢Ââ#Cc£Ãã$Dd¤Ää%Ee¥Åå&FfÆæ'Gg§Çç(Hh¨Èè)Ii©ÉéJjªÊê+KkËë,Ll¬ÌìMmÍí.®Îî/Oo¯ÏïPp°ÐðQq±ÑñRr²ÒòSs³ÓóTt´ÔôUuÕõVv¶ÖöWw·×÷Xx¸ØøYy¹Ùù:ZzºÚú;[{Ûû<\|¼Üü=]}½Ýý>^~¾Þþ?_¿ßÿ-RahmenHalloo kikiriki kirikeircidkvvdn hhalloDer Rahmen ist hier hinten Rahmenend" 'Test-Text für "+chr$(34)+"Reguläre Ausdrücke"+chr$(34)
+ '/// Compare string found with: '' ///
+ call Search_Und_Vergleichen
+endcase
+
+testcase tChartype_alnum
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[:alnum:]*"
+ '///+ Enter RegExp in Field Search for : '[:alnum:]*' ///
+ Vergleichstext = "HuhuhuHuhuhuTestTextfürReguläreAusdrückeEinbeliebigesZeichenineinemWortFindeMöllerundMüllernichtMllerundMuellerWortamAnfangdesAbsatzesAnfangQuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraWortamEndedesAbsatzesQuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraEndeKeinodermehrereZeichenzwischendenWörternPeteristimHausAhaPeterliebtdiesesHausWarumEsistPetersHausAchsoDasPeterhausNatürlichSuchtextamAnfangdesWortesaaahierkommtdaswortaaaSuchtextamEndedesWorteseeehierkommtdasworteeeSonderzeichenTabulatorenHiersindTabsgesetztAlternativgruppenErstkameinZweitesWortDannkameinErstesWortUndwiedereinZweitesWortLeererAbsatzZeilenvorschubSonderzeichenÀàAaÁáBbÂâCcÃãDdÄäEeÅåFfÆæGgÇçHhÈèIiÉéJjªÊêKkËëLlÌìMmÍíÎîOoÏïPpÐðQqÑñRr²ÒòSs³ÓóTtÔôUuÕõVvÖöWwXxØøYy¹ÙùZzºÚúÛû¼Üü½Ýý¾ÞþßÿRahmenHallookikirikikirikeircidkvvdnhhalloDerRahmenisthierhintenRahmenend" 'Test
+ '/// Compare string found with: '' ///
+ call Search_Und_Vergleichen
+endcase
+
+testcase tChartype_alpha
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[:alpha:]*"
+ '///+ Enter RegExp in Field Search for : '[:alpha:]*' ///
+ Vergleichstext = "HuhuhuHuhuhuTestTextfürReguläreAusdrückeEinbeliebigesZeichenineinemWortFindeMöllerundMüllernichtMllerundMuellerWortamAnfangdesAbsatzesAnfangQuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraWortamEndedesAbsatzesQuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraEndeKeinodermehrereZeichenzwischendenWörternPeteristimHausAhaPeterliebtdiesesHausWarumEsistPetersHausAchsoDasPeterhausNatürlichSuchtextamAnfangdesWortesaaahierkommtdaswortaaaSuchtextamEndedesWorteseeehierkommtdasworteeeSonderzeichenTabulatorenHiersindTabsgesetztAlternativgruppenErstkameinZweitesWortDannkameinErstesWortUndwiedereinZweitesWortLeererAbsatzZeilenvorschubSonderzeichenÀàAaÁáBbÂâCcÃãDdÄäEeÅåFfÆæGgÇçHhÈèIiÉéJjªÊêKkËëLlÌìMmÍíÎîOoÏïPpÐðQqÑñRrÒòSsÓóTtÔôUuÕõVvÖöWwXxØøYyÙùZzºÚúÛûÜüÝýÞþßÿRahmenHallookikirikikirikeircidkvvdnhhalloDerRahmenisthierhintenRahmenend" 'Test"
+ '/// Compare string found with: '' ///
+ call Search_Und_Vergleichen
+endcase
+
+testcase tChartype_cntrl
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[:cntrl:]*"
+ '///+ Enter RegExp in Field Search for : '[:cntrl:]*' ///
+ Vergleichstext = Chr(9) + Chr(9) + Chr(9)
+ '/// Compare string found with: '' ///
+ call Search_Und_Vergleichen
+endcase
+
+testcase tChartype_lower
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[:lower:]*"
+ '///+ Enter RegExp in Field Search for : '[:lower:]*' ///
+ Vergleichstext = "uhuhuuhuhuestextfüreguläreusdrückeinbeliebigeseichenineinemortindeöllerundüllernichtllerunduellerortamnfangdesbsatzesnfanguaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraortamndedesbsatzesuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonserviturandeeinodermehrereeichenzwischendenörterneteristimaushaeterliebtdiesesausarumsistetersauschsoaseterhausatürlichuchtextamnfangdesortesaaahierkommtdaswortaaauchtextamndedesorteseeehierkommtdasworteeeonderzeichenabulatoreniersindabsgesetztlternativgruppenrstkameinweitesortannkameinrstesortndwiedereinweitesorteererbsatzeilenvorschubonderzeichenàaábâcãdäeåfægçhèiéjªêkëlìmíîoïpðqñròsótôuõvöwxøyùzºúûüýþßÿahmenallookikirikikirikeircidkvvdnhhalloerahmenisthierhintenahmenend" 'est"
+ '/// Compare string found with: '' ///
+ MatchCase.Check
+ call Search_Und_Vergleichen
+endcase
+
+testcase tChartype_upper
+ call Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+
+ '/// Start Search & Compare ///
+ Such_Text = "[:upper:]*"
+ '///+ Enter RegExp in Field Search for : '[:upper:]*' ///
+ Vergleichstext = "HHTTRAEZWFMMMMWAAAQWEAQEKZWPHAPHWEPHADPNSAWSEWSTHTAEZWDEWUZWLAZSÀAÁBÂCÃDÄEÅFÆGÇHÈIÉJÊKËLÌMÍÎOÏPÐQÑRÒSÓTÔUÕVÖWXØYÙZÚÛÜÝÞRHDRR"
+ '/// Compare string found with: '' ///
+ MatchCase.Check
+ call Search_Und_Vergleichen
+endcase
+
+'---------------------------------------------------------
+'---------------------------------------------------------
+'--------------- Unterprogramme ----------------------
+'---------------------------------------------------------
+sub Ausgangszustand_herstellen
+ '/// <B>Set to default values</B> ///
+ '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
+ '///+ Close 'Find&Replace' dialog if open ///
+ '///+ Point cursor to beginning of document ///
+ '///+ Open 'Find&Replace' dialog ///
+ '///+ Clear Editfield 'Search for' ///
+ '///+ Uncheck 'Whole words only' ///
+ '///+ Uncheck 'Backwards' ///
+ '///+ Uncheck 'Match Case' ///
+ '///+ Uncheck 'Current selection only' ///
+ '///+ Uncheck 'Search for Styles' ///
+ '///+ Uncheck 'Similarity Search' ///
+ '///+ Check 'Regular Expressions' ///
+ Call hFileOpen ( gtesttoolpath + "writer\optional\input\search\regu_aus.sxw")
+ Call sMakeReadOnlyDocumentEditable
+ kontext
+ if FindAndReplace.Exists then FindAndReplace.Close
+ kontext "DocumentWriter"
+ DocumentWriter.Typekeys "<PAGEUP>", 2 'an den Anfang des Textes gehen
+ DocumentWriter.Typekeys "<MOD1 HOME>"
+ EditSearchAndReplace
+ kontext "FindAndReplace" 'Search&Replace-Fenster ├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£ÔòæÔö£├ÂÔö£├éÔö¼├║├ö├Â┬úÔö¼┬½ffnen
+ try
+ SearchFor.Settext ""
+ catch
+ endcatch
+ if SimilaritySearch.IsVisible = False then More.Click
+ if SimilaritySearch.IsEnabled then SimilaritySearch.Uncheck
+ if SearchForStyles.IsEnabled then SearchForStyles.Uncheck
+ if RegularExpressions.IsEnabled then RegularExpressions.Uncheck
+ if NoFormat.IsEnabled then NoFormat.Click
+ if CurrentSelectionOnly.IsEnabled then CurrentSelectionOnly.Uncheck
+ WholeWordsOnly.Uncheck 'Im Suchdialog alles unchecken,
+ Backwards.Uncheck 'damit ein definierter Anfangs-
+ MatchCase.Uncheck 'zustand erreicht wird.
+ RegularExpressions.Check 'Regul├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£ÔòæÔö£├ÂÔö£├éÔö¼├║Ôö£├ÂÔö£ÔòùÔö£├Ñrer Ausdruck mu├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£Ôòæ├ö├Â┬úÔö£Ôòæ├ö├Â┬úÔö£├æ gecheckt sein
+end sub
+
+'-------------------------------------------------------
+sub Search_Und_Vergleichen
+ dim dummy as string 'Sucht den Ausdruck und vergleicht
+ 'Such_Text mit dem Text, der nach
+ SearchFor.SetText Such_Text 'nach der Suche markiert ist und
+ if Such_Text = "$" then
+ SearchNow.Click
+ else
+ SearchAll.Click
+ end if
+ Kontext "Active"
+ if Active.Exists then
+ if Active.GetRT = 304 then ' MESSBOX
+ Warnlog "active: " + Active.Gettext
+ Active.Ok
+ end if
+ end if
+ kontext "FindAndReplace"
+ if FindAndReplace.Exists then
+ FindAndReplace.Close
+ else
+ Warnlog "Dialog 'Find & Replace' not open anymore!"
+ end if
+ Kontext "DocumentWriter"
+ try
+ EditCopy
+ catch
+ Warnlog "Edit /Copy disabled!"
+ DocumentWriter.Typekeys "<MOD1 HOME>"
+ hCloseDocument
+ exit sub
+ endcatch
+
+ Sleep 1
+ if Vergleichstext = chr(13)+chr(10) OR Vergleichstext = chr(10) OR Vergleichstext = chr(13) then
+ dummy = GetClipboard
+ else
+ dummy = GetClipboardText
+ end if
+ if Vergleichstext <> dummy then
+ Warnlog "'",dummy,"' has been found, and not '",Vergleichstext,"'"
+ else
+ printlog "'Find' found correct word!"
+ end if
+ DocumentWriter.Typekeys "<MOD1 HOME>"
+
+ hCloseDocument
+end sub
diff --git a/testautomation/writer/optional/includes/regexp/search.inc b/testautomation/writer/optional/includes/regexp/search.inc
new file mode 100755
index 000000000000..8121859870ad
--- /dev/null
+++ b/testautomation/writer/optional/includes/regexp/search.inc
@@ -0,0 +1,1699 @@
+'encoding UTF-8 Do not remove or change this line!
+'**************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' This file is part of OpenOffice.org.
+'
+' OpenOffice.org is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Lesser General Public License version 3
+' only, as published by the Free Software Foundation.
+'
+' OpenOffice.org is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+' GNU Lesser General Public License version 3 for more details
+' (a copy is included in the LICENSE file that accompanied this code).
+'
+' You should have received a copy of the GNU Lesser General Public License
+' version 3 along with OpenOffice.org. If not, see
+' <http://www.openoffice.org/license.html>
+' for a copy of the LGPLv3 License.
+'
+'/************************************************************************
+'*
+'* owner : helge.delfs@oracle.com
+'*
+'* short description : Search & Replace
+'*
+'\***********************************************************************
+
+sub search
+
+ if bAsianLan = false then Call ActiveDeactivateAsianSupport(False)
+ call tCheckDialog
+ call tCallDialog
+ call tFree_Text
+
+ call tAlle_Suchen
+ call tSelection
+ call tPart_of_a_word
+ call tWhole_Word
+ call tMatch_Case
+
+ call tItalic_Search
+
+ call tItalic_Replace
+ call tUnderline_Search
+ call tUnderline_Replace
+ call tAll_Replace
+
+ call tReplace_Arial_with_TmsRmn
+ call tBackwards_Search
+ call tSeveral_Times
+ call tFurther_Look_up_At_The_Beginning
+ call tParagraphStyle_Search
+ call tText_In_Table
+ call tText_In_Frame
+ call tSimilarity_Search
+
+end sub
+
+'---------------------------------------------------------
+testcase tCheckDialog
+ warnlog( "#i111908# - Control <Replace> cannot be accessed" )
+ goto endsub
+
+ Dim Checkboxtitel
+ Call hNewDocument
+ EditSearchAndReplace
+ Sleep 2
+ Kontext "FindAndReplace"
+ if FindAndReplace.NotExists then EditSearchAndReplace
+
+ printlog "Check Find-and-Replace-Dialog"
+ printlog "- Dependencies of Buttons in Search-for-Entry"
+ SearchFor.SetText ""
+ if Not Backwards.IsVisible then More.Click
+ if SimilaritySearch.IsEnabled and SimilaritySearch.IsChecked then SimilaritySearch.Uncheck
+ if SearchAll.IsEnabled then Warnlog "Without Search-for-entry Find-All is active!"
+ if SearchNow.IsEnabled then Warnlog "Without Search-for-entry Find is active!"
+ if ReplaceAll.IsEnabled then Warnlog "Without Search-for-entry Replace-All is active!"
+ if ReplaceBtn.IsEnabled then Warnlog "Without Search-for-entry Replace is active!"
+ if NoFormat.IsEnabled then Warnlog "Without selecting Formats , No-Format is active!"
+ SearchFor.SetText "Hallo"
+ if NOT SearchAll.IsEnabled then Warnlog "Containing Search-for-entry Find-All is inactive!"
+ if NOT SearchNow.IsEnabled then Warnlog "Containing Search-for-entry Find inactive!"
+ if NOT ReplaceAll.IsEnabled then Warnlog "Containing Search-for-entry Replace-All is inactive!"
+ if NOT ReplaceBtn.IsEnabled then Warnlog "Containing Search-for-entry Replace is inactive!"
+
+ Sleep 5
+ printlog "- Dependencies of Format-Properties"
+ Kontext "FindAndReplace"
+ Formats.Click
+ wait 500
+ Kontext
+ Active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ Outline.Check
+ TabFontEffects.OK
+ wait 500
+ kontext "FindAndReplace"
+ if NOT NoFormat.IsEnabled then Warnlog "Containing Formats, No-Formats is inactive!"
+ NoFormat.Click
+ wait 500
+
+ printlog "- Dependencies of Checkboxes"
+ RegularExpressions.Check
+ wait 500
+ if WholeWordsOnly.IsEnabled then Warnlog "Regular expressions: 'Whoole words only' is active => BUG!"
+ if NOT Backwards.IsEnabled then Warnlog "Regular expressions: 'Backwards' is inactive => BUG!"
+ if NOT MatchCase.IsEnabled then Warnlog "Regular expressions: 'Match case' is inactive => BUG!"
+ if CurrentSelectionOnly.IsEnabled then Warnlog "Regular expressions: 'Current selection only' is active => BUG!"
+ if NOT SearchForStyles.IsEnabled then Warnlog "Regular expressions: 'Search for Styles' is inactive => BUG!"
+ if SimilaritySearch.IsEnabled then Warnlog "Regular expressions: 'Similarity search' is active => BUG!"
+ if SimilaritySearchFor.IsEnabled then Warnlog "Regular expressions: Button for 'Similarity search' - dialog is active => BUG!"
+ RegularExpressions.UnCheck
+
+ wait 500
+ SearchForStyles.Check
+ if WholeWordsOnly.IsEnabled then Warnlog "Search for Styles: 'Whole words only' is active => BUG!"
+ if NOT Backwards.IsEnabled then Warnlog "Search for Styles: 'Backwards' is inactive => BUG!"
+ if RegularExpressions.IsEnabled then Warnlog "Search for Styles: 'Regular expressions' is active => BUG!"
+ if MatchCase.IsEnabled then Warnlog "Search for Styles: 'Match case' is active => BUG!"
+ if CurrentSelectionOnly.IsEnabled then Warnlog "Regular expressions: 'Current selection only' is active => BUG!"
+ if SimilaritySearch.IsEnabled then Warnlog "Search for Styles: 'Similarity search' is active => BUG!"
+ if SimilaritySearchFor.IsEnabled then Warnlog "Search for Styles: Button for 'Similarity search' - dialog is active => BUG! "
+ SearchForStyles.UnCheck
+
+ wait 500
+ SimilaritySearch.Check
+ if NOT WholeWordsOnly.IsEnabled then Warnlog "Similarity Search: 'Whole words only' is active => BUG!"
+ if NOT Backwards.IsEnabled then Warnlog "Similarity Search: 'Backwards' is inactive => BUG!"
+ if RegularExpressions.IsEnabled then Warnlog "Similarity Search: 'Regular expressions' is active => BUG!"
+ if NOT MatchCase.IsEnabled then Warnlog "Similarity Search: 'Match case' is active => BUG!"
+ if CurrentSelectionOnly.IsEnabled then Warnlog "Regular expressions: 'Current selection only' is active => BUG!"
+ if SearchForStyles.IsEnabled then Warnlog "Regular expressions: 'Search for Styles' is active => BUG!"
+ if NOT SimilaritySearchFor.IsEnabled then Warnlog "Similarity Search: Button for 'Similarity search' - dialog is active => BUG! "
+ SimilaritySearch.UnCheck
+ Sleep 2
+ FindAndReplace.Close
+
+ Kontext "DocumentWriter"
+ DocumentWriter.TypeKeys "hallo <Shift Home>"
+ EditSearchAndReplace
+ kontext "FindAndReplace"
+ if NOT CurrentSelectionOnly.IsEnabled then Warnlog "WIth a selected entry, 'Current selection only' isn't active! => BUG"
+ Sleep 2
+ FindAndReplace.Close
+ wait 500
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tCallDialog
+ Dim Shortcut as String
+ Call hNewDocument
+ '/// Open new document ///
+ kontext "FindAndReplace"
+ Sleep 2
+ if FindAndReplace.Exists then FindAndReplace.Close
+ '/// Close Search&Replace dialog if open ///
+ Kontext "DocumentWriter"
+ select case iSprache
+ case 01 : Shortcut = "<Mod1 f>"
+ case 03 : Shortcut = "<Mod1 g>"
+ case 07 : Shortcut = "<Mod1 f>"
+ case 31 : Shortcut = "<Mod1 f>"
+ case 33 : Shortcut = "<Mod1 f>"
+ case 34 : Shortcut = "<Mod1 b>"
+ case 39 : Shortcut = "<Mod1 f>"
+ case 46 : Shortcut = "<Mod1 f>"
+ case 49 : Shortcut = "<Mod1 f>"
+ case 50 : Shortcut = "<Mod1 f>"
+ case 55 : Shortcut = "<Mod1 f>"
+ case 81 : Shortcut = "<Mod1 f>"
+ case 82 : Shortcut = "<Mod1 f>"
+ case 86 : Shortcut = "<Mod1 f>"
+ case 88 : Shortcut = "<Mod1 f>"
+ case else : QAErrorLog "Shortcut to call Find&Replace-Dialog has to be included!"
+ Call hCloseDocument
+ goto endsub
+ end select
+ '/// Open Search and Replace dialog with Shortcut depending on current language ///
+ DocumentWriter.TypeKeys Shortcut
+ kontext "FindAndReplace"
+ if FindAndReplace.NotExists then
+ Warnlog "Shortcut " + Shortcut + " didn't call the Find dialog"
+ else
+ printlog "- Dialog has been called with Shortcut: " + Shortcut
+ end if
+ Call hCloseDocument
+ '/// Close active document ///
+ Call hNewDocument
+ '/// Open new document ///
+ Kontext "Navigator"
+ If Navigator.Exists then ViewNavigator
+ printlog "- Check, if dialog is not present in a new document"
+ '/// Check, if dialog is not present in a new document ///
+ kontext "FindAndReplace"
+ if FindAndReplace.Exists then
+ Warnlog "Search-For-Dialog has been opened in a new document"
+ EditSearchAndReplace
+ end if
+ Call hCloseDocument
+ '/// Close active document ///
+endcase
+
+'---------------------------------------------------------
+testcase tFree_Text
+ Call wSetFindAndReplaceToDefault(1)
+ Such_Text = "non" 'Suchen in freiem Text
+ Meldungs_Text = "Suchen in freiem Text"
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ SearchNow.Click
+ call Vergleichen_und_ausgeben
+ EditSearchAndReplace
+ kontext "FindAndReplace" 'Suchen&Replace-Fenster "ffnen
+ SearchNow.Click
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tSelection
+ Call wSetFindAndReplaceToDefault(1)
+ Such_Text = "d n"
+ Meldungs_Text = "Suchen in selektiertem Text" 'Suchen in selektiertem Text
+ Sleep 2
+ FindAndReplace.Close
+ kontext "DocumentWriter"
+ DocumentWriter.TypeKeys "<Shift PageDown>"
+ EditSearchAndReplace
+ kontext "FindAndReplace"
+ SearchFor.SetText Such_Text
+ if CurrentSelectionOnly.IsVisible = False then More.Click
+ if not CurrentSelectionOnly.ischecked then 'Sollte automatisch
+ Warnlog " 'Current selection only' has not been checked automatically" 'gecheckt sein, wenn
+ CurrentSelectionOnly.check 'Text markiert ist
+ else
+ printlog "OK: Only in Selection is checked automatically"
+ end if
+ ReplaceWith.SetText Meldungs_Text
+ SearchNow.Click
+ call Vergleichen_und_ausgeben
+
+ EditSearchAndReplace
+ kontext "FindAndReplace" 'Suchen&Replace-Fenster "ffnen
+ SearchNow.Click
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tPart_of_a_word
+ Call wSetFindAndReplaceToDefault(1)
+ Such_Text = "te"
+ Meldungs_Text = "Suchen Teil eines Wortes" 'Suchen Teil eines Wortes
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ SearchNow.Click
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tWhole_Word
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "illa"
+ Meldungs_Text = "Suchen nur ganzes Wort" 'Suchen nur ganzes Wort
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ WholeWordsOnly.Check
+ SearchNow.Click '"te" ist Teil eines Wortes, "Te" als
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tMatch_Case
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "Be" 'Exakte Suche
+ Meldungs_Text = "Exakte Suche"
+ ReplaceWith.SetText Meldungs_Text
+ 'sleep 1
+ MatchCase.check
+ SearchFor.SetText Such_Text
+ SearchAll.Click
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tItalic_Search
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "k" 'Suche nach Format "kursiv"
+ Meldungs_Text = "Suchen Format kursiv"
+ SearchFor.SetText Such_Text
+ try
+ Formats.Click
+ wait 500
+ catch
+ Warnlog "Button 'Format is disabled !"
+ Call hCloseDocument
+ goto endsub
+ endcatch
+
+ Kontext
+ Active.Setpage TabFont
+ Kontext "TabFont"
+ if gAsianSup = True or gCTLSup = True then
+ try
+ StyleWest.Select 2
+ catch
+ Warnlog "Style has not been found ! -> Asian-Support: " + gAsianSup + "CTL-Support: " + gCTLSup
+ Style.Select 2
+ endcatch
+ else
+ Style.Select 2
+ end if
+ wait 500
+ TabFont.Ok
+ ' Workaround
+ Kontext "FindAndReplace"
+ NoFormat.Click
+ wait 500
+ Formats.Click
+ sleep 1
+ kontext
+ Active.SetPage TabFont
+ kontext "TabFont"
+ sleep 1
+ if gAsianSup = True or gCTLSup = True then
+ StyleWest.Select 2
+ else
+ Style.Select 2
+ end if
+ sleep 1
+ TabFont.OK
+ sleep 1
+ ' Workaround ends here
+ Kontext "FindAndReplace"
+ ReplaceWith.SetText Meldungs_Text
+ sleep 1
+ SearchAll.Click 'wenn auf Format geachtet wird,
+ sleep 1
+ call Vergleichen_und_ausgeben 'darf nur ein "k" gefunden werden
+ sleep 1
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tItalic_Replace
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "kursiv" 'Suche Format "kursiv", ersetze
+ Meldungs_Text = "Ersetzte kursiv mit durchgestrichen" 'mit Format "durchgestrichen"
+ SearchFor.SetText Such_Text
+ wait 500
+ try
+ NoFormat.Click
+ catch
+ endcatch
+ wait 500
+ Formats.Click
+ sleep 1
+ kontext
+ Active.SetPage TabFont
+ kontext "TabFont"
+ sleep 1
+ if gAsianSup = True or gCTLSup = True then
+ try
+ StyleWest.Select 2
+ catch
+ Warnlog "Style has not been found ! -> Asian-Support: " + gAsianSup + "CTL-Support: " + gCTLSup
+ Style.Select 2
+ endcatch
+ else
+ Style.Select 2
+ end if
+ sleep 1
+ TabFont.OK
+ sleep 1
+ kontext "FindAndReplace"
+ NoFormat.Click
+ ' Tried a workaround, because sometimes, searchstring ends with ','. Dont know why !?
+ Formats.Click
+ sleep 1
+ kontext
+ Active.SetPage TabFont
+ kontext "TabFont"
+ sleep 1
+ if gAsianSup = True or gCTLSup = True then
+ StyleWest.Select 2
+ else
+ Style.Select 2
+ end if
+ sleep 1
+ TabFont.OK
+ sleep 1
+ kontext "FindAndReplace"
+
+
+ ReplaceWith.SetText "durchgestrichen"
+ sleep 1
+ Formats.Click
+ kontext
+ sleep 1
+ Active.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ sleep 1
+ StrikeThrough.Select 2
+ sleep 1
+ TabFontEffects.OK
+ sleep 1
+ kontext "FindAndReplace"
+ sleep 1
+ ReplaceAll.Click
+ sleep 1
+ kontext
+ sleep 1
+ Kontext "Active"
+ if Active.Exists then
+ if Active.GetRT = 304 then
+ Active.OK 'MSG-Box (... x ersetzt) schließen
+ else
+ Warnlog "Messagebox, how often replaced, not up !"
+ end if
+ end if
+ sleep 2
+ kontext "FindAndReplace"
+ FindAndReplace.Close
+ sleep 1
+ Kontext "DocumentWriter"
+ DocumentWriter.Typekeys "<MOD1 HOME>"
+ EditSearchAndReplace
+ kontext "FindAndReplace"
+ Such_Text = "durchgestrichen"
+ SearchFor.SetText Such_Text
+ sleep 1
+ if NoFormat.IsVisible = False then More.Click
+ NoFormat.Click
+ sleep 1
+ ReplaceWith.SetText "durchgestrichen suchen"
+ sleep 1
+ NoFormat.Click
+ sleep 1
+ SearchAll.Click
+ sleep 1
+ call Vergleichen_und_ausgeben
+ FormatCharacter
+ Kontext
+ active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ if StrikeThrough.GetSelIndex <> 2 then Warnlog "Format 'Strikethrough' has not been overtaken!"
+ TabFontEffects.Cancel
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tUnderline_Search
+ if gCTLSup = True then
+ QAErrorlog "No Check for attributes if CTL enabled!"
+ goto endsub
+ end if
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "U" 'search for Attributes underlined
+ Meldungs_Text = "search Attribut Underlined"
+ if gAsianSup = false then
+ Select Case iSprache
+ case 01: ToggleAttribute(30,"True") 'Check Attributes underlined
+ case 07: ToggleAttribute(16,"True") 'Check Attributes underlined
+ case 31: ToggleAttribute(12,"True") 'Check Attributes underlined
+ case 33: ToggleAttribute(27,"True")
+ case 34: ToggleAttribute(28,"True")
+ case 39: ToggleAttribute(27,"True")
+ case 46: ToggleAttribute(30,"True")
+ case 49: ToggleAttribute(28,"True")
+ case 50: ToggleAttribute(15,"True")
+ case 55: ToggleAttribute(29,"True")
+ case 88: ToggleAttribute(13,"True")
+ case else : QAErrorlog "Please adapt test for this language!"
+ Call hCloseDocument
+ goto endsub
+ end select
+ else
+ Select Case iSprache
+ case 01: ToggleAttribute(39,"True") 'Check Attributes underlined
+ case 07: ToggleAttribute(22,"True")
+ case 31: ToggleAttribute(17,"True") 'Onderstrepen
+ case 33: ToggleAttribute(36,"True") ' Soulignage
+ case 34: ToggleAttribute(37,"True") ' Subrayado
+ case 39: ToggleAttribute(35,"True") ' Sottolineato
+ case 46: ToggleAttribute(40,"True") ' Understruken
+ case 49: ToggleAttribute(37,"True") ' Unterstrichen
+ case 50: ToggleAttribute(24,"True") ' Podčrtano
+ case 55: ToggleAttribute(38,"True") ' Sublinhado
+ case 88: ToggleAttribute(13,"True")
+ case else : QAErrorlog "Please adapt test for this language!"
+ Call hCloseDocument
+ goto endsub
+ end select
+ end if
+
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ SearchAll.Click 'if looking for the Attributes,
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tUnderline_Replace
+ if gCTLSup = True then
+ QAErrorlog "No Check for attributes if CTL enabled!"
+ goto endsub
+ end if
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "Unterstrichen" 'search for Attributes underlined
+ Meldungs_Text = "search underlined, replace shadow" 'replace with 'shadow'
+ SearchFor.SetText Such_Text
+ if gAsianSup = false then
+ Select Case iSprache
+ case 01: ToggleAttribute(30,"True") 'Check Attributes underlined
+ case 07: ToggleAttribute(16,"True")
+ case 31: ToggleAttribute(12,"True")
+ case 33: ToggleAttribute(27,"True")
+ case 34: ToggleAttribute(28,"True")
+ case 39: ToggleAttribute(27,"True")
+ case 46: ToggleAttribute(30,"True")
+ case 49: ToggleAttribute(28,"True")
+ case 50: ToggleAttribute(15,"True")
+ case 55: ToggleAttribute(29,"True")
+ case 88: ToggleAttribute(13,"True")
+ case else : QAErrorlog "Please adapt test for this language!"
+ Call hCloseDocument
+ goto endsub
+ end select
+ else
+ Select Case iSprache
+ case 01: ToggleAttribute(39,"True") 'Check Attributes underlined
+ case 07: ToggleAttribute(22,"True")
+ case 31: ToggleAttribute(17,"True") ' Onderstrepen
+ case 33: ToggleAttribute(36,"True") ' Soulignage
+ case 34: ToggleAttribute(37,"True") ' Subrayado
+ case 39: ToggleAttribute(35,"True") ' Sottolineato
+ case 46: ToggleAttribute(40,"True") ' Understruken
+ case 49: ToggleAttribute(37,"True") ' Unterstrichen
+ case 50: ToggleAttribute(24,"True") ' Podčrtano
+ case 55: ToggleAttribute(38,"True") ' Sublinhado
+ case 88: ToggleAttribute(13,"True")
+ case else : QAErrorlog "Please adapt test for this language!"
+ Call hCloseDocument
+ goto endsub
+ end select
+ end if
+ ReplaceWith.SetText "Schatten"
+ Formats.Click
+ kontext
+ Active.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ Shadow.Check
+ TabFontEffects.OK
+ kontext "FindAndReplace"
+ ReplaceAll.Click
+ Kontext "Active"
+ if Active.Exists then
+ if Active.GetRT = 304 then
+ Active.OK 'MSG-Box (... x ersetzt) schließen
+ end if
+ end if
+ kontext "FindAndReplace"
+ Such_Text = "Schatten"
+ SearchFor.SetText Such_Text
+ NoFormat.Click
+ 'ReplaceWith.SetText Meldungs_Text
+ SearchAll.Click
+ call Vergleichen_und_ausgeben
+ FormatCharacter
+ Kontext
+ active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ if NOT Shadow.IsChecked then Warnlog "Attribute 'Shadow' has not been overtaken!"
+ TabFontEffects.Cancel
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tAll_Replace
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "x" 'Replace alle
+ Meldungs_Text = "Replace alle"
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ ReplaceWith.SetText "y"
+ ReplaceAll.Click
+ Kontext "Active"
+ if Active.Exists then
+ if Active.GetRT = 304 then
+ Active.OK 'MSG-Box (... x ersetzt) schließen
+ end if
+ end if
+ Such_Text = "y" 'Suchen aller "y", um die Ersetzung
+ kontext "FindAndReplace" 'zu pruefen
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ SearchAll.Click
+ Such_Text = "yyyy" '4 mal wurde ersetzt
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tReplace_Arial_with_TmsRmn
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "opus" 'Suche Arial, 16 pt, ersetze
+ Meldungs_Text = "Ers. Arial mit Times Roman" 'mit Times New Roman, normal 24pt
+ SearchFor.SetText Such_Text
+
+ Formats.Click
+ kontext
+ Active.SetPage TabFont
+ kontext "TabFont"
+ try
+ FontWest.SetText "Arial"
+ catch
+ Font.SetText "Arial"
+ endcatch
+ sleep 2
+ try
+ SizeWest.SetText "16"
+ catch
+ Size.SetText "16"
+ endcatch
+ sleep 2
+ TabFont.OK
+ kontext "FindAndReplace"
+ ReplaceWith.SetText "Ersetzungstext"
+ sleep 2
+
+ Formats.Click
+ kontext
+ Active.SetPage TabFont
+ kontext "TabFont"
+ if gAsianSup = True or gCTLSup = True then
+ try
+ FontWest.SetText "Times New Roman"
+ catch
+ Warnlog "Control: 'FontWest' has not been found ! -> Asian-Support: " + gAsianSup + "CTL-Support: " + gCTLSup
+ Font.SetText "Times New Roman"
+ endcatch
+ else
+ Font.SetText "Times New Roman"
+ end if
+ sleep 2
+ if gAsianSup = True or gCTLSup = True then
+ StyleWest.Select 1
+ else
+ Style.Select 1
+ end if
+ sleep 2
+ try
+ SizeWest.SetText "20"
+ catch
+ Size.SetText "20"
+ endcatch
+ sleep 2
+ TabFont.OK
+ sleep 2
+ kontext "FindAndReplace"
+ ReplaceAll.Click
+
+ sleep 2
+ kontext
+ Kontext "Active"
+ if Active.Exists then
+ if Active.GetRT = 304 then
+ Active.OK 'MSG-Box (... x ersetzt) schließen
+ else
+ Warnlog "Messagebox, how often replaced, not up !"
+ end if
+ end if
+ Sleep 2
+ kontext "FindAndReplace"
+ FindAndReplace.Close
+ Kontext "DocumentWriter"
+ DocumentWriter.Typekeys "<MOD1 HOME>"
+
+ EditSearchAndReplace
+ kontext "FindAndReplace"
+ Such_Text = "Ersetzungstext"
+ SearchFor.SetText Such_Text
+ if NoFormat.IsVisible = False then More.Click
+ NoFormat.Click
+ ReplaceWith.SetText "Ersetzungstext suchen"
+ NoFormat.Click
+ SearchAll.Click
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tBackwards_Search
+ call wSetFindAndReplaceToDefault(1)
+ Sleep 2
+ FindAndReplace.Close
+ kontext "DocumentWriter" 'Suchen rückwärts, dafür an
+ DocumentWriter.Typekeys "<PAGEDOWN>" 'das Ende des Dokuments gehen
+ DocumentWriter.Typekeys "<MOD1 END>"
+ Such_Text = "no"
+ Meldungs_Text = "Suchen rückwärts"
+ EditSearchAndReplace
+ kontext "FindAndReplace"
+ if Backwards.IsVisible = False then More.Click
+ Backwards.Check
+ if WholeWordsOnly.ischecked then
+ Warnlog " 'Match case' is checked"
+ WholeWordsOnly.uncheck
+ end if
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ SearchNow.Click
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tSeveral_Times
+ dim Zaehler as integer
+
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "m" 'Suchen mehrmals
+ Meldungs_Text = "Suchen mehrmals"
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ for Zaehler = 1 to 10
+ SearchNow.Click
+ next Zaehler
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tAlle_Suchen
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "x" 'Suchen alle
+ Meldungs_Text = "Suchen alle"
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ SearchAll.Click
+ Such_Text = "xxxx" 'im Beispieltext kommt "x" 4 mal vor
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tFurther_Look_up_At_The_Beginning
+ call wSetFindAndReplaceToDefault(1)
+ Sleep 2
+ FindAndReplace.Close 'Meldung am Dokumentende
+ kontext "DocumentWriter"
+ DocumentWriter.Typekeys "<MOD1 END>" 'and Ende des Dokuments gehen
+ Such_Text = "o"
+ Meldungs_Text = "Am Dokumentanfang weitersuchen"
+ EditSearchAndReplace
+ kontext "FindAndReplace"
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ SearchNow.Click
+ Kontext "Active"
+ if Active.Exists (1) then
+ dummy_text = Active.GetText 'Auslesen der Meldung (dt/engl/frz)
+ call Meldungs_Test (dummy_text) 'in der Query-Box und Schließen
+ Active.Yes 'mit JA
+ end if
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tParagraphStyle_Search
+ call wSetFindAndReplaceToDefault(1)
+ ' print "the base for the dialog isn't reached!???? before"
+ if Not SearchForStyles.IsVisible then More.Click
+ SearchForStyles.Check
+ ' <font color=#ff0000> TBO TODO : insert global LOCALE routine for text : 'Heading' </FONT>
+ Select Case iSprache
+ Case 01 : Such_Text = "Heading"
+ Case 03 : Such_Text = "Título"
+ Case 07 : Such_Text = "Заголовок"
+ Case 31 : Such_Text = "Kop"
+ Case 33 : Such_Text = "Titre"
+ Case 34 : Such_Text = "Encabezado"
+ Case 39 : Such_Text = "Intestazione"
+ Case 46 : Such_Text = "Överskrift"
+ Case 49 : Such_Text = "Überschrift" 'Suchen Absatzformat "Überschrift"
+ Case 50 : Such_Text = "Naslov"
+ Case 55 : Such_Text = "Título Principal"
+ Case 81 : Such_Text = "見出し"
+ Case 86 : Such_Text = "标题"
+ Case 88 : Such_Text = "標題"
+ case else: QAErrorlog "Insert heading-name (" + wGetHeadingName + ") for language: " + iSprache
+ Call hCloseDocument
+ goto endsub
+ end select
+ Meldungs_Text = "Suchen Absatzformat"
+ Sleep 2
+ FindAndReplace.Close
+ kontext "DocumentWriter"
+ DocumentWriter.Typekeys "<RIGHT>"
+ DocumentWriter.Typekeys "<LEFT>"
+ EditSearchAndReplace
+ kontext "FindAndReplace"
+ if SearchForStyles.IsVisible = False then More.Click
+ SearchForStyles.Check
+ sleep 1 'Vorlagen muessen erst gelesen werden
+ SearchForStyle.Select Such_Text
+ SearchNow.Click
+ Such_Text = chr(9) + "Absatzformat: Überschrift"
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tText_In_Table
+ call wSetFindAndReplaceToDefault(1)
+'warnlog "WorkAround beginn-----------------"
+' kontext "FindAndReplace"
+' Sleep 2
+' if FindAndReplace.Exists then 'Evtl. offenes Fenster schließen
+' FindAndReplace.Close
+' end if
+' kontext "DocumentWriter"
+' EditSearchAndReplace
+' kontext "FindAndReplace" 'Suchen&Replace-Fenster öffnen
+' sleep 2
+'warnlog "WorkAround ending!-----------------"
+
+ 'print "the base for the dialog isn't reached!???? after!"
+ Such_Text = "Tabelle" 'Suchen Text in Tabelle
+ Meldungs_Text = "Text in Tabelle"
+ try
+ SearchFor.SetText Such_Text
+ catch
+ print "Text in table not enabled"
+ endcatch
+ ReplaceWith.SetText Meldungs_Text
+ SearchNow.Click
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+testcase tText_In_Frame
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "Rahmen" 'Suchen Text in Rahmen
+ Meldungs_Text = "Suchen Text in Rahmen" '
+ SearchFor.SetText Such_Text
+ ReplaceWith.SetText Meldungs_Text
+ SearchNow.Click
+ call Vergleichen_und_ausgeben
+ Call hCloseDocument
+endcase
+
+'---------------------------------------------------------
+
+testcase tSimilarity_Search
+ dim Zaehler as integer
+ dim Zaehler2 as integer
+ dim Zeichen_Tauschen as integer
+ dim Zeichen_Hinzufuegen as integer
+ dim Zeichen_Entfernen as integer
+
+ call wSetFindAndReplaceToDefault(1)
+ Such_Text = "Ähnlichkeit" 'Ähnlichkeitssuche
+ SearchFor.SetText Such_Text
+ if SimilaritySearch.IsVisible = False then More.Click
+ SimilaritySearch.check
+ for Zaehler2 = 1 to 4 'Es werden die Optionen
+ for Zaehler = 1 to 3 'Tauschen, Hinzufuegen und Entfernen
+ Zeichen_Tauschen = 0 '1 bis 3 mal angechewählt
+ Zeichen_Hinzufuegen = 0
+ Zeichen_Entfernen = 0
+ if SimilaritySearch.IsVisible = False then More.Click
+ SimilaritySearchFor.click
+ kontext "Aehnlichkeitssuche"
+ Kombinieren.check
+ ZeichenTauschen.ToMin
+ ZeichenHinzufuegen.ToMin
+ ZeichenEntfernen.ToMin
+ ZeichenTauschen.Less
+ ZeichenHinzufuegen.Less
+ ZeichenEntfernen.Less
+ select case Zaehler2
+ Case 1 : Zeichen_Tauschen = Zaehler
+ Case 2 : Zeichen_Hinzufuegen = Zaehler
+ Case 3 : Zeichen_Entfernen = Zaehler
+ Case 4 : Zaehler = 3 'Die 3 Optionen werden gleichzeitig
+ Zeichen_Tauschen = Zaehler 'angewählt.
+ Zeichen_Hinzufuegen = Zaehler
+ Zeichen_Entfernen = Zaehler
+ end select
+ ZeichenTauschen.More (Zeichen_Tauschen)
+ ZeichenHinzufuegen.More (Zeichen_Hinzufuegen)
+ ZeichenEntfernen.More (Zeichen_Entfernen)
+ Aehnlichkeitssuche.OK
+ kontext "FindAndReplace"
+ SearchAll.Click
+ select case Zeichen_Tauschen
+ Case 1 : Such_Text = "Ähnlechkiit"
+ Meldungs_Text = "Ähnlichkeitssuche Tauschen 1x"
+ Case 2 : Such_Text = "ÄhnlechkiitÄhnilchkiet"
+ Meldungs_Text = "Ähnlichkeitssuche Tauschen 2x"
+ Case 3 : Such_Text = "ÄhnlechkiitÄhnilchkiethänilchkiet"
+ Meldungs_Text = "Ähnlichkeitssuche Tauschen 3x"
+ end select
+ select case Zeichen_Hinzufuegen
+ Case 1 : Such_Text = "Ähnnlichkeit"
+ Meldungs_Text = "Ähnlichkeitssuche Hinzufuegen 1x"
+ Case 2 : Such_Text = "ÄhnnlichkeitÄhnnliichkeit"
+ Meldungs_Text = "Ähnlichkeitssuche Hinzufuegen 2x"
+ Case 3 : Such_Text = "ÄhnnlichkeitÄhnnliichkeitÄhnliichhkeeit"
+ Meldungs_Text = "Ähnlichkeitssuche Hinzufuegen 3x"
+ end select
+ select case Zeichen_Entfernen
+ Case 1 : Such_Text = "Ähnlichkei"
+ Meldungs_Text = "Ähnlichkeitssuche Entfernen 1x"
+ Case 2 : Such_Text = "ÄhnlichkeiÄhnlichke"
+ Meldungs_Text = "Ähnlichkeitssuche Entfernen 2x"
+ Case 3 : Such_Text = "ÄhnlichkeiÄhnlichkeÄhnlichk"
+ Meldungs_Text = "Ähnlichkeitssuche Entfernen 3x"
+ end select
+ if Zaehler2 = 4 then
+ Such_Text = "ÄhnlechkiitÄhnilchkiethänilchkietÄhnnlichkeitÄhnnliichkeitÄhnliichhkeeitÄhnlichkeiÄhnlichkeÄhnlichkÄnhliikheeii"
+ Meldungs_Text ="Ähnlichkeitssuche Hinzu+Entfern+Tausch, je3x"
+ end if
+ call Vergleichen_und_ausgeben
+ kontext "DocumentWriter"
+ DocumentWriter.Typekeys "<PAGEUP>", 'an den Anfang des Textes gehen
+ DocumentWriter.Typekeys "<MOD1 HOME>"
+ EditSearchAndReplace
+ kontext "FindAndReplace" 'Suchen&Replace-Fenster öffnen
+ next Zaehler
+ next Zaehler2
+ Call hCloseDocument
+endcase
+
+' ----------------------------------------------------------------------------------
+
+function wCountNumberOfAttributes() as Integer
+ Dim i as integer, AttributeCount as integer
+ Attribute.Click
+ Kontext "Attribute"
+ wait 500
+ ' Count how much Attributes are in the list
+ For i = 1 to 200
+ try
+ Auswahl.Select i
+ printlog Auswahl.GetSelText
+ AttributeCount = AttributeCount + 1
+ catch
+ wCountNumberOfAttributes = AttributeCount
+ i = 202
+ endcatch
+ next i
+ Attribute.Close
+end function
+
+' ----------------------------------------------------------------------------------
+
+function wSelectAttributeName(aNumber as integer, AsianSupport as boolean, SetState as integer) as string
+ 'This function checks for the Attribute name depending on the given number (aNumber).
+ 'SetState is given to check or uncheck the Attribute in list
+ 'Returns the Attribute name if found and successfully checked in list.
+ 'Default for this test is given from the german office-Version (easier for me:-))
+ Dim i as integer, aSelectIt as String
+ Kontext "FindAndReplace"
+ Attributes.Click
+ Kontext "Attribute"
+
+ Select Case aNumber
+ Case 1
+ Select Case iSprache
+ Case 49: aSelectIt = "Absatz trennen"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 2
+ Select Case iSprache
+ Case 49: aSelectIt = "Absätze zusammenhalten"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 3
+ Select Case iSprache
+ Case 49: aSelectIt = "Abstand"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 4
+ Select Case iSprache
+ Case 49: aSelectIt = "Asiatische Schrift"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 5
+ Select Case iSprache
+ Case 49: aSelectIt = "Ausrichtung"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 6
+ Select Case iSprache
+ Case 49: aSelectIt = "Auszeichnung"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 7
+ Select Case iSprache
+ Case 49: aSelectIt = "Betonungszeichen"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 8
+ Select Case iSprache
+ Case 49: aSelectIt = "Blinkend"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 9
+ Select Case iSprache
+ Case 49: aSelectIt = "Doppelzeilig"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 10
+ Select Case iSprache
+ Case 49: aSelectIt = "Durchgestrichen"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 11
+ Select Case iSprache
+ Case 49: aSelectIt = "Einzug"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 12
+ Select Case iSprache
+ Case 49: aSelectIt = "Hängende Interpunktion"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 13
+ Select Case iSprache
+ Case 49: aSelectIt = "Hurenkinder"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 14
+ Select Case iSprache
+ Case 49: aSelectIt = "Kerning"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 15
+ Select Case iSprache
+ Case 49: aSelectIt = "Kontur"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 16
+ Select Case iSprache
+ Case 49: aSelectIt = "Position"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 17
+ Select Case iSprache
+ Case 49: aSelectIt = "Registerhaltigkeit"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 18
+ Select Case iSprache
+ Case 49: aSelectIt = "Relief"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 19
+ Select Case iSprache
+ Case 49: aSelectIt = "Rotation"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 20
+ Select Case iSprache
+ Case 49: aSelectIt = "Schattiert"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 21
+ Select Case iSprache
+ Case 49: aSelectIt = "Schrift"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 22
+ Select Case iSprache
+ Case 49: aSelectIt = "Schriftfarbe"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 23
+ Select Case iSprache
+ Case 49: aSelectIt = "Schriftgrad"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 24
+ Select Case iSprache
+ Case 49: aSelectIt = "Schriftgrad asiatische Schrift"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 25
+ Select Case iSprache
+ Case 49: aSelectIt = "Schriftstärke"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 26
+ Select Case iSprache
+ Case 49: aSelectIt = "Schriftstärke asiatische Schrift"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 27
+ Select Case iSprache
+ Case 49: aSelectIt = "Schriftstellung"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 28
+ Select Case iSprache
+ Case 49: aSelectIt = "Schriftstellung asiatische Schrift"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 29
+ Select Case iSprache
+ Case 49: aSelectIt = "Schusterjungen"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 30
+ Select Case iSprache
+ Case 49: aSelectIt = "Seitenvorlage"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 31
+ Select Case iSprache
+ Case 49: aSelectIt = "Hyphenation"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 32
+ Select Case iSprache
+ Case 49: aSelectIt = "Skalierung"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 33
+ Select Case iSprache
+ Case 49: aSelectIt = "Sprache"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 34
+ Select Case iSprache
+ Case 49: aSelectIt = "Sprache asiatische Schrift"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 35
+ Select Case iSprache
+ Case 49: aSelectIt = "Tabulatoren"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 36
+ Select Case iSprache
+ Case 49: aSelectIt = "Text Abstand"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 37
+ Select Case iSprache
+ Case 49: aSelectIt = "Unterstrichen"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 38
+ Select Case iSprache
+ Case 49: aSelectIt = "Verbotene Zeichen"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 39
+ Select Case iSprache
+ Case 49: aSelectIt = "Vertikale Textausrichtung"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 40
+ Select Case iSprache
+ Case 49: aSelectIt = "Wortweise"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 41
+ Select Case iSprache
+ Case 49: aSelectIt = "Zeichenhintergrund"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ Case 42
+ Select Case iSprache
+ Case 49: aSelectIt = "Zeilenabstand"
+ Case else: Warnlog "Language not supported. No test"
+ exit function
+ end select
+
+ end select
+
+ ' Searches for selected Attribute in Attributes list
+ For i = 1 to 42
+ try
+ Auswahl.Select i
+ if Ucase(Auswahl.GetSelText) = Ucase(aSelectIt) then
+ Select Case SetState
+ Case 1
+ Auswahl.UnCheck
+ Case 2
+ Auswahl.Check
+ end select
+ wSelectAttributeName = aSelectIt
+ i = 50
+ end if
+ catch
+ i = 50
+ endcatch
+ next i
+ 'if Attributes not found
+ if i = 42 then
+ if AsianSupport = True then Warnlog "Unable to locate Attribute in list!"
+ wSelectAttributeName = ""
+ end if
+ Attribute.Ok
+end function
+
+
+sub wCheckAttribute(aNumber as integer)
+ Dim i as integer
+ Kontext "FindAndReplace"
+ SearchNow.Click
+ if wCheckActiveMessageboxes = False then
+ Warnlog "Search for Attributes has failed!"
+ exit sub
+ end if
+ Select Case aNumber
+ Case 1 ' "Absatz trennen"
+ EditCopy
+ if Left$(GetClipboardtext,15) <> "First Paragraph" then
+ Warnlog "- Wrong paragraph has been found!"
+ end if
+ Case 2 '"Absätze zusammenhalten"
+ EditCopy
+ if Left$(GetClipboardtext,25) <> "Keep with next paragraph1" then
+ Warnlog "- Wrong paragraph has been found!"
+ end if
+ Case 3 '"Abstand"
+ EditCopy
+ if Left$(GetClipBoardText,15) <> "Spacing between" then
+ Warnlog "- Wrong paragraph has been found!"
+ end if
+ Case 4 '"Asiatische Schrift"
+ Case 5 '"Ausrichtung"
+ EditCopy
+ if Left$(GetClipBoardtext,20) <> "Wow, Alignment right" then
+ Warnlog "- Wrong paragraph has been found!"
+ else
+ printlog "- 'Alignment right' found!"
+ end if
+ For i = 1 to 2
+ Kontext "FindAndReplace"
+ SearchNow.Click
+ if wCheckActiveMessageboxes = False then
+ Warnlog "Search for Attributes has failed!"
+ exit sub
+ end if
+ EditCopy
+ Select Case i
+ Case 1
+ if Left$(GetClipBoardtext,23) <> "Wow, Alignment centered" then
+ Warnlog "- Wrong paragraph has been found!"
+ exit sub
+ else
+ printlog "- 'Alignment centered' found!"
+ end if
+ Case 2
+ if Left$(GetClipBoardtext,24) <> "Wow, Alignment justified" then
+ Warnlog "- Wrong paragraph has been found!"
+ exit sub
+ else
+ printlog "- 'Alignment justified' found!"
+ end if
+ end select
+ next i
+ Case 6 '"Auszeichnung"
+ EditCopy
+ If Ucase(GetClipBoardtext) <> "CAPITALS" then
+ Warnlog "Wrong effect has been found"
+ exit sub
+ end if
+ For i = 1 to 3
+ Kontext "FindAndReplace"
+ SearchNow.Click
+ if wCheckActiveMessageboxes = False then
+ Warnlog "Search for effects has failed!"
+ exit sub
+ end if
+ EditCopy
+ Select Case i
+ Case 1
+ If Ucase(GetClipBoardtext) <> "LOWERCASE" then
+ Warnlog "Wrong effect has been found"
+ exit sub
+ end if
+ Case 2
+ If Ucase(GetClipBoardtext) <> "TITLE" then
+ Warnlog "Wrong effect has been found"
+ exit sub
+ end if
+ Case 3
+ If Ucase(GetClipBoardtext) <> "SMALL CAPITALS" then
+ Warnlog "Wrong effect has been found"
+ exit sub
+ end if
+ end select
+ next i
+ Case 7 '"Betonungszeichen"
+ Case 8 '"Blinkend"
+ EditCopy
+ if Left$(GetClipBoardText,13) <> "Blinking text" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ Case 9 '"Doppelzeilig"
+ Case 10 '"Durchgestrichen"
+ EditCopy
+ if Left$(GetClipBoardText,14) <> "Strike through" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ For i = 1 to 4
+ Kontext "FindAndReplace"
+ SearchNow.Click
+ EditCopy
+ if Left$(GetClipBoardText,14) <> "Strike through" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ next i
+ Case 11 '"Einzug"
+ EditCopy
+ if Left$(GetClipBoardText,6) <> "Indent" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ Case 12 '"Hängende Interpunktion"
+ Case 13 '"Hurenkinder"
+ EditCopy
+ if Left$(GetClipBoardText, 9) <> "Hurenkind" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ Kontext "FindAndReplace"
+ SearchNow.Click
+ EditCopy
+ if Left$(GetClipBoardText, 8) <> "tstststs" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ Case 14 '"Kerning"
+ EditCopy
+ if Left$(GetClipBoardText, 8) <> "Kerning1" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ Kontext "FindAndReplace"
+ SearchNow.Click
+ EditCopy
+ if Left$(GetClipBoardText, 8) <> "Kerning2" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ Case 15 '"Kontur"
+ EditCopy
+ if Left$(GetClipBoardText, 6) <> "Kontur" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ Case 16 '"Position"
+ EditCopy
+ if Left$(GetClipBoardText, 4) <> "Hoch" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ Kontext "FindAndReplace"
+ SearchNow.Click
+ EditCopy
+ if Left$(GetClipBoardText, 4) <> "Tief" then
+ Warnlog "- Wrong Attribute has been found!"
+ end if
+ Case 17 '"Registerhaltigkeit"
+
+ Case 18 '"Relief"
+ Case 19 '"Rotation"
+ Case 20 '"Schattiert"
+ Case 21 '"Schrift"
+ Case 22 '"Schriftfarbe"
+ Case 23 '"Schriftgrad"
+ Case 24 '"Schriftgrad asiatische Schrift"
+ Case 25 '"Schriftstärke"
+ Case 26 '"Schriftstärke asiatische Schrift"
+ Case 27 '"Schriftstellung"
+ Case 28 '"Schriftstellung asiatische Schrift"
+ Case 29 '"Schusterjungen"
+ Case 30 '"Seitenvorlage"
+ Case 31 '"Hyphenation"
+ Case 32 '"Skalierung"
+ Case 33 '"Sprache"
+ Case 34 '"Sprache asiatische Schrift"
+ Case 35 '"Tabulatoren"
+ Case 36 '"Text Abstand"
+ Case 37 '"Unterstrichen"
+ Case 38 '"Verbotene Zeichen"
+ Case 39 '"Vertikale Textausrichtung"
+ Case 40 '"Wortweise"
+ Case 41 '"Zeichenhintergrund"
+ Case 42 '"Zeilenabstand"
+ end select
+ Kontext "FindAndReplace"
+end sub
+
+function wCheckActiveMessageboxes() as boolean
+ wCheckActiveMessageboxes=True
+ Kontext "Active"
+ if Active.Exists then
+ if Active.GetRT = 304 then
+ try ' Question if StarOffice should search at start of document
+ Active.yes
+ ' Exit when search has again failed
+ if Active.Exists then
+ if Active.GetRT = 304 then
+ wCheckActiveMessageboxes = False
+ Warnlog Active.Gettext
+ Active.Ok
+ end if
+ end if
+ catch
+ wCheckActiveMessageboxes = False
+ Warnlog Active.Gettext
+ Active.Ok
+ endcatch
+ end if
+ end if
+end function
+
+'---------------------------------------------------------
+' Unterprogramme
+'---------------------------------------------------------
+'---------------------------------------------------------
+sub wSetFindAndReplaceToDefault(WhichDocument as integer)
+ '/// <font color=#ff0000> TODO: translate this test ///'
+ '/// file "input\\writer\\such_u_e.sxw" will be used <FONT> ///
+ Dim i as integer
+ Select Case WhichDocument
+ Case 0
+ Call hNewDocument ' empty Document
+ Case 1
+ Call hFileOpen ( gTesttoolPath +"writer\optional\input\search\such_u_e.sxw")
+ Call sMakeReadOnlyDocumentEditable
+ case 2
+ Call hFileOpen ( gTesttoolPath +"writer\optional\input\search\attrib.sxw")
+ Call sMakeReadOnlyDocumentEditable
+ end select
+ kontext "FindAndReplace"
+ Sleep 2
+ if FindAndReplace.Exists then 'Evtl. offenes Fenster schließen
+ FindAndReplace.Close
+ end if
+ kontext "DocumentWriter"
+ DocumentWriter.Typekeys "<PAGEUP>", 'an den Anfang des Textes gehen
+ DocumentWriter.Typekeys "<MOD1 HOME>"
+ EditSearchAndReplace
+ kontext "FindAndReplace" 'Suchen&Replace-Fenster öffnen
+ if Not SearchForStyles.IsVisible then More.Click
+ if SearchForStyles.IsEnabled then SearchForStyles.Uncheck
+ try
+ SearchFor.SetText ""
+ catch
+ warnlog "in 'grundzustand' writing a text to search for is not possible :-("
+ endcatch
+ if SimilaritySearch.IsEnabled then SimilaritySearch.Uncheck
+ ' Column 1
+ WholeWordsOnly.Uncheck
+ Backwards.Uncheck
+ RegularExpressions.Uncheck
+ ' Column 2
+ MatchCase.Uncheck
+ if CurrentSelectionOnly.IsEnabled then CurrentSelectionOnly.Uncheck
+ 'Column 3
+ Attributes.Click
+ Kontext "Attribute"
+ ' List has 32 Attributes
+ For i = 1 to 32
+ Auswahl.Select i
+ Auswahl.Uncheck
+ Next i
+ Attribute.OK
+ kontext "FindAndReplace"
+ if NoFormat.IsEnabled then NoFormat.Click
+ Kontext "FindAndReplace"
+end sub
+
+'---------------------------------------------------------
+sub Vergleichen_und_ausgeben
+ 'ht Such_Text mit dem,
+ dim i as integer
+ dim Boxen_RT as integer
+
+ kontext
+ for i = 1 to 2 'Close all Message-, Info-, and Query-Boxes
+ if active.exists (1) then
+ Boxen_RT = Active.GetRT
+ select case Boxen_RT
+ Case 304, 305 : Active.OK
+ Case 308 : Active.Yes
+ end select
+ end if
+ next i
+ kontext "FindAndReplace"
+ Sleep 2
+ try
+ FindAndReplace.Close
+ catch
+ Warnlog "Dialog is not present. Should be open!"
+ endcatch
+
+ wait 500
+ Kontext "DocumentWriter"
+ try
+ BearbeitenKopieren
+ catch
+ DocumentWriter.Typekeys "<PAGEUP>"
+ DocumentWriter.Typekeys "<MOD1 END>"
+ DocumentWriter.Typekeys "<SHIFT LEFT>", 15
+ EditCopy
+ endcatch
+ wait 500
+ dummy_Text = GetClipboardText
+ if dummy_Text = Such_Text then
+ Printlog "OK ",Meldungs_Text
+ else
+ warnlog "'",Such_Text,"' was not found, but '", Dummy_Text, "' " '"With '" + Meldungs_Text+ "'
+ end if
+ Sleep 2
+end sub
+
+'--------------------------------------------------------- 'abhängig von der Sprache wird die
+sub Meldungs_Test
+ 'Meldung "...bis zum Dokumentende
+ dim Text_In_Meldung as string, sProduct as string
+
+ if gOOO = true then
+ sProduct = "OpenOffice.org"
+ else
+ sProduct = "Oracle Open Office"
+ end if
+
+ select case iSprache
+ Case 01 : Text_In_Meldung = sProduct & " Writer has searched to the end of the document. Do you want to continue at the beginning?"
+ Case 07 : Text_In_Meldung = sProduct & " Writer осуществил поиск к концу документа. Продолжить поиск с начала документа?"
+ Case 03 : Text_In_Meldung = "O " & sProduct & " Writer procurou até ao fim do documento. Deseja continuar a procura no início do documento?"
+ Case 31 : Text_In_Meldung = sProduct & " Writer heeft tot aan het einde van het document gezocht. Wilt u doorgaan met zoeken vanaf het begin?"
+ Case 33 : Text_In_Meldung = sProduct & " Writer a atteint la fin du document. Souhaitez-vous reprendre la recherche au début du document ?"
+ Case 34 : Text_In_Meldung = sProduct & " Writer ha buscado hasta el final del documento. ¿Desea continuar la búsqueda desde el principio?"
+ Case 39 : Text_In_Meldung = sProduct & " Writer ha cercato fino alla fine del documento. Volete continuare dall'inizio del documento?"
+ Case 46 : Text_In_Meldung = sProduct & " Writer har sökt till slutet av dokument. Vill du fortsätta sökningen i början av dokumentet?"
+ Case 49 : Text_In_Meldung = sProduct & " Writer hat bis zum Ende des Dokumentes gesucht. Möchten Sie die Suche am Dokumentanfang fortsetzen?"
+ Case 50 : Text_In_Meldung = sProduct & " Writer je preiskal do konca dokumenta. Ali želite nadaljevati na začetku?"
+ Case 55 : Text_In_Meldung = sProduct & " Writer pesquisou até o final do documento. Deseja continuar do início?"
+ Case 81 : Text_In_Meldung = sProduct & " Writer は、文書末まで検索しました。文書の始めに戻って続行しますか。"
+ Case 82 : Text_In_Meldung = sProduct & " Writer가 문서의 끝까지 검색했습니다. 문서의 시작부분에서 검색을 계속하겠습니까?"
+ Case 88 : Text_In_Meldung = sProduct & " Writer 已經搜尋至文件的結束位置。要從文件的起始位置繼續搜尋？"
+ end select
+
+ if Dummy_text = Text_In_Meldung then
+ printlog "OK Correct Message at end of document"
+ else
+ if Text_In_Meldung > "" then
+ Warnlog " No correct message at end of document"
+ printlog Dummy_text
+ else
+ QAErrorlog "Please adapt test for this language!"
+ printlog Dummy_text
+ end if
+ end if
+end sub
+
+
+function ToggleAttribute(sNumber as integer, sCheck as boolean)
+ Kontext "FindAndReplace"
+ Attributes.Click
+ Kontext "Attribute"
+ Auswahl.Select sNumber 'Check Attributes underlined
+ wait 500
+ if sCheck = "True" then
+ Auswahl.Check
+ else
+ Auswahl.Uncheck
+ end if
+ wait 500
+ Attribute.OK
+ Kontext "FindAndReplace"
+end function
+
+
+function wGetHeadingName() as string
+ ' This function gets the name 'Heading' from Stylist
+ ' Needed this function for additional languages !
+ FormatStylist
+ Kontext "Stylist"
+ if Stylist.NotExists then FormatStylist
+ Absatzvorlagen.Click
+
+ ' "Heading" should always be the 9th entry
+ Gruppenliste.Select 5 ' Automatic
+ wait 500
+ Vorlagenliste.Select 9 ' Heading
+ wGetHeadingName = Vorlagenliste.GetSeltext
+ Call SetClipboard (wGetHeadingName)
+ printlog "- Name of 'heading' for this language has been pasted to clipboard!"
+ Stylist.Close
+end function
+
+'---------------------------------------------------------
+sub LoadIncludeFiles
+ use "inc\master.inc"
+ use "inc\gvariabl.inc"
+ gApplication = "WRITER"
+ Call GetUseFiles
+end sub
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-03 13:26:07 +0000