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
|
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
'
' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
'
' This file incorporates work covered by the following license notice:
'
' Licensed to the Apache Software Foundation (ASF) under one or more
' contributor license agreements. See the NOTICE file distributed
' with this work for additional information regarding copyright
' ownership. The ASF licenses this file to you under the Apache
' License, Version 2.0 (the "License"); you may not use this file
' except in compliance with the License. You may obtain a copy of
' the License at http://www.apache.org/licenses/LICENSE-2.0 .
'
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
|
