private void WriteModuleRecord(BinaryWriter bw, ExcelVBAModule module)
{
bw.Write((ushort)0x19);
bw.Write((uint)module.Name.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(module.Name)); //Name
bw.Write((ushort)0x47);
bw.Write((uint)module.Name.Length * 2);
bw.Write(Encoding.Unicode.GetBytes(module.Name)); //Name
bw.Write((ushort)0x1A);
bw.Write((uint)module.Name.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(module.Name)); //Stream Name
bw.Write((ushort)0x32);
bw.Write((uint)module.Name.Length * 2);
bw.Write(Encoding.Unicode.GetBytes(module.Name)); //Stream Name
module.Description = module.Description ?? "";
bw.Write((ushort)0x1C);
bw.Write((uint)module.Description.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(module.Description)); //Description
bw.Write((ushort)0x48);
bw.Write((uint)module.Description.Length * 2);
bw.Write(Encoding.Unicode.GetBytes(module.Description)); //Description
bw.Write((ushort)0x31);
bw.Write((uint)4);
bw.Write((uint)0); //Module Stream Offset (No PerformanceCache)
bw.Write((ushort)0x1E);
bw.Write((uint)4);
bw.Write((uint)module.HelpContext); //Help context ID
bw.Write((ushort)0x2C);
bw.Write((uint)2);
bw.Write((ushort)0xFFFF); //Help context ID
bw.Write((ushort)(module.Type == eModuleType.Module ? 0x21 : 0x22));
bw.Write((uint)0);
if (module.ReadOnly)
{
bw.Write((ushort)0x25);
bw.Write((uint)0); //Readonly
}
if (module.Private)
{
bw.Write((ushort)0x28);
bw.Write((uint)0); //Private
}
bw.Write((ushort)0x2B); //Terminator
bw.Write((uint)0);
}
internal string GetModuleNameFromWorksheet(ExcelWorksheet sheet)
{
var name = sheet.Name;
name = name.Substring(0, name.Length < 31 ? name.Length : 31); //Maximum 31 charachters
if (this.Modules[name] != null || !ExcelVBAModule.IsValidModuleName(name)) //Check for valid chars, if not valid, set to sheetX.
{
int i = sheet.PositionId;
name = "Sheet" + i.ToString();
while (this.Modules[name] != null)
{
name = "Sheet" + (++i).ToString();
}
}
return name;
}
private void ReadDirStream()
{
byte[] dir = VBACompression.DecompressPart(Document.Storage.SubStorage["VBA"].DataStreams["dir"]);
MemoryStream ms = new MemoryStream(dir);
BinaryReader br = new BinaryReader(ms);
ExcelVbaReference currentRef = null;
string referenceName = "";
ExcelVBAModule currentModule = null;
bool terminate = false;
while (br.BaseStream.Position < br.BaseStream.Length && terminate == false)
{
ushort id = br.ReadUInt16();
uint size = br.ReadUInt32();
switch (id)
{
case 0x01:
SystemKind = (eSyskind)br.ReadUInt32();
break;
case 0x02:
Lcid = (int)br.ReadUInt32();
break;
case 0x03:
CodePage = (int)br.ReadUInt16();
break;
case 0x04:
Name = GetString(br, size);
break;
case 0x05:
Description = GetUnicodeString(br, size);
break;
case 0x06:
HelpFile1 = GetString(br, size);
break;
case 0x3D:
HelpFile2 = GetString(br, size);
break;
case 0x07:
HelpContextID = (int)br.ReadUInt32();
break;
case 0x08:
LibFlags = (int)br.ReadUInt32();
break;
case 0x09:
MajorVersion = (int)br.ReadUInt32();
MinorVersion = (int)br.ReadUInt16();
break;
case 0x0C:
Constants = GetUnicodeString(br, size);
break;
case 0x0D:
uint sizeLibID = br.ReadUInt32();
var regRef = new ExcelVbaReference();
regRef.Name = referenceName;
regRef.ReferenceRecordID = id;
regRef.Libid = GetString(br, sizeLibID);
uint reserved1 = br.ReadUInt32();
ushort reserved2 = br.ReadUInt16();
References.Add(regRef);
break;
case 0x0E:
var projRef = new ExcelVbaReferenceProject();
projRef.ReferenceRecordID = id;
projRef.Name = referenceName;
sizeLibID = br.ReadUInt32();
projRef.Libid = GetString(br, sizeLibID);
sizeLibID = br.ReadUInt32();
projRef.LibIdRelative = GetString(br, sizeLibID);
projRef.MajorVersion = br.ReadUInt32();
projRef.MinorVersion = br.ReadUInt16();
References.Add(projRef);
break;
case 0x0F:
ushort modualCount = br.ReadUInt16();
break;
case 0x13:
ushort cookie = br.ReadUInt16();
break;
case 0x14:
LcidInvoke = (int)br.ReadUInt32();
break;
case 0x16:
referenceName = GetUnicodeString(br, size);
break;
case 0x19:
currentModule = new ExcelVBAModule();
currentModule.Name = GetUnicodeString(br, size);
Modules.Add(currentModule);
break;
case 0x1A:
currentModule.streamName = GetUnicodeString(br, size);
break;
case 0x1C:
currentModule.Description = GetUnicodeString(br, size);
break;
case 0x1E:
currentModule.HelpContext = (int)br.ReadUInt32();
break;
case 0x21:
case 0x22:
break;
case 0x2B: //Modul Terminator
break;
case 0x2C:
currentModule.Cookie = br.ReadUInt16();
break;
case 0x31:
currentModule.ModuleOffset = br.ReadUInt32();
break;
case 0x10:
terminate = true;
break;
case 0x30:
var extRef = (ExcelVbaReferenceControl)currentRef;
var sizeExt = br.ReadUInt32();
extRef.LibIdExternal = GetString(br, sizeExt);
uint reserved4 = br.ReadUInt32();
ushort reserved5 = br.ReadUInt16();
extRef.OriginalTypeLib = new Guid(br.ReadBytes(16));
extRef.Cookie = br.ReadUInt32();
break;
case 0x33:
currentRef = new ExcelVbaReferenceControl();
currentRef.ReferenceRecordID = id;
currentRef.Name = referenceName;
currentRef.Libid = GetString(br, size);
References.Add(currentRef);
break;
case 0x2F:
var contrRef = (ExcelVbaReferenceControl)currentRef;
contrRef.ReferenceRecordID = id;
var sizeTwiddled = br.ReadUInt32();
contrRef.LibIdTwiddled = GetString(br, sizeTwiddled);
var r1 = br.ReadUInt32();
var r2 = br.ReadUInt16();
break;
case 0x25:
currentModule.ReadOnly = true;
break;
case 0x28:
currentModule.Private = true;
break;
default:
break;
}
}
}
private void WriteModuleRecord(BinaryWriter bw, ExcelVBAModule module)
{
bw.Write((ushort)0x19);
bw.Write((uint)module.Name.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(module.Name)); //Name
bw.Write((ushort)0x47);
bw.Write((uint)module.Name.Length*2);
bw.Write(Encoding.Unicode.GetBytes(module.Name)); //Name
bw.Write((ushort)0x1A);
bw.Write((uint)module.Name.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(module.Name)); //Stream Name
bw.Write((ushort)0x32);
bw.Write((uint)module.Name.Length*2);
bw.Write(Encoding.Unicode.GetBytes(module.Name)); //Stream Name
module.Description = module.Description ?? "";
bw.Write((ushort)0x1C);
bw.Write((uint)module.Description.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(module.Description)); //Description
bw.Write((ushort)0x48);
bw.Write((uint)module.Description.Length*2);
bw.Write(Encoding.Unicode.GetBytes(module.Description)); //Description
bw.Write((ushort)0x31);
bw.Write((uint)4);
bw.Write((uint)0); //Module Stream Offset (No PerformanceCache)
bw.Write((ushort)0x1E);
bw.Write((uint)4);
bw.Write((uint)module.HelpContext); //Help context ID
bw.Write((ushort)0x2C);
bw.Write((uint)2);
bw.Write((ushort)0xFFFF); //Help context ID
bw.Write((ushort)(module.Type == eModuleType.Module ? 0x21 : 0x22));
bw.Write((uint)0);
if (module.ReadOnly)
{
bw.Write((ushort)0x25);
bw.Write((uint)0); //Readonly
}
if (module.Private)
{
bw.Write((ushort)0x28);
bw.Write((uint)0); //Private
}
bw.Write((ushort)0x2B); //Terminator
bw.Write((uint)0);
}
private void ReadDirStream()
{
byte[] dir = CompoundDocument.DecompressPart(Document.Storage.SubStorage["VBA"].DataStreams["dir"]);
MemoryStream ms = new MemoryStream(dir);
BinaryReader br = new BinaryReader(ms);
ExcelVbaReference currentRef = null;
string referenceName = "";
ExcelVBAModule currentModule = null;
bool terminate = false;
while (br.BaseStream.Position < br.BaseStream.Length && terminate == false)
{
ushort id = br.ReadUInt16();
uint size = br.ReadUInt32();
switch (id)
{
case 0x01:
SystemKind = (eSyskind)br.ReadUInt32();
break;
case 0x02:
Lcid = (int)br.ReadUInt32();
break;
case 0x03:
CodePage = (int)br.ReadUInt16();
break;
case 0x04:
Name = GetString(br, size);
break;
case 0x05:
Description = GetUnicodeString(br, size);
break;
case 0x06:
HelpFile1 = GetString(br, size);
break;
case 0x3D:
HelpFile2 = GetString(br, size);
break;
case 0x07:
HelpContextID = (int)br.ReadUInt32();
break;
case 0x08:
LibFlags = (int)br.ReadUInt32();
break;
case 0x09:
MajorVersion = (int)br.ReadUInt32();
MinorVersion = (int)br.ReadUInt16();
break;
case 0x0C:
Constants = GetUnicodeString(br, size);
break;
case 0x0D:
uint sizeLibID = br.ReadUInt32();
var regRef = new ExcelVbaReference();
regRef.Name = referenceName;
regRef.ReferenceRecordID = id;
regRef.Libid = GetString(br, sizeLibID);
uint reserved1 = br.ReadUInt32();
ushort reserved2 = br.ReadUInt16();
References.Add(regRef);
break;
case 0x0E:
var projRef = new ExcelVbaReferenceProject();
projRef.ReferenceRecordID = id;
projRef.Name = referenceName;
sizeLibID = br.ReadUInt32();
projRef.Libid = GetString(br, sizeLibID);
sizeLibID = br.ReadUInt32();
projRef.LibIdRelative = GetString(br, sizeLibID);
projRef.MajorVersion = br.ReadUInt32();
projRef.MinorVersion = br.ReadUInt16();
References.Add(projRef);
break;
case 0x0F:
ushort modualCount = br.ReadUInt16();
break;
case 0x13:
ushort cookie = br.ReadUInt16();
break;
case 0x14:
LcidInvoke = (int)br.ReadUInt32();
break;
case 0x16:
referenceName = GetUnicodeString(br, size);
break;
case 0x19:
currentModule = new ExcelVBAModule();
currentModule.Name = GetUnicodeString(br, size);
Modules.Add(currentModule);
break;
case 0x1A:
currentModule.streamName = GetUnicodeString(br, size);
break;
case 0x1C:
currentModule.Description = GetUnicodeString(br, size);
break;
case 0x1E:
currentModule.HelpContext = (int)br.ReadUInt32();
break;
case 0x21:
case 0x22:
break;
case 0x2B: //Modul Terminator
break;
case 0x2C:
currentModule.Cookie = br.ReadUInt16();
break;
case 0x31:
currentModule.ModuleOffset = br.ReadUInt32();
break;
case 0x10:
terminate = true;
break;
case 0x30:
var extRef = (ExcelVbaReferenceControl)currentRef;
var sizeExt = br.ReadUInt32();
extRef.LibIdExternal = GetString(br, sizeExt);
uint reserved4 = br.ReadUInt32();
ushort reserved5 = br.ReadUInt16();
extRef.OriginalTypeLib = new Guid(br.ReadBytes(16));
extRef.Cookie = br.ReadUInt32();
break;
case 0x33:
currentRef = new ExcelVbaReferenceControl();
currentRef.ReferenceRecordID = id;
currentRef.Name = referenceName;
currentRef.Libid = GetString(br, size);
References.Add(currentRef);
break;
case 0x2F:
var contrRef = (ExcelVbaReferenceControl)currentRef;
contrRef.ReferenceRecordID = id;
var sizeTwiddled = br.ReadUInt32();
contrRef.LibIdTwiddled = GetString(br, sizeTwiddled);
var r1 = br.ReadUInt32();
var r2 = br.ReadUInt16();
break;
case 0x25:
currentModule.ReadOnly = true;
break;
case 0x28:
currentModule.Private = true;
break;
default:
break;
}
}
}
