没生成这个文件
btw:对于这个脚本的路径没啥特殊要求吧
【 在 aotian (aotian) 的大作中提到: 】
: 标 题: Re: 大声吼一句,求滚动复制方法 (转载)
: 发信站: 水木社区 (Sun Jan 12 00:01:40 2014), 站内
:
: dim myFile, fso
: Set fso = CreateObject("Scripting.FileSystemObject")
: Set myFile = fso.OpenTextFile("buffer.txt", 2, true)
: myFile.write rltStr
: myFile.close
: Set myFile = nothing
: Set fso = nothing
:
: 用这一段试试看,然后看是否在Fterm安装目录下会生成buffer.txt文件并写入文章列表了
:
:
:
: 【 在 haning (寒宇) 的大作中提到: 】
: : 标 题: Re: 大声吼一句,求滚动复制方法 (转载)
: : 发信站: 水木社区 (Sat Jan 11 23:56:38 2014), 站内
: :
: : 用的是64位win7
: : 怎么换成写入文件?
: : 【 在 aotian (aotian) 的大作中提到: 】
: : : 标 题: Re: 大声吼一句,求滚动复制方法 (转载)
: : : 发信站: 水木社区 (Sat Jan 11 23:53:41 2014), 站内
: : :
: : : 应该是操作系统不兼容吧我猜
: : : 把这一段放入剪贴板的代码换成写入文件的应该就行了
: : :
: : : Set form = CreateObject("Forms.Form.1")
: : : Set textBox = form.Controls.Add("Forms.TextBox.1").Object
: : : textBox.MultiLine = True
: : : textBox.Text = rltStr
: : : textBox.SelStart = 0
: : : textBox.SelLength = textBox.TextLength
: : : textBox.Copy
: : : Set textBox = nothing
: : : Set form = nothing
: : :
: : :
: : :
: : : 【 在 haning (寒宇) 的大作中提到: 】
: : : : @aotian
: : : : 是我打开的方式不对吗?运行后都提示
: : : : “
: : : : ...................
: : :
: : : --
: : :
: : : ※ 来源:·水木社区 newsmth.net·[FROM: 42.81.235.*]
: :
: :
: : --
: :
: : ※ 来源:·水木社区 newsmth.net·[FROM: 119.57.112.*]
:
:
: --
:
: ※ 来源:·水木社区 newsmth.net·[FROM: 42.81.235.*]
--
FROM 119.57.112.*