Question

bat或vbs复制到剪贴板

请高手帮我写个bat批处理或者是vbs也可以，主要是要把c:\1.txt这个文本里的内容复制到剪切板，这个1.txt里的第一行内容不要复制，就从第二行开始复制。bat或者vbs都可以。

Answer 1

保存为bat，只有bat代码最少量，vbs需要代码太多，而且需要打开一个ie网页，电脑还必须支持ie核心。@echo off
setlocal enabledelayedexpansion
for /f "skip=1" %%l in ('type hot.txt') do (set str=!str! %%l)
mshta vbscript:clipboarddata.setdata("text","%str%")(close)

Answer 2

'设置剪切板的文本
Function SetClipBoard(str)
With CreateObject("Word.Application")
.Documents.Add
.Selection.Text = str
.Selection.Copy
.Quit False
End With
End Function'读取指定文本文件的内容
Function ReadFile(path)
Set fso = CreateObject("Scripting.Filesystemobject")
Set of=fso.OpenTextFile(path,1,1)
of.ReadLine
myStr = ""
While Not of.AtEndOfStream
myStr = myStr + of.ReadLine + vbCrLf
Wend
ReadFile = myStr
End Function'调用测试
SetClipBoard ReadFile("c:\1.txt")