testautomation/writer/optional/includes/tools/tools2.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: tools2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:38:33 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : helge.delfs@sun.com
  35 '*
  36 '* short description : Tools for writer/Optional - 2
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 fStartupNavigator
  41 ' #1 fCloseNavigator
  42 ' #1 StrToDouble
  43 ' #1 fCalculateTolerance
  44 ' #1 fFindWord
  45 ' #1 fGetLanguageName
  46 '*
  47 '\***********************************************************************
  48
  49 function fStartupNavigator(navigatorItem as String , subItemNum as Integer)
  50 '/// Start up Navigator , and set focus to the correct position
  51     Dim j as Integer
  52
  53    Kontext "Navigator"
  54    if NOT Navigator.Exists then
  55        ViewNavigator
  56    end if
  57    Sleep 2
  58    Kontext "NavigatorWriter"
  59    if Auswahlliste.GetItemCount < 11 then
  60        Inhaltsansicht.Click
  61        Sleep 1
  62    end if
  63    Auswahlliste.TypeKeys "<Home>"         '<- Set focus to first entry
  64    if Auswahlliste.GetItemCount > 11 then '<- If nodes are open
  65        For j= 1 to 12                     '<- close all nodes
  66            Auswahlliste.Select j
  67            Sleep 1
  68            Auswahlliste.TypeKeys "-"
  69            Sleep 1
  70        next j
  71    end if
  72    Auswahlliste.TypeKeys "<Home>"   ' point focus to first entry
  73    sleep 3
  74
  75    Select case navigatorItem
  76      case "Headings"        : goto GoON
  77      case "Tables"          : Auswahlliste.TypeKeys "<down>"
  78      case "TextFrame"       : Auswahlliste.TypeKeys "<down>" , 2
  79      case "Graphics"        : Auswahlliste.TypeKeys "<down>" , 3
  80      case "OLEObject"       : Auswahlliste.TypeKeys "<down>" , 4
  81      case "Bookmarks"       : Auswahlliste.TypeKeys "<down>" , 5
  82      case "Section"         : Auswahlliste.TypeKeys "<down>" , 6
  83      case "Hyperlinks"      : Auswahlliste.TypeKeys "<down>" , 7
  84      case "References"      : Auswahlliste.TypeKeys "<down>" , 8
  85      case "Indexes"         : Auswahlliste.TypeKeys "<down>" , 9
  86      case "Notes"           : Auswahlliste.TypeKeys "<down>" , 10
  87      case "DrawObjects"     : Auswahlliste.TypeKeys "<down>" , 11
  88    end Select
  89    sleep 2
  90 GoON:
  91    Auswahlliste.TypeKeys "<return>"
  92    sleep 2
  93    Inhaltsansicht.Click
  94    sleep 2
  95    Auswahlliste.TypeKeys "<Up>",subItemNum
  96    sleep 2
  97 end function
  98
  99 '-------------------------------------------------------------------------
 100
 101 function fCloseNavigator
 102 '/// Close Navigator
 103    Kontext "Navigator"
 104    Sleep 3
 105    if Navigator.Exists(2) then
 106        Navigator.Close
 107    end if
 108    Sleep 3
 109 end function
 110
 111 '-------------------------------------------------------------------------
 112
 113 function StrToDouble ( sWert$ ) as Double
 114 '/// Transfer String to Double , including
 115 '/// 2.00cm --> 2.00
 116 '/// 2,00cm --> 2.00
 117 '/// 20%    --> 20
 118
 119   dim sDummy$
 120   dim i, i1, i2 as integer
 121   dim a as integer
 122   dim b as integer
 123   dim c as double
 124   dim n as integer
 125
 126 '/// Input : {'a[. ,]b[mm cm " pi pt]' with a, b as integer} as String
 127 '///+ Output: a[. , ]b as double
 128
 129 ' get rid of measure unit, the only single character is '"' all others are two chars
 130
 131       if (isNumeric (sWert$) = FALSE) then
 132          if (   (StrComp (right (sWert$, 1), chr$(34) ) = 0)  OR  (StrComp (right (sWert$, 1), "%") = 0 )) then
 133             sDummy$ = Left ( sWert$, Len(sWert$)-1 )
 134          else
 135             sDummy$ = Left ( sWert$, Len(sWert$)-Len(gMeasurementUnit) )
 136          end if
 137       else
 138          sDummy$ = sWert$
 139       end if
 140    ' get position of fraction mark
 141       i1 = instr (sDummy$, ",")  ' wrong output
 142       i2 = instr (sDummy$, ".")
 143       if i1 > i2 then i = i1 else i = i2
 144         ' vorkommateil
 145          try
 146             a = val (left (sDummy$,i-1))
 147          catch
 148             a = val ( sDummy$ )
 149             c = 0
 150             GoTo OK
 151          endcatch
 152
 153          n = (len (sDummy$)-i)
 154          b = val (right (sDummy$, n) )
 155          c = b * 10 ^ -n
 156 OK:
 157          StrToDouble = a + c
 158 end function
 159
 160 '-------------------------------------------------------------------------
 161
 162 function fCalculateTolerance (sNumber1 , sNumber2) as Single
 163 '/// Change 2 parameters to number , then Compare them and return the result.
 164    Dim ss as Single
 165    Dim dNumber1        , dNumber2         as Single
 166    Dim iCommaLocation1 , iCommaLocation2  as Integer
 167
 168   'the code below 4 lines is set "2,00cm" to "2.00"cm if needed
 169    iCommaLocation1 = InStr(sNumber1 , ",")
 170    if iCommaLocation1 > 0 then
 171       sNumber1 = Left(sNumber1 , iCommaLocation1-1) + "." + Right(sNumber1,Len(sNumber1) - iCommaLocation1)
 172    end if
 173
 174    iCommaLocation2 = InStr(sNumber2 , ",")
 175    if iCommaLocation2 > 0 then
 176       sNumber2 = Left(sNumber2 , iCommaLocation2-1) + "." + Right(sNumber2,Len(sNumber2) - iCommaLocation2)
 177    end if
 178
 179    dNumber1 = Val( Left(sNumber1, Len(sNumber1)-Len(gMeasurementUnit) ))
 180    dNumber2 = Val( Left(sNumber2, Len(sNumber2)-Len(gMeasurementUnit) ))
 181
 182    fCalculateTolerance = Abs( dNumber1 - dNumber2 )
 183 end function
 184
 185 '-------------------------------------------------------------------------
 186
 187 function fFindWord (sTest) as String
 188 '/// Set the focus to the word which you want
 189     Kontext
 190     EditSearchAndReplace
 191     Kontext "FindAndReplace"
 192     SearchFor.SetText sTest
 193     Sleep 1
 194     SearchAll.Click
 195     Sleep 1
 196     FindAndReplace.Close
 197 end function
 198
 199 '-------------------------------------------------------------------------
 200
 201 function fGetLanguageName( CountryID as Integer ) as String
 202 '/// This routine will return the Language name based on CountryID
 203     select case iSprache
 204         case 01   :        ' English (USA)
 205             select case CountryID
 206                 case 1:  fGetLanguageName = "English (USA)"
 207                 case 31:  fGetLanguageName = "Dutch (Netherlands)"
 208                 case 33: fGetLanguageName = "French (France)"
 209                 case 34: fGetLanguageName = "Spanish (Spain)"
 210                 case 39: fGetLanguageName = "Italian (Italy)"
 211                 case 46: fGetLanguageName = "Swedish (Sweden)"
 212                 case 49: fGetLanguageName = "German (Germany)"
 213                 case 55: fGetLanguageName = "Portuguese (Brazil)"
 214                 case 81: fGetLanguageName = "Japanese"
 215                 case 82: fGetLanguageName = "Korean (RoK)"
 216                 case 86: fGetLanguageName = "Chinese (simplified)"
 217                 case 88: fGetLanguageName = "Chinese (traditional)"
 218                 case else :
 219                 QAErrorLog "Now, the test does not support for the language " +iSprache
 220                 fGetLanguageName = ""
 221             end select
 222
 223         case 31   :        ' Dutch
 224             select case CountryID
 225                 case 1:  fGetLanguageName = "Engels (VS)"
 226                 case 31:  fGetLanguageName = "Netherlands (NL)"
 227                 case 33: fGetLanguageName = "Frans (Frankrijk)"
 228                 case 34: fGetLanguageName = "Spaans (Spanje)"
 229                 case 39: fGetLanguageName = "Italiaans (Itali�)"
 230                 case 46: fGetLanguageName = "Zweeds (Zweden)"
 231                 case 49: fGetLanguageName = "Duits (Duitsland)"
 232                 case 55: fGetLanguageName = "Portugees (Brazili�)"
 233                 case 81: fGetLanguageName = "Japans"
 234                 case 82: fGetLanguageName = "Korean (RoK)"
 235                 case 86: fGetLanguageName = "Chinese (vereenvoudigd)"
 236                 case 88: fGetLanguageName = "Chinese (traditioneel)"
 237                 case else :
 238                 QAErrorLog "Now, the test does not support for the language " +iSprache
 239                 fGetLanguageName = ""
 240             end select
 241
 242         case 33   :        ' France
 243             select case CountryID
 244                 case 1:  fGetLanguageName = "Anglais (U.S.A.)"
 245                 case 31: fGetLanguageName = "N�erlandais (Pays-Bas)"
 246                 case 33: fGetLanguageName = "Français (France)"
 247                 case 34: fGetLanguageName = "Espagnol (Espagne)"
 248                 case 39: fGetLanguageName = "Italien (Italie)"
 249                 case 46: fGetLanguageName = "Suédois (Suède)"
 250                 case 49: fGetLanguageName = "Allemand (Allemagne)"
 251                 case 55: fGetLanguageName = "Portugais (Brésil)"
 252                 case 81: fGetLanguageName = "Japonais"
 253                 case 82: fGetLanguageName = "Coréen"
 254                 case 86: fGetLanguageName = "Chinois (simple)"
 255                 case 88: fGetLanguageName = "Chinois (traditionnel)"
 256                 case else :
 257                 QAErrorLog "Now, the test does not support for the language " +iSprache
 258                 fGetLanguageName = ""
 259             end select
 260
 261         case 34   :        ' Spanish
 262             select case CountryID
 263             case 1:  fGetLanguageName = "Inglés (EE.UU.)"
 264             case 31: fGetLanguageName = "Holand�s (Pa�ses Bajos)"
 265             case 33: fGetLanguageName = "Francés (Francia)"
 266             case 34: fGetLanguageName = "Español (España)"
 267             case 39: fGetLanguageName = "Italiano (Italia)"
 268             case 46: fGetLanguageName = "Sueco (Suecia)"
 269             case 49: fGetLanguageName = "Alemán (Alemania)"
 270             case 55: fGetLanguageName = "Portugués (Brasil)"
 271             case 81: fGetLanguageName = "Japonés"
 272             case 82: fGetLanguageName = "Coreano"
 273             case 86: fGetLanguageName = "Chino (simple)"
 274             case 88: fGetLanguageName = "Chino (tradicional)"
 275             case else :
 276             QAErrorLog "Now, the test does not support for the language " +iSprache
 277             fGetLanguageName = ""
 278         end select
 279
 280         case 39   :        ' Italy
 281             select case CountryID
 282                 case 1:  fGetLanguageName = "Inglese (US)"
 283                 case 31: fGetLanguageName = "Olandese (Paesi Bassi)"
 284                 case 33: fGetLanguageName = "Francese (Francia)"
 285                 case 34: fGetLanguageName = "Spagnolo (Spagna)"
 286                 case 39: fGetLanguageName = "Italiano (Italia)"
 287                 case 46: fGetLanguageName = "Svedese (Svezia)"
 288                 case 49: fGetLanguageName = "Tedesco (Germania)"
 289                 case 55: fGetLanguageName = "Portoghese (Brasile)"
 290                 case 81: fGetLanguageName = "Giapponese"
 291                 case 82: fGetLanguageName = "Coreano"
 292                 case 86: fGetLanguageName = "Cinese (semplificato)"
 293                 case 88: fGetLanguageName = "Cinese (tradizionale)"
 294                 case else :
 295                 QAErrorLog "Now, the test does not support for the language " +iSprache
 296                 fGetLanguageName = ""
 297             end select
 298
 299         case 46   :        ' Swedish
 300             select case CountryID
 301                 case 1:  fGetLanguageName = "engelska"
 302                 case 31: fGetLanguageName = "Holl�ndska (Nederl�nderna)"
 303                 case 33: fGetLanguageName = "franska (Frankrike)"
 304                 case 34: fGetLanguageName = "spanska (Spanien)"
 305                 case 39: fGetLanguageName = "italienska (Italien)"
 306                 case 46: fGetLanguageName = "svenska (Sverige)"
 307                 case 49: fGetLanguageName = "tyska (Tyskland)"
 308                 case 55: fGetLanguageName = "portugisiska (Brasilien)"
 309                 case 81: fGetLanguageName = "japanska"
 310                 case 82: fGetLanguageName = "koreanska"
 311                 case 86: fGetLanguageName = "kinesiska (enkel)"
 312                 case 88: fGetLanguageName = "kinesiska (trad.)"
 313                 case else :
 314                 QAErrorLog "Now, the test does not support for the language " +iSprache
 315                 fGetLanguageName = ""
 316             end select
 317
 318         case 49   :        ' German
 319             select case CountryID
 320                 case 1:  fGetLanguageName = "Englisch (USA)"
 321                 case 31: fGetLanguageName = "Niederl�ndisch (Niederlande)"
 322                 case 33: fGetLanguageName = "Französisch (Frankreich)"
 323                 case 34: fGetLanguageName = "Spanisch (Spanien)"
 324                 case 39: fGetLanguageName = "Italienisch (Italien)"
 325                 case 46: fGetLanguageName = "Schwedisch (Schweden)"
 326                 case 49: fGetLanguageName = "Deutsch (Deutschland)"
 327                 case 55: fGetLanguageName = "Portugiesisch (Brasilien)"
 328                 case 81: fGetLanguageName = "Japanisch"
 329                 case 82: fGetLanguageName = "Koreanisch"
 330                 case 86: fGetLanguageName = "Chinesisch (einfach)"
 331                 case 88: fGetLanguageName = "Chinesisch (Trad.)"
 332                 case else :
 333                 QAErrorLog "Now, the test does not support for the language " +iSprache
 334                 fGetLanguageName = ""
 335             end select
 336
 337         case 55   :        ' Portuguese
 338             select case CountryID
 339                 case 1:  fGetLanguageName = "Inglês (EUA)"
 340                 case 31: fGetLanguageName = "Holand�s (Holanda)"
 341                 case 33: fGetLanguageName = "Francês (França)"
 342                 case 34: fGetLanguageName = "Espanhol (Espanha)"
 343                 case 39: fGetLanguageName = "Italiano (Itália)"
 344                 case 46: fGetLanguageName = "Sueco (Suécia)"
 345                 case 49: fGetLanguageName = "Alemão (Alemanha)"
 346                 case 55: fGetLanguageName = "Português (Brasil)"
 347                 case 81: fGetLanguageName = "Japonês"
 348                 case 82: fGetLanguageName = "Coreano"
 349                 case 86: fGetLanguageName = "Chinês (simplificado)"
 350                 case 88: fGetLanguageName = "Chinês (Tradicional)"
 351                 case else :
 352                 QAErrorLog "Now, the test does not support for the language " +iSprache
 353                 fGetLanguageName = ""
 354         end select
 355
 356         case 81   :        ' Japanese
 357             select case CountryID
 358                 case 1:  fGetLanguageName = "英語(米国)"
 359                 case 33: fGetLanguageName = "フランス語(フランス)"
 360                 case 34: fGetLanguageName = "スペイン語(スペイン)"
 361                 case 39: fGetLanguageName = "イタリア語(イタリア)"
 362                 case 46: fGetLanguageName = "スウェーデン語(スウェーデン)"
 363                 case 49: fGetLanguageName = "ドイツ語(ドイツ)"
 364                 case 55: fGetLanguageName = "�?ルトガル語(ブラジル)"
 365                 case 81: fGetLanguageName = "日本語"
 366                 case 82: fGetLanguageName = "韓国語"
 367                 case 86: fGetLanguageName = "中国語(簡体字)"
 368                 case 88: fGetLanguageName = "中国語(�?体字)"
 369                 case else :
 370                 QAErrorLog "Now, the test does not support for the language " +iSprache
 371                 fGetLanguageName = ""
 372         end select
 373
 374         case 82   :        ' Korean
 375             select case CountryID
 376                 case 1:  fGetLanguageName = "�?어(미국)"
 377                 case 33: fGetLanguageName = "스페�?�어(스페�?�)"
 378                 case 34: fGetLanguageName = "프랑스어(프랑스)"
 379                 case 39: fGetLanguageName = "�?�탈리아어 (�?�태리)"
 380                 case 46: fGetLanguageName = "스웨�?�어(스웨�?�)"
 381                 case 49: fGetLanguageName = "�?��?�어(�?��?�)"
 382                 case 55: fGetLanguageName = "�?�르투갈어(브�?�질)"
 383                 case 81: fGetLanguageName = "�?�본어"
 384                 case 82: fGetLanguageName = "한국어"
 385                 case 86: fGetLanguageName = "중국어(간체)"
 386                 case 88: fGetLanguageName = "중국어(번체)"
 387                 case else :
 388                 QAErrorLog "Now, the test does not support for the language " +iSprache
 389                 fGetLanguageName = ""
 390             end select
 391
 392         case 86   :        ' Chinese (simplified)
 393             select case CountryID
 394                 case 1:  fGetLanguageName = "英语(美国)"
 395                 case 33: fGetLanguageName = "法语(法国)"
 396                 case 34: fGetLanguageName = "西�?�牙语(西�?�牙)"
 397                 case 39: fGetLanguageName = "�?大利语(�?大利)"
 398                 case 46: fGetLanguageName = "瑞典语(瑞典)"
 399                 case 49: fGetLanguageName = "德语(德国)"
 400                 case 55: fGetLanguageName = "葡�?�牙语(巴西)"
 401                 case 81: fGetLanguageName = "日语"
 402                 case 82: fGetLanguageName = "�?鲜语"
 403                 case 86: fGetLanguageName = "中文(简体字)"
 404                 case 88: fGetLanguageName = "中文(�?体字)"
 405                 case else :
 406                 QAErrorLog "Now, the test does not support for the language " +iSprache
 407                 fGetLanguageName = ""
 408             end select
 409
 410         case 88   :        ' Chinese (traditional)
 411             select case CountryID
 412                 case 1:  fGetLanguageName = "英語(美國)"
 413                 case 33: fGetLanguageName = "法語(法國)"
 414                 case 34: fGetLanguageName = "西�?�牙語(西�?�牙)"
 415                 case 39: fGetLanguageName = "�?大利語(�?大利)"
 416                 case 46: fGetLanguageName = "瑞典語(瑞典)"
 417                 case 49: fGetLanguageName = "德語(德國)"
 418                 case 55: fGetLanguageName = "葡�?�牙語(巴西)"
 419                 case 81: fGetLanguageName = "日語"
 420                 case 82: fGetLanguageName = "韓語"
 421                 case 86: fGetLanguageName = "中文(簡體字)"
 422                 case 88: fGetLanguageName = "中文(�?體)"
 423                 case else :
 424                 QAErrorLog "Now, the test does not support for the language " +iSprache
 425                 fGetLanguageName = ""
 426             end select
 427
 428         case else :        ' Fallback
 429             QAErrorLog "Now, the test does not support for the language " +iSprache
 430             fGetLanguageName = ""
 431     end select
 432 end function