- 主题:大声吼一句,求滚动复制方法 (转载)
用的是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.*]
--
FROM 119.57.112.*
web下的搜索功能没有^g7下强大,有时不能满足需求
【 在 aotian (aotian) 的大作中提到: 】
: 标 题: Re: 大声吼一句,求滚动复制方法 (转载)
: 发信站: 水木社区 (Sat Jan 11 23:55:53 2014), 站内
:
: 这个Fterm下的vbs脚本对于页面加载的判断都不是特别好
: 所以如果多了,出问题的概率就会比较高
: 现在我还是倾向于在web下抓,应该是比term下又快又好
: 如果你习惯用Cterm,可以考虑用Python写,他那里自己集成了一个判断页面加载的函数
: 可能会相对好一些
:
:
: 【 在 Caps (天也不懂情) 的大作中提到: 】
: : 我昨天运行,还可以用
: : 但不是很稳定,大批量操作NG
: : 另外不知道是我网速的问题还是怎么了
: : ...................
:
: --
:
: ※ 来源:·水木社区 newsmth.net·[FROM: 42.81.235.*]
--
FROM 119.57.112.*
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.*]
--
FROM 42.81.235.*
web下直接抓整版,然后自己根据条件检索
【 在 haning (寒宇) 的大作中提到: 】
: web下的搜索功能没有^g7下强大,有时不能满足需求
--
FROM 42.81.235.*
学呗,我最开始学python就是为了写cterm下的脚本硬着头皮学的
当时国内还几乎没有什么教程
【 在 Caps (天也不懂情) 的大作中提到: 】
: 用python呀,毫无基础呀
--
FROM 42.81.235.*
就是用curl在www2上抓取文章列表每一页呗,这个应该非常快,如果技站没限制的话
然后如果需要高级应用的话再抓取每一篇文章的内容,那就想搜什么都可以搜什么了
【 在 Caps (天也不懂情) 的大作中提到: 】
: 要不教教大家如何用这个
--
FROM 42.81.235.*
没有了,以前写的都是在别的BBS上玩类mud游戏的
【 在 Caps (天也不懂情) 的大作中提到: 】
: 那你cterm现成有啥好用的脚本吗
--
FROM 42.81.235.*
没生成这个文件
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.*
提示复制成功了吗?
要不可以把buffer.txt那里用绝对路径写全了试试看
只要有写权限的目录应该都可以吧
【 在 haning (寒宇) 的大作中提到: 】
: 没生成这个文件
: btw:对于这个脚本的路径没啥特殊要求吧
--
修改:aotian FROM 42.81.235.*
FROM 42.81.235.*
运行完没提示
在脚本所在的目录下找到这个buffer.txt文件了,里面的内容是帖子列表
3ks
【 在 aotian (aotian) 的大作中提到: 】
: 标 题: Re: 大声吼一句,求滚动复制方法 (转载)
: 发信站: 水木社区 (Sun Jan 12 00:16:14 2014), 站内
:
: 提示复制成功了吗?
: 要不可以把buffer.txt那里用绝对路径写全了试试看
:
: 【 在 haning (寒宇) 的大作中提到: 】
: : 没生成这个文件
: : btw:对于这个脚本的路径没啥特殊要求吧
:
:
: --
:
: ※ 来源:·水木社区 newsmth.net·[FROM: 42.81.235.*]
--
FROM 119.57.112.*