如何解决访问Application.SaveAsText读取十六进制值
我已经在VB.net应用程序中使用application.saveastext将多个Access对象导出到文本文件。我正在使用Microsoft.Interop来完成此任务。理想情况下,我希望通读包含十六进制部分的结果文本文件。
我了解如何使用Access中的那些文件从文本加载,但是我在询问如何在vb.net应用程序中分别读取这些文件中的十六进制值。其中一个文件中的示例十六进制字符串如下所示。
Begin TextBox
Enabled = NotDefault
Locked = NotDefault
TabStop = NotDefault
OverlapFlags =85
IMESentenceMode =3
Left =4770
Top =30
Width =1080
Height =345
TabIndex =3
Name ="Qty Available"
ControlSource ="Qty Available"
Format ="General Number"
EventProcPrefix ="Qty_Available"
ConditionalFormat = Begin
0x0100000090000000010000000000000005000000000000001700000001000000,0xff000000ffffff00000000000000000000000000000000000000000000000000,0x0000000000000000000000000000000000000000000000000000000000000000,0x5b0046006f0072006d005d0021005b00520065006f0072006400650072002000,0x4c006500760065006c005d0000000000
End
GUID = Begin
0x992063bfd02642489a85ffd951279cb6
End
ColumnGroup =3
GroupTable =6
HorizontalAnchor =1
IMEMode =0
End
在这一点上,我尝试使用一些在线解码器来查看是否可以轻松地将它们转换为字符串。相反,我得到的是特殊字符和不可读的文本。我已经广泛搜索了与application.saveastext相关的各种主题,但是Microsoft确实没有记录该过程,而且我也没有看到关于该主题的详尽信息。
有人有经验或可以给我指明方向吗?
解决方法
如何解码这些十六进制数字块?
简而言之:将它们分成两个字符的块(0x5b0046
-> 5b
,00
,46
等),然后将其解析为字节数组。这是我们用来执行此操作的代码:
''' <summary>
''' Parses binary data formatted as follows:
''' 0x....,''' 0x....,''' 0x..
''' </summary>
Public Shared Function ParseBinaryData(lines As IEnumerable(Of String)) As Byte()
Dim colBytes As New List(Of Byte)()
For Each sLine In lines
sLine = sLine.TrimStart(" "c).TrimEnd({vbCr(0),vbLf(0),","c," "c})
If Not sLine.StartsWith("0x") Then
Throw New FormatException($"Line does not start with 0x: {sLine}.")
End If
For Each sPair In StringTools.SplitOnLength(sLine,2).Skip(1)
colBytes.Add(Convert.ToByte(sPair,16))
Next
Next
Return colBytes.ToArray()
End Function
这是使用的StringTools.SplitOnLength
辅助方法:
Public Shared Iterator Function SplitOnLength(s As String,iSegmentLength As Integer) As IEnumerable(Of String)
s = If(s,"")
If iSegmentLength < 1 Then Throw New ArgumentOutOfRangeException("iSegmentLength")
While s <> ""
Yield Left(s,iSegmentLength)
s = Mid(s,iSegmentLength + 1)
End While
End Function
这些字节数组是什么意思?
这取决于。到目前为止,这是我们发现的:
- PrtDevNames / PrtDevNamesW是DEVNAMES structure的ANSI / Unicode版本。
- PrtDevMode / PrtDevModeW是DEVMODE structure的ANSI / Unicode版本。
ConditionalFormat和ConditionalFormat14呢?不幸的是,它们似乎包含一些未记录的二进制数据结构。三年前,我asked about this在MSDN的开发人员访问论坛上,但是微软员工只是礼貌地告诉我迷路。
我们通过内部禁止Access开发人员在Access Form设计器中设置条件格式并强迫他们改用VBA代码(即在代码中手动设置FormatConditions
属性)解决了此问题。根据您的旧代码库的大小,这可能是不合适的解决方案。
看看Get control names of MS-Access forms & reports和Quick Overview of SaveAsText and LoadFromText。
结构似乎是:
Begin {control-class-name}
{property-name} = {value}
End
CodeBehindForm
{attributes}
{declarations}
{body}
PrtMip property在Visual Basic中设置或返回在“打印”对话框中为表单或报表指定的设备模式信息。
与仅循环Forms Controls-Collection并检查FormatConditions
property相比,解码ConditionalFormat
属性似乎很难。
可能有点像(C#代码被盗here):
var objAccess = new Microsoft.Office.Interop.Access.Application();
objAccess.OpenCurrentDatabase(@"C:\Users\Public\Database1.accdb");
string formName = "ClientForm";
objAccess.DoCmd.OpenForm(formName,Microsoft.Office.Interop.Access.AcFormView.acDesign);
Microsoft.Office.Interop.Access.Form frm = objAccess.Forms[formName];
Console.WriteLine(String.Format("The FormHeader section of form [{0}] contains the following controls:",formName));
foreach (Microsoft.Office.Interop.Access.Control ctl in frm.Controls)
{
foreach (Microsoft.Office.Interop.Access.FormatCondition fc in ctl.FormatConditions)
{
//read FormatCondition properties here https://docs.microsoft.com/en-us/office/vba/api/access.formatcondition
Console.WriteLine();
Console.WriteLine(String.Format(" [{0}]",ctl.Name));
Console.WriteLine(String.Format(" {0}",ctl.GetType()));
Console.WriteLine(String.Format(" {0}",fc.Backcolor));
...
Console.WriteLine(String.Format(" {0}",fc.Type));
}
}
objAccess.DoCmd.Close(Microsoft.Office.Interop.Access.AcObjectType.acForm,formName);
objAccess.CloseCurrentDatabase();
objAccess.Quit();
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。