zoukankan      html  css  js  c++  java
  • beyondcompare 的word 直接转txt 脚本

    自带的word转换不稳定,直接调用word转出来的格式好看,缺点当然是依赖word。

    命令行:wscript Helpers\doc2txt.vbs %s %t

    脚本内容:(转换UTF-8的文本格式)

    ' ==> doc2txt.cmd <==
    ' cscript //Nologo "%~dpn0.vbs" "%~1"
    ' if errorlevel 1 pause
    
    Option Explicit
    On Error Resume Next
     
    Dim objWordApp
    Dim objWordDoc
    
    Dim objFileSys
    Dim objFile
    
    Dim strWordFilePath
    Dim strTextFilePath
     
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
    
    
    strWordFilePath = WScript.Arguments(0)
    Set objFile     = objFileSys.GetFile(strWordFilePath)
    
    strTextFilePath = WScript.Arguments(1)
    
    
    Set objWordApp = WScript.CreateObject("Word.Application")
    
    If Err.Number = 0 Then
      'WScript.Echo "create success"
    
      Set objWordDoc = objWordApp.Documents.Open(objFile.Path, false, true)
      'WScript.Echo "will save to" & strTextFilePath
      If Err.Number = 0 Then
    
        'WScript.Echo "open success"
        objWordDoc.SaveAs2 strTextFilePath, 2, false, "", true, "", false, false, false, false, false, 65001
     
        objWordDoc.Close
        objWordApp.Quit
      Else
        WScript.Echo "error:" & Err.Description
      End If
    Else
      WScript.Echo "error:" & Err.Description
    End If
     
    Set objWordDoc = Nothing
    Set objWordApp = Nothing
    Set objFileSys = Nothing
    Set objFile    = Nothing
  • 相关阅读:
    转载:怎样用通俗的语言解释REST,以及RESTful?
    WiresShark 图解教程1
    派力奥 1.3 发动机
    EtherChannel Cisco 端口聚合详解
    Linux 排除问题的前5分钟
    Linux 定时任务crontab
    Linux SCP命令复制传输文件的用法
    Linux 挂载aliyun数据盘
    BCDedit 研究
    Bcdedit命令使用详解使用方法
  • 原文地址:https://www.cnblogs.com/dongzhiquan/p/15693748.html
Copyright © 2011-2022 走看看