testautomation/global/system/includes/inivalue.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: inivalue.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-13 10:27:05 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : routines to handle ini-files ( read/write items )
  37 '*
  38 '*****************************************************************
  39 '*
  40 ' #1 GetIniValue          ' get a value of an entry
  41 ' #1 GetIniValue2         '  subroutine for GetIniValue
  42 ' #1 SetIniValue          ' set a value of an entry
  43 ' #1 SetIniValue2         '   subroutine for SetIniValue
  44 ' #1 ChangeExt            ' change the extension of an file
  45 ' #1 AnhaengenAnDatei     ' add a string into a file
  46 ' #1 DateiSperren         ' set the hidden flag for file
  47 ' #1 DateiFreigeben       ' reset the hidden flag for file
  48 '*
  49 '\****************************************************************
  50
  51 function GetIniValue ( Datei$, Gruppe$, Variable$ ) as String
  52 '/// wrapper for GetIniValue2 ///'
  53 '///+ reads a value from an ini-file ///'
  54 '///+ INPUT : name of ini-file; name of group (the one in braces []); the item (left of '=') ///'
  55 '///+ OUTPUT: value (the right of the '=') ///'
  56    if Dir(Datei$) = "" then
  57       Warnlog "Error in GetIniValue(...):" + Datei$ + " not found"
  58       exit function
  59    end if
  60
  61    GetIniValue = GetIniValue2( Datei$, Gruppe$, Variable$ ) ' Arbeiten
  62 end function
  63
  64 function SetIniValue( Datei$, Gruppe$, Variable$, Value$ ) as String
  65 '/// wrapper for SetIniValue2 ///'
  66 '///+ writes a value to an ini-file ///'
  67 '///+ INPUT : name of ini-file; name of group (the one in braces []); the item (left of '='); value (the right of the '=') ///'
  68 '///+ OUTPUT: - ///'
  69   Dim FileNum as Integer
  70
  71    if Dir(Datei$) = "" then
  72       WarnLog "Error in SetIniValue(...):" + Datei$ + " not found. File will be created now!"
  73       FileNum = FreeFile
  74       Open Datei$ For Output As #FileNum  ' make empty file
  75       Print #FileNum, ""
  76       Close #FileNum
  77    end if
  78
  79    SetIniValue = SetIniValue2( Datei$, Gruppe$, Variable$, Value$ )
  80 end function
  81
  82
  83 function GetIniValue2( Datei$, Gruppe$, Variable$ ) as String
  84 '/// see the wrapper for it : GetIniValue ///'
  85   Dim FileNum% : Dim GruppeOK% :  Dim Pos% :  Dim IniZeile$ :  Dim IniZeile2$
  86
  87    FileNum% = FreeFile
  88
  89    GruppeOK%=FALSE
  90
  91    GetIniValue2 = ""
  92
  93    Open Datei$ For Input As #FileNum%
  94    do until EOF(#FileNum%) = True
  95       Line input #FileNum%, IniZeile$
  96
  97       IniZeile$ = TRIM(IniZeile$)
  98       iniZeile2$ = UCASE( IniZeile$ ) ' compare case insensitive
  99       if GruppeOK% = FALSE then     ' still no group
 100          if IniZeile2$= "[" + UCASE( Gruppe$ ) + "]" then                     'Is it the wanted group?
 101             GruppeOK% = TRUE
 102          end if
 103       else
 104          If Left(IniZeile2$, 1) = "[" then                                 'sadly new group - goodby
 105             Exit do
 106          else
 107             Pos% = Instr( IniZeile2$, "=" )                           'is the item valid?
 108             if Pos%>0 then                                                    ' '=' not found
 109                if Left( IniZeile2$ , Pos%-1 ) = UCASE( Variable$ ) then       'compare leftvalue
 110                   GetIniValue2 = Trim(Mid$( IniZeile$ , Pos%+ 1  ))           'return part right of '=' : with initial case
 111                   exit do
 112                end if
 113             end if
 114          end if
 115       end if
 116
 117    loop
 118
 119    Close #FileNum%
 120    wait 1000
 121 end function
 122
 123
 124 sub SetIniValue2( Datei$, Gruppe$, Variable$, Value$ ) as String
 125 '/// see the wrapper for it : SetIniValue ///'
 126   Dim DateiBak$ : Dim D$ : Dim IniZeile$ : Dim IniZeile2$
 127   Dim FileBak% : Dim GruppeOK% : Dim Gefunden% : Dim FileNum% : Dim Pos%
 128
 129 ' rename
 130    DateiBak$ = ChangeExt( Datei$, "BAK" )
 131
 132    GruppeOK% = FALSE
 133    Gefunden% = FALSE
 134
 135    if Dir(DateiBak$)<>"" then
 136      kill DateiBak$
 137    end if
 138
 139    if Dir( Datei$ )<>"" then
 140       D$ = CurDir
 141       name Datei$ as DateiBak$
 142    else
 143       FileNum% = FreeFile
 144       Open Datei$ For Output As #FileNum%
 145       Print #FileNum%, "[" + Trim(Gruppe$) + "]"
 146       Print #FileNum%, Variable$ + "=" + Trim(Value$)
 147       Close #FileNum%                                                   ' finished here
 148       Exit sub
 149    endif
 150
 151    FileNum% = FreeFile
 152    Open Datei$ For Output As #FileNum%
 153
 154    FileBak% = FreeFile
 155    Open DateiBak$ For Input As #FileBak%
 156
 157    do until EOF(#FileBak%) = True
 158
 159       Line input #FileBak%, IniZeile$
 160
 161       IniZeile$ =  TRIM(IniZeile$)
 162
 163       if IniZeile$ <> "" then
 164
 165          IniZeile2$ = UCASE( IniZeile$ )
 166
 167          if Left(IniZeile$, 1) = "[" then
 168             if GruppeOK% = TRUE then                                     'groupchange
 169               if Gefunden%=FALSE then
 170                  Print #FileNum%,  Variable$ + "=" + Trim(Value$)
 171                  Gefunden% = TRUE
 172               end if
 173               GruppeOK% = FALSE
 174             end if
 175             Print #FileNum%, ""                                            'empty line
 176             Print #FileNum%, IniZeile$
 177             if IniZeile2$= "[" + UCASE( Gruppe$ ) + "]" then
 178                GruppeOK% = TRUE
 179             end if
 180          else
 181             if GruppeOK% = TRUE then                            ' found group
 182
 183                Pos% = Instr( IniZeile$, "=" )
 184                if Left( IniZeile2$ , Pos%-1 ) = UCASE( Variable$ ) then
 185                   IniZeile$ = Left( IniZeile$ , Pos%   ) +Trim( Value$ )' after the '='
 186                   Gefunden% = TRUE
 187                end if
 188             end if
 189             Print #FileNum%, IniZeile$
 190          end if
 191
 192       end if
 193
 194    loop
 195
 196    if Gefunden% = FALSE then
 197     ' set new group and value
 198       if GruppeOK%=FALSE then
 199          Print #FileNum%, ""
 200          Print #FileNum%, "[" + Trim(Gruppe$) + "]"
 201       end if
 202          Print #FileNum%, Variable$ + "=" + Value$
 203    end if
 204
 205    Close #FileNum%
 206    Close #FileBak%
 207
 208    wait 1000
 209 end sub
 210
 211
 212 sub AnhaengenAnDatei ( Datei as String, Texte as String )
 213 '/// append a string at the end of the file ///'
 214 '///+ INPUT : filename; string///'
 215 '///+ OUTPUT: - ///'
 216   Dim FileNum%
 217
 218   FileNum% = FreeFile
 219   Open Datei for Append  as #FileNum%
 220
 221   Print #FileNum%, Texte
 222   Close #FileNum%
 223
 224 end sub
 225
 226 function ChangeExt( Datei$, Ext$ )as String
 227 '/// change the extension of a file ///'
 228 '///+ INPUT : filename; extension ///'
 229 '///+ OUTPUT: - ///'
 230   Dim i%
 231
 232    i% = InStr( Right(Datei$, 4 ) , "." )
 233    if Ext$<>"" then
 234    if i%=0 then
 235       ChangeExt = Datei$ +"."+Ext$
 236    else
 237       ChangeExt = Left( Datei$, Len(Datei$)-4+i% )   + Ext$
 238    end if
 239
 240    elseif i%<>0 then
 241       ChangeExt = Left( Datei$, Len(Datei$)-5+i% )
 242    end if
 243 end function
 244
 245 sub DateiSperren( Datei$ )
 246 '/// set the hidden flag of a file; lock the file  ///'
 247 '///+ INPUT : filename ///'
 248 '///+ OUTPUT: - ///'
 249   Dim i%
 250
 251    if hFileExists ( Datei$ ) <> TRUE then
 252       Warnlog "File '" + Datei$ + "' doesn't exist; exiting now!"
 253       exit sub
 254    end if
 255
 256    i% = GetAttr( Datei$ )
 257    do while (i% AND 2) = 2    ' is file already locked?
 258       Wait( int( 400 * Rnd + 5 )
 259       i% = GetAttr( Datei$ )
 260    loop
 261    SetAttr( Datei$ , i% OR 2 ) ' Lock
 262
 263    exit sub
 264
 265 end sub
 266
 267 sub DateiFreigeben( Datei$ )
 268 '/// reset the hidden flag of a file; release the file  ///'
 269 '///+ INPUT : filename ///'
 270 '///+ OUTPUT: - ///'
 271   Dim i%
 272
 273    if hFileExists ( Datei$ ) <> TRUE then
 274       Warnlog "File '" + Datei$ + "' doesn't exist; exiting now!"
 275       exit sub
 276    end if
 277
 278    i% = GetAttr( Datei$ )
 279    SetAttr( Datei$ , i% AND NOT 2 ) ' release
 280    exit sub
 281
 282 end Sub
 283
 284
 285