-
Notifications
You must be signed in to change notification settings - Fork 0
/
ITextEncoding.cls
41 lines (37 loc) · 1.72 KB
/
ITextEncoding.cls
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
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "ITextEncoding"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Description = "The ITextEncoding interface for text encoding implementations.\r\n\r\nVBA-IDictionary v2.1 (Septemeber 02, 2019)\r\n(c) Mark Johnstone - https://github.com/MarkJohnstoneGitHub/VBA-IDictionary\r\nAuthor: markjohnstone@hotmail.com\r\n"
''
'Rubberduck annotations
'@Folder("VBA-IScriptingDictionary.TextEncoding")
'@Interface
'@ModuleDescription "The ITextEncoding interface for text encoding implementations.\r\n\r\nVBA-IDictionary v2.1 (Septemeber 02, 2019)\r\n(c) Mark Johnstone - https://github.com/MarkJohnstoneGitHub/VBA-IDictionary\r\nAuthor: markjohnstone@hotmail.com\r\n"
''
''
'@Version VBA-IScriptingDictionary v2.0 (July 28, 2019)
'(c) Mark Johnstone - https://github.com/MarkJohnstoneGitHub/VBA-IDictionary
'@Description The ITextEncoding interface used for text encoding implementations.
'@Author Mark Johnstone markjohnstone@hotmail.com
'@LastModified September 02, 2019
Option Explicit
'List of text encoding implemenations
Public Enum TextEncodingMethod
temUnicode = 1
temAscii = 2
[_First] = temUnicode
[_Last] = temAscii
End Enum
'@Description("Returns an string of hex characters for a specified string.")
'@param inText The string to be encoded into a hex string.
'@returns (String) Hex string characters.
' ------------------------------------------------------------'
Public Function Encode(ByRef inText As String) As String
Attribute Encode.VB_Description = "Returns an string of hex characters for a specified string."
End Function