减小字体
增大字体- ·上一篇文章：用VBS实现的批量gb2312转utf-8,支持拖动
- ·下一篇文章：VBS实现倒计时提示功能
- ·百度中搜索更多的关于“用vbs实现将剪切板的unix格式的内容处理成pc格式的代码”相关内容
- ·谷歌中搜索更多的关于“用vbs实现将剪切板的unix格式的内容处理成pc格式的代码”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本）
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
s = objIE.document.parentwindow.clipboardData.GetData("text")
objie.quit
set file=fso.createtextfile("tmp.txt")
file.write s
file.close
ws.run "cmd /c more tmp.txt>test.txt",0,true
fso.deletefile "tmp.txt"
ws.run "notepad.exe test.txt"
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
s = objIE.document.parentwindow.clipboardData.GetData("text")
objie.quit
set file=fso.createtextfile("tmp.txt")
file.write s
file.close
ws.run "cmd /c more tmp.txt>test.txt",0,true
fso.deletefile "tmp.txt"
ws.run "notepad.exe test.txt"
