1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "StringDataManager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'/*************************************************************************
' *
' 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.
'
' ************************************************************************/
Option Explicit
Private langDict As Scripting.Dictionary
Private mFileName As String
Const C_PRODUCTNAME = "<PRODUCTNAME>"
Const C_PRODUCTVERSION = "<PRODUCTVERSION>"
Const C_NEXTPRODUCTVERSION = "<NEXTPRODUCTVERSION>"
Const C_NEWLINE = "<CR>"
' Load strings from the data file (in the form "id=string") into
' dictionary object.
Function InitStringData(fileName As String) As Boolean
On Error GoTo HandleErrors
Dim stringFile As TextStream
Dim aLine As String
Dim valueOffset As Long
Dim id, Str As String
Dim fso As FileSystemObject
'Make sure the string data file exists before opening.
Set fso = New Scripting.FileSystemObject
If Not fso.FileExists(fileName) Then
InitStringData = False
Exit Function
End If
Set stringFile = fso.OpenTextFile(fileName, ForReading, False, TristateTrue)
If IsEmpty(stringFile) Then
'WriteDebug
End If
mFileName = fileName
'Read each line and parse the id and string, then put into dictionary
Do While Not stringFile.AtEndOfStream
aLine = stringFile.ReadLine
valueOffset = InStr(aLine, "=")
id = Left(aLine, valueOffset - 1)
Str = Right(aLine, Len(aLine) - valueOffset)
langDict.Add id, Str
Loop
stringFile.Close
Dim aProductName As String
Dim aProductVersion As String
Dim aNextProductVersion As String
Dim aKey As Variant
Dim aItem As String
Dim aOldItem As String
aProductName = langDict.item("RID_STR_COMMON_PRODUCTNAME")
aProductVersion = langDict.item("RID_STR_COMMON_PRODUCTVERSION")
aNextProductVersion = langDict.item("RID_STR_COMMON_NEXTPRODUCTVERSION")
For Each aKey In langDict
aOldItem = langDict.item(aKey)
aItem = ReplaceTopicTokens(aOldItem, C_PRODUCTNAME, aProductName)
aItem = ReplaceTopicTokens(aItem, C_PRODUCTVERSION, aProductVersion)
aItem = ReplaceTopicTokens(aItem, C_NEXTPRODUCTVERSION, aNextProductVersion)
aItem = ReplaceTopicTokens(aItem, C_NEWLINE, vbLF)
If (Not (aOldItem = aItem)) Then
langDict.item(aKey) = aItem
End If
Next
InitStringData = True
FinalExit:
Exit Function
HandleErrors:
WriteDebug "InitStringData : " & Err.Number & " " & Err.Description & " " & Err.Source
InitStringData = False
End Function
'Set String Data from an existing dictionary
Public Property Set StringData(data As Scripting.Dictionary)
Set langDict = data
End Property
'Get String Data dictionary
Public Property Get StringData() As Scripting.Dictionary
Set StringData = langDict
End Property
'Initialize a given string variable by id
Function InitString(ByRef resRef As String, resName As String)
resRef = langDict.item(resName)
End Function
Private Sub Class_Initialize()
Set langDict = New Scripting.Dictionary 'Allocate the string dictonary
End Sub
Private Sub Class_Terminate()
langDict.RemoveAll
Set langDict = Nothing 'Empty the dictionary and remove the instance
End Sub
|
