做网站滨州,企业建网站的意义,做视频网站视频源,做图片的网站有哪些今天要做一个功能#xff0c;就是修改图片的摘要信息#xff0c;一开始采用的是修改exif信息的方式#xff0c;但是很多的图片没有exif信息#xff0c;或者没有指定的exif项#xff0c;又找别的方法#xff0c;来修改文件的摘要信息。 首先是采用ole32.dll,但是郁闷的是就是修改图片的摘要信息一开始采用的是修改exif信息的方式但是很多的图片没有exif信息或者没有指定的exif项又找别的方法来修改文件的摘要信息。 首先是采用ole32.dll,但是郁闷的是这种方法可以修改很多文件的摘要信息可就是修改不了图片的摘要信息无奈之下只得另寻他法。 最后终于在cnblogs找到了一篇文章里面详细介绍了DSOFile.dll,于是赶紧下载下来微软官方的免费的开源的甚至还呆着demo的呵呵。 注册dll写asp % Set OPR Server.CreateObject(DSOFile.OleDocumentProperties) OPR.open(E:/PaiMei_demo_001.jpg) Response.Write(Author: OPR.SummaryProperties.Author) OPR.SummaryProperties.Author 0123456789 OPR.Save response.Write(br /) Response.Write(Author: OPR.SummaryProperties.Author)% 呵呵搞定 缺点如果文件地址中含有汉字的话则会出错不过可以解决。 http://www.microsoft.com/china/technet/community/columns/scripts/sg0305.mspx#EVB Dsofile以前未讲述过的故事 在我们起初开始编写脚本的故事 时我们想像自己是脚本世界中威风凛凛的、善于揭发丑闻的记者。在讲述当今最受欢迎的脚本故事方面脚本的故事 比其他任何人都领先一步我们用我们深入的幕后报道吸引住了读者这样的报告只有 Microsoft 脚本专家才能提供。实际上我们最发愁的是如何礼貌地对普利策奖委员会说“你瞧朋友虽然我们很珍视这个奖项但我们每年都获奖也许你们应该将这个奖颁发给别人就算是换一换人吧。难道纽约市没有报纸吗也许你们可以将这个奖颁发给他们。” 可事实证明事情并不像我们预想的那样。这并不是说我们对脚本的故事 失望了我们认为我们的小专栏帮助许多人克服了初次使用脚本时的恐惧并使他们了解到使用脚本管理 Windows 并不比使用 GUI 工具管理 Windows 难实际上往往是更加简单。我们对此非常高兴。同时看到纽约时报 的编委们环坐桌旁说“又没有比过‘脚本专家’我们没法儿跟他们竞争”这也是一件开心的事。不过到目前为止纽约时报 看起来并没有太在意我们。 坦白。对于这种情况也许我们也应当负一定的责任。别忘了我们最近有一篇专栏文章的标题为我被大脚野人绑架了。这篇文章并没有使“普利策奖得主”感到惊讶。 不过这个月的情况就不同了三月的脚本的故事 与被大脚野人绑架无关。我们带来了一则真正的爆炸性新闻您在别的地方是无法找到的、影响力极大的故事除非您进行 Google 搜索或采用其他方法。是的这个月我们推出 Dsofile以前未讲述过的故事。 您刚才听到那痛苦的叫声了吗可能是纽约时报 的某位编委发出的吧。如果不是某位编委那就是脚本专家 Peter Costantini 刚刚发现 Microsoft 自助餐厅不再出售他最喜欢的那种意大利式脆饼了。 什么是 Dsofile Dsofile 实际上是 Microsoft Developer Support OLE File Property Reader 2.0 Sample 的文件名 (Dsofile.dll)。您必须承认Microsoft 自有诀窍想出十分诡异的名称。不过不要被这个名称吓倒哦。实际上Dsofile您可以从Microsoft 下载中心免费获取它是一种对脚本编写者极其有用的工具它为读取和写入您的所有文件的摘要信息属性集提供了一种快速而简便的方法。 您对此的第一反应可能是“这太难以置信了你们为什么不早点告诉我们”您的第二反应可能是“那么摘要信息属性又是什么呢”如果您不清楚“文件的摘要信息属性集”指的是什么请执行以下操作。打开“Windows 资源管理器”或“我的电脑”找到一个文件。具体是哪个文件并不重要不过我们建议您使用 Microsoft Office 文档因为这样只需一两分钟就可以搞清楚。右键单击该文件单击“属性”。在出现的对话框中单击“摘要”选项卡。您应当看到与以下内容类似的内容如果与以下内容不一样请单击“高级”按钮 这就是摘要信息正如您所看到的那样可以向文件添加许多非常有用的元数据。更为重要的是可以随即使用这些元数据。举个例子如果您认真地填写了“主题”、“类别”和“关键字”等字段您就可以执行精确搜索从而可以快捷而方便地查找文件。如下所示使用 Microsoft Office 中的文件搜索命令可以基于这些摘要信息属性搜索文档新的 MSN 搜索工具也同样可以基于这些属性搜索文档。 实际上这正是脚本编写者想要获得的信息在我们收到的信件中有数十封都是询问如何编写可用来访问摘要信息的脚本以及如何编写可用来配置这些摘要信息的脚本。操作系统中内置的脚本编写工具不具有此功能。的确Shell 对象具有读取这些摘要信息字段中的某些字段的功能。不过Shell 对象无法向摘要信息字段执行写入操作。Windows Script Host、文件系统对象、WMI 或操作系统中内置的其他任何工具都无法解决此问题。除此之外还有许多好东西但好像都无能为力。 这就是 Dsofile 大显身手的地方。Dsofile 旨在为脚本编写者提供一种获取文件的摘要信息属性的方法。Dsofile 中内置了一组属性这些属性正好与 Microsoft Office 文档的标准属性相同。这倒不足为奇毕竟Dsofile 是由 Office 小组开发的。使用 Dsofile您可以绑定到文档并检索关于以下各项的信息 应用程序名 作者 字节数 类型 字符数 字符数计空格 备注 公司 创建日期 最后一次打印时间 最后一次保存的日期 隐藏幻灯片数 关键字 最后的保存者 行数 经理 多媒体剪辑数 注释数 页数 段落 演示格式 修订号 共享文档 幻灯片数 主题 模板 标题 总编辑时间 版本 字数 正如我们说过的那样这些是 Microsoft Office 文档中可以找到的属性。但是我们并不局限于从 Office 文档检索信息。我们还可以使用 Dsofile 绑定到其他类型的文件例如可以绑定到 .vbs 文件、.mp3 文件或其他文件。唯一需要说明的是Dsofile 无法获得上面列出的属性之外的任何其他属性。例如.jpg 文件具有“宽度”、“高度”和“色彩深度”之类的属性。虽然这些属性很有用但您无法使用 Dsofile 访问这些属性。 嗨打住吧Dsofile 并不是新玩意儿 可能会有一些持怀疑态度的人说“打住。这是老皇历了。Dsofile 已经推出好几年了。”确实如此不但 Dsofile 已推出数年而且我们的“脚本中心”中甚至已经有一些示例脚本可以向您演示如何使用该实用工具。不过一种新版本的 Dsofile 在十二月初悄悄地推出了这就是我们为什么要发表本专栏文章这就是我们为什么说要带给您最新的消息。假定两个月后仍可算作最新消息。不用您问我就会告诉您该新版本 Dsofile 专用于 .NET 编程语言不过据我们所知与前一版本相比它没有添加任何新功能。 这两种版本之间的区别就在那些利用 Dsofile 功能的脚本上。假设您已有旧版本的 Dsofile现在您下载并安装了该新版本。您的旧 Dsofile 脚本与“脚本中心”提供的一样无法用于新版本的 Dsofile这是因为使用旧版本时所需的脚本代码与使用新版本时所需的脚本代码之间存在一些差异。 例如下面这个脚本使用旧版本的 Dsofile 检索文档作者的名称 Set objPropertyReader CreateObject(DSOleFile.PropertyReader)
Set objDocument objPropertyReader.GetDocumentProperties _(C:/Scripts/New_users.xls)
Wscript.Echo Author: objDocument.AuthorSet objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)
Wscript.Echo Author: objFile.SummaryProperties.Author下面是重写后的脚本此脚本用于新版本的 Dsofile Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)
Wscript.Echo Author: objFile.SummaryProperties.Author正如您看到的两个脚本都返回了文档作者这大概是二者唯一的相似之处。两个脚本甚至连 ProgIds – DSOleFile.PropertyReader 和 DSOFile.OleDocumentProperties – 也不同。遗憾的是随 Dsofile 发布的短小文档并没有说清楚这一点如果您不注意的话您可能会像某位脚本专家那样安装了新版本 – 至少有一位脚本专家犯过这样的错误然后花费数小时尝试查找为什么旧脚本不能用的原因。 那些确实对此持怀疑态度的人可能还在想“小题大做难道不可以只创建一个 Office 应用程序实例来获得同样的信息吗”可以。不过使用 Dsofile 的价值不在于它能够获取其他应用程序如 Microsoft Office无法获取的独特信息而在于它只具有这一项功能。使用 Dsofile 的脚本返回信息的速度比使用 Microsoft Office 的脚本快因为您不需要仅为了确定文档作者而创建一个 Word 或 Excel 实例。Dsofile 可以更快捷、更方便地获取相同的信息同时还节省了启动 Office 应用程序的开销。这就是 Dsofile 成为如此有用的工具的原因所在。 很好但是如何使用 Dsofile 呢 问得好如果我们希望获得今年的脚本编写的普利策奖那么向您提供一些代码可能会有所帮助。如果他们真的设有脚本编写方面的普利策奖的话也会对我们实现这个“获奖梦”有帮助的。现在让我们仔细研究一下我们这个可以返回文档作者的脚本吧 Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)
Wscript.Echo Author: objFile.SummaryProperties.Author正如您看到的我们首先创建了一个 DSOFile.OleDocumentProperties 对象的实例。然后我们使用 Open 方法“打开”文件。我们将“打开”一词用引号引了起来这是因为我们没有以下面这种方式打开文件启动 Microsoft Excel 之类的应用程序然后加载文档。我们执行的操作实际上仅是绑定到文件附带的摘要信息元数据。 连接完成后我们只回显所需的摘要信息属性的值。此处没有什么特别的。唯一需要注意的是我们需要引用 SummaryProperties 对象因此我们使用了 objFile.SummaryProperties.Author 而没有使用 objFile.Author。但这只是一种技巧没有数组没有奇怪的日期转换没有我们大家已经开始喜欢的一些关于脚本的情况。 下面是一个更完整的脚本该脚本检索文件 C:/Scripts/New_users.xls 的全部摘要信息值。Dsofile 的另一项很好的功能是如果您尝试为一个与幻灯片无关的文件回显 SlideCount 等属性并不会生成错误。您只是获得一个 Null 值如果为数字属性则为 0脚本继续顺利运行。即使您检索文本文件、Windows Media 文件或任何其他非 Microsoft Office 文档的信息情况也是如此。 代码如下 Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)Wscript.Echo Application name: objFile.SummaryProperties.ApplicationName
Wscript.Echo Author: objFile.SummaryProperties.Author
Wscript.Echo Byte count: objFile.SummaryProperties.ByteCount
Wscript.Echo Category: objFile.SummaryProperties.Category
Wscript.Echo Character count: objFile.SummaryProperties.CharacterCount
Wscript.Echo Character count with spaces: objFile.SummaryProperties.CharacterCountWithSpaces
Wscript.Echo Comments: objFile.SummaryProperties.Comments
Wscript.Echo Company: objFile.SummaryProperties.Company
Wscript.Echo Date created: objFile.SummaryProperties.DateCreated
Wscript.Echo Date last printed: objFile.SummaryProperties.DateLastPrinted
Wscript.Echo Date last saved: objFile.SummaryProperties.DateLastSaved
Wscript.Echo Hidden slide count: objFile.SummaryProperties.HiddenSlideCount
Wscript.Echo Keywords: objFile.SummaryProperties.Keywords
Wscript.Echo Last saved by: objFile.SummaryProperties.LastSavedBy
Wscript.Echo Line count: objFile.SummaryProperties.LineCount
Wscript.Echo Manager: objFile.SummaryProperties.Manager
Wscript.Echo Multimedia clip count: objFile.SummaryProperties.MultimediaClipCount
Wscript.Echo Note count: objFile.SummaryProperties.NoteCount
Wscript.Echo Page count: objFile.SummaryProperties.PageCount
Wscript.Echo Paragraph count: objFile.SummaryProperties.ParagraphCount
Wscript.Echo Presentation format: objFile.SummaryProperties.PresentationFormat
Wscript.Echo Revision number: objFile.SummaryProperties.RevisionNumber
Wscript.Echo Shared document: objFile.SummaryProperties.SharedDocument
Wscript.Echo Slide count: objFile.SummaryProperties.SlideCount
Wscript.Echo Subject: objFile.SummaryProperties.Subject
Wscript.Echo Template: objFile.SummaryProperties.Template
Wscript.Echo Title: objFile.SummaryProperties.Title
Wscript.Echo Total edit time: objFile.SummaryProperties.TotalEditTime
Wscript.Echo Version: objFile.SummaryProperties.Version
Wscript.Echo Word count: objFile.SummaryProperties.WordCount当然检索摘要信息只是成功的一半作为脚本编写者您还希望能够配置这些属性值。朋友您很幸运。想要为文档指定一个标题吗只需使用下面这样的脚本即可 Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)objFile.SummaryProperties.Title New title added via a script
objFile.Save我们再次创建一个 OleDocumentProperties 对象实例然后调用 Open 方法打开文件。我们将标题 New title added via a script 赋给了 SummaryProperties.Title然后调用 Save 方法。这样就可以了。如果我们决定删除文档标题我们只需将属性值设置为空字符串如下所示 Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)objFile.SummaryProperties.Title
objFile.SaveDsofile 的一个缺点是它只能为 Microsoft Office 文档写入摘要信息字段。如果尝试用脚本为其他文件比如文本文件即 .txt 文件指定标题则会发生失败。这确实是生活中的一件伤心事。另外还请注意并不是所有的属性都是可写入的某些属性是只读的。您可以使用 Dsofile 更改文档的“标题”或“主题”但您不能 – 原因很明显 – 使用 Dsofile 更改“字节数”或“创建日期”属性。 话还没有说完 一般的脚本编写记者 – 比如那些就职于各主要脚本编写新闻组织的人士 – 很可能觉得万事大吉了他们确信自己已经讲清楚了您需要了解的所有关于 Dsofile 的情况。不过您觉得“脚本专家”是一个轻言放弃的团队吗 实际上我们是。可是我们的编辑说“自定义文档属性呢你们难道不认为人们会对自定义文档属性感兴趣吗”因为她长得人高马大将近 11 英尺高两眼喷火所以我们答应道“好的您说怎样就怎样。”我们还要指出既然她没有删掉“将近 11 英尺两眼喷火”显然这肯定是真的。 那么这些自定义文档属性怎么样呢正如我们在前面介绍的Microsoft Office 文档带有数十个内置的文档属性。但如果这些文档属性没有完全满足您的需要那该怎么办没问题您可以向 Microsoft Office 文档添加您自己的属性。 例如假设您想跟踪文档的上次查看日期。内置的文档属性没有包括名为查看日期的属性。没关系我们自己可以创建这样的属性 Const msoPropertyTypeDate 3Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)objFile.CustomProperties.Add Date Reviewed, msoPropertyTypeDate
objFile.Save我们首先定义一个名为 msoPropertyTypeDate 的常量将值 3 赋给它这是要告诉 Dsofile 我们要添加的自定义属性是日期字段。自定义属性可以是以下任一类型 常量 数据类型 值 msoPropertyTypeNumber 数字 1 msoPropertyTypeBoolean 布尔型是/否 2 msoPropertyTypeDate 日期 3 msoPropertyTypeString 字符串 4 换句话说如果我们要添加 Document Reviewed 属性并且我们只希望它指示文档是否修改过那么我们就可以添加 Boolean 属性如下所示 Const msoPropertyTypeBoolean 2Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)objFile.CustomProperties.Add Document Reviewed, msoPropertyTypeBoolean
objFile.Save现在回到“查看日期”属性。我们接着绑定到文档访问 CustomProperties 集合调用 Add 方法传递两个参数我们为新属性指定的名称查看日期和该新属性的数据类型 (msoPropertyTypeDate)。然后我们调用 Save 方法将新属性保存到 CustomProperties 集合。 当我们运行可以创建新的自定义属性的脚本时我们执行的操作实际上是留出一块可以存储信息的地方默认情况下没有任何信息实际存储在那里。换句话说我们有一个地方可以保存“查看日期”但那个地方将是空的。另外这个新属性不会出现在“属性”对话框中至少在您赋给它值之前不会。所以我们最好向您演示一下如何给这个新属性赋值。 若要赋值我们需要使用类似于以下代码的脚本 Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)Set objProperty objFile.CustomProperties.Item(Date Reviewed)
objProperty.Value #2/16/2005#
objFile.Save我们首先绑定到文件 C:/Scripts/New_users.xls。然后我们创建一个指向我们的自定义属性的属性引用这就是下面这行代码的作用 Set objProperty objFile.CustomProperties.Item(Date Reviewed)我们设置该属性的 Value然后调用 Save 方法保存我们的更改。就这些。现在“查看日期”属性将保存值2/16/2005。在为该属性赋值之后我们可以查看 New_users.xls 的“属性”对话框。在查看时将会看到与以下类似的内容 顺便说一下用两个井号 (#) 将日期括起来是标准的 VBScript 方法旨在确保将日期作为日期而非作为字符串或某种数学表达式比如2 除以 16再除以 2005来传递。 您说得对这确实更像诺贝尔奖而不是普利策奖。但还可以变得更好。那些在想“什么会比获得诺贝尔奖更好”的读者没有把 Dsofile 当回事儿对吧您不需要使用 Windows 资源管理器来检索文档附带的所有自定义属性的值您可以使用类似以下代码的脚本 Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)For Each objProperty in objFile.CustomPropertiesWscript.Echo objProperty.Name, objProperty.Value
Next因为 CustomProperties 是一个集合所以我们使用 For Each 循环来遍历该集合中的所有项回显属性名称及赋给它的值。非常简单是吧 如果您要删除此自定义属性该怎么办绑定到文档设置一个指向要删除的属性的对象引用然后调用 Remove方法 Set objFile CreateObject(DSOFile.OleDocumentProperties)
objFile.Open(C:/Scripts/New_users.xls)Set objProperty objFile.CustomProperties.Item(Date Reviewed)
objProperty.Remove
objFile.Save再次确保您调用了 Save 方法来保存对自定义属性集的更改。 我们应该感谢普利策奖委员会… …但是我们不能感谢他们因为他们实际上还没有颁发给我们普利策奖。不过我们确实希望您会觉得 Dsofile 很有用。我们尝试做的一件事情就是帮助您将脚本编写范围扩大一点。您可能还记得我们上个月介绍了 Log Parser这也是操作系统未附带但却对脚本编写者极其有用的工具。试用一下 Dsofile告诉我们您觉得它如何与往常一样您可以将您的电子邮件发送到以下地址scriptermicrosoft.com。 如果您确实觉得它很有用那么在您下次与普利策奖委员会中的某位委员谈话时希望您可以提一下“脚本专家”。要是那样的话我们还真得收拾收拾我们在匆忙中马马虎虎买来的礼服好好打扮一番。转载于:https://www.cnblogs.com/ywei221/p/3972054.html
