[文件操作] 如何实现提取word标题或者第一行前几个字为文件名

swanseabrian

遍历文件目录
如何实现提取word标题或者第一行前几个字为文件名

这个可以做吗,谢谢

swanseabrian

回复 20# idwma


   你看一下这个贴子,比较 清楚
https://fishc.com.cn/thread-207336-1-1.html

idwma

回复 19# swanseabrian


    懵了没看懂

swanseabrian

回复 2# idwma


    老铁,现在有这么个问题,powershell怎么解决?

a文件夹 a1文件夹  a1子文件夹1里图片数量  a1子文件夹2里图片数量  a文件夹创建时间
a文件夹 a2文件夹  a2子文件夹1里图片数量  a2子文件夹2里图片数量  a文件夹创建时间
a文件夹 a3文件夹  a3子文件夹1里图片数量  a3子文件夹2里图片数量  a文件夹创建时间

上面这是excel里的栏目顺序  5个栏目  我要的效果就上面的效果



现在要用程序

遍历文件夹来写入到相应的栏目

匹配到excel里对应到excel里的栏目,

这个powershell 如何实现呢
python效果太低了,
还是powershell效果高
谢谢

idwma

回复 16# swanseabrian


    没碰到过,不知道呀

swanseabrian

回复 14# 5i365


    你那里ok?? 老铁?

swanseabrian

回复 13# idwma


    RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)
所在位置 行:4 字符: 1
+ $b=$a.Documents.Open($_.fullname)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: ( [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)
所在位置 行:5 字符: 1
+ $c=$b.range().text.trim().substring(0,5)+$_.extension #5是前5个字
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)
所在位置 行:6 字符: 1
+ $b.close()
+ ~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

ren : 当文件已存在时，无法创建该文件。
所在位置 行:7 字符: 1
+ ren $_.fullname $c
+ ~~~~~~~~~~~~~~~~~~

这是啥问题 批量怎么就不行

swanseabrian

回复 14# 5i365


    RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)
所在位置 行:4 字符: 1
+ $b=$a.Documents.Open($_.fullname)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: ( [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)
所在位置 行:5 字符: 1
+ $c=$b.range().text.trim().substring(0,5)+$_.extension #5是前5个字
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)
所在位置 行:6 字符: 1
+ $b.close()
+ ~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

ren : 当文件已存在时，无法创建该文件。
所在位置 行:7 字符: 1
+ ren $_.fullname $c
+ ~~~~~~~~~~~~~~~~~~

5i365

回复 13# idwma


    这次是OK的

idwma

回复 12# swanseabrian
换了一种方式只有office2003,docx没试

#@&cls&powershell "type %~s0|out-string|iex"&pause&exit
$a=new-object -comobject word.application
dir * -inc *.doc,*.docx|%{
$b=$a.Documents.Open($_.fullname)
$c=$b.range().text.trim().substring(0,5)+$_.extension #5是前5个字
$b.close()
ren $_.fullname $c
}
$a.quit()
复制代码

swanseabrian

回复 2# idwma


    你发的啥,看不到了怎么回事

swanseabrian

回复 11# idwma


    刚试了,没改, 也没报错

swanseabrian

回复 6# swanseabrian


    ren : 当文件已存在时，无法创建该文件。
所在位置 行:6 字符: 1
+ ren $_.fullname "$($c+$_.extension)"
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : WriteError: (C:\Users\Admini...检测卷新人教版_360.doc:String) [Rename-Item], IOException
    + FullyQualifiedErrorId : RenameItemIOError,Microsoft.PowerShell.Commands.RenameItemCommand

这是啥意思

5i365

回复 8# swanseabrian


    嗯, 不能用, 执行命令后, 就没有文件名了, 你用我的下面的文件名试一下

新建 Microsoft Word 文档.docx

swanseabrian

回复 7# 5i365


    不能用?