使用VbScript将特定值复制到剪贴板_Vbscript_Hta

使用VbScript将特定值复制到剪贴板

vbscript

使用VbScript将特定值复制到剪贴板,vbscript,hta,Vbscript,Hta,下面是我的困境。我需要将txtPreview.Value复制到剪贴板和UpdatePreview子项的末尾。如图所示，我使用子UpdatePreview将特定的数据和值从页面的其他部分整体应用到预览窗格，还有下面的按钮来运行所说的sub。我似乎无法得到正确的东西组合来将txtPreview.Value复制到剪贴板 Sub UpdatePreview txtPreview.Value = "Customer/Agency " &_ vbNewLine &

下面是我的困境。我需要将txtPreview.Value复制到剪贴板和UpdatePreview子项的末尾。如图所示，我使用子UpdatePreview将特定的数据和值从页面的其他部分整体应用到预览窗格，还有下面的按钮来运行所说的sub。我似乎无法得到正确的东西组合来将txtPreview.Value复制到剪贴板

Sub UpdatePreview  
    txtPreview.Value =    "Customer/Agency " &_
    vbNewLine & Customer.Value & " / " & AgencyName.value & " #" & AgencyID.value &_
                     vbNewLine &_
                     vbNewLine & "1. QUESTIONS/NEEDS/VALUE" &_
                     vbNewLine & issue1.value &_
                     vbNewLine &_
                     vbNewLine & "2. TROUBLESHOOTING" &_
                     vbNewLine & issue2.value &_
                     vbNewLine &_
                     vbNewLine & "3. SOLUTIONS " &_
                     vbNewLine & issue3.value &_
                     vbNewLine &_
                     vbNewLine & "4. OUTCOME  " &_
                     vbNewLine & issue4.value &_
                     vbNewLine &_
                     vbNewLine                   
End Sub
<input type="button" class="note" value="Preview"  OnClick=UpdatePreview>

子更新预览
txtPreview.Value=“客户/代理”&_
vbNewLine&Customer.Value&“/”&AgencyName.Value&“#”&AgencyID.Value&_
vbNewLine&_
vbNewLine&“1.问题/需求/价值”&_
vbNewLine&issue1.value&_
vbNewLine&_
vbNewLine&“2.故障排除”&_
vbNewLine&issue2.value&_
vbNewLine&_
vbNewLine和“3.解决方案”&_
vbNewLine&issue3.value&_
vbNewLine&_
vbNewLine和“4.结果”&_
vbNewLine&issue4.value&_
vbNewLine&_
vbNewLine
端接头


document.write document.parentwindow.clipboardData.GetData（“文本”）

要将文本放在剪贴板上，请使用

document.parentwindow.clipboardData.SetData“text”，txtPreview.Value

<html>
<body>
<script language=vbscript>
document.write document.parentwindow.clipboardData.GetData("TEXT")

</script>
</body>
</html>