前幾篇寫了有關將檔案內容複製到剪貼簿的函數
本篇為如何將剪貼簿中的文字複製到檔案

用處:
假設今天看到某網頁中的某段話很有意思 想要存起來

使用方法:
選取欲複製的內容後按ctrl+C
再執行以下指令
D:\summary.txt為檔案位置
PS C:\> CopyfromClipboard D:\summary.txt

函數內容:

function CopyFromClipBoard ($path=$(throw "need path")) 
#宣告$Path變數,存放欲寫入的檔案路徑,此為必須輸入的參數
{

     #檢驗$Path是否為存在的路徑
     
 if(!(Test-Path $path))
     {
          #不存在的路徑
          write-host "path is not valid"
     }
     else
    {  

           #檢驗$Path是否為檔案
           if(Test-Path -pathtype leaf $path)
          {
                [string]$Result=""
                $ScriptControl = New-Object -ComObject ScriptControl
                $ScriptControl.Language = "VBScript"
                #仍是透過IE存取剪貼簿
                $ScriptControl.AddCode('Function FromClipBoard() Set objIE = CreateObject("InternetExplorer.Application"):objIE.Navigate
               ("about:blank"):FromClipBoard=objIE.document.parentwindow.clipboardData.getData("text"):objIE.Quit:End Function')
                $myVBCodeObj = $ScriptControl.CodeObject
                 #執行VBscript
                $Result = $myVBCodeObj.FromClipBoard()
                 #將剪貼簿的內容附加到指定的檔案中
                 add-content -path $path -value $Result

           }
            else
           {
             #不是檔案
             write-host "path is not a file"
            }

      }

}

創作者介紹

PowerShell@HungYuWu

ayowu 發表在 痞客邦 PIXNET 留言(0) 人氣()