diff options
Diffstat (limited to 'testautomation/global/tools/includes/required/t_tools2.inc')
-rw-r--r-- | testautomation/global/tools/includes/required/t_tools2.inc | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/testautomation/global/tools/includes/required/t_tools2.inc b/testautomation/global/tools/includes/required/t_tools2.inc index e4f3bd9842e9..b82b93edba1f 100644 --- a/testautomation/global/tools/includes/required/t_tools2.inc +++ b/testautomation/global/tools/includes/required/t_tools2.inc @@ -226,32 +226,6 @@ end function '------------------------------------------------------------------------- -function GetBuildNumHidLst as String -'/// Get the "BuildId" out of the <i>hid.lst</i>. - Dim FileNum as Integer - Dim xmlZeile as String - dim iIndex as integer - dim sTemp as string - - if Dir (gtHidLstPath + "hid.lst") <> "" then - FileNum = FreeFile - Open (gtHidLstPath + "hid.lst") For Input As #FileNum - do until EOF(#FileNum) = True - line input #FileNum, xmlZeile - iIndex = inStr (1, xmlZeile, "010101010101010", 1) - sTemp = Left (xmlZeile, abs(iIndex - 1)) - ' usually only the first line is read - if (sTemp <> "") then exit do - loop - Close #FileNum - GetBuildNumHidLst = sTemp - else - GetBuildNumHidLst = "" - end if -end function - -'------------------------------------------------------------------------- - function hGetUNOService(optional bSilent as boolean, optional byRef sUnoPortExternal as string) as object '/// Function enables the UNO communication inside the '///+ TestTool to the office application. |