VBS 将文本复制到剪贴板，不带引号

Question

我试图获取路径，由上下文菜单“复制路径”的 Win7 功能复制 此路径总是带有引号的剪贴板。 我在 Word 中制作了一个 makro，我把标记去掉了。然后我尝试在 VBS 中执行此操作，但它不起作用。 在我的测试中，我发现如果我执行此代码，引号之间的任何文本都不会被放回剪贴板。 （简体）

Dim string

' Get clipboard text
Set objHTML = CreateObject("htmlfile")
String= objHTML.ParentWindow.ClipboardData.GetData("text")


String = Left(String,2)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo " & String & " | clip", 0, TRUE

当文本不在引号中时有效 - 只剩下 2 个字符。将文本放入剪贴板的标记中，将整个字符串放回剪贴板。有什么已知的原因吗？

Answer 1

Left Function 定义如下：

语法

Left(string, length)

从a的左侧返回指定数量的字符 字符串。

您需要编写自己的函数来去除双引号中的字符串：

VBScript：

option explicit

Function Dequote( sString )
  If Left( sString, 1 ) = """" And Right( sString, 1 ) = """" Then 
    Dequote = Mid( sString, 2, Len( sString) - 2)
  Else
    Dequote = sString
  End If
End Function

Dim String, objHTML, WshShell
' Get clipboard text
Set objHTML = CreateObject( "htmlfile")
String = objHTML.ParentWindow.ClipboardData.GetData( "text")

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo(" & Dequote( String) & "|clip", 0, TRUE

Wscript.Echo String, Dequote( String)   ' debugging output

VBA（单行 if 语法，未验证）：

Private Function Dequote(S As String) As String
If Left(S, 1) = """" And Right(S, 1) = """" Then Dequote = Mid(S, 2, Len(S) - 2) Else Dequote = S
End Function