[问题求助] [已解决]VBS如何自动复制剪切板文本并分行保存一个txt？

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

2楼

发表于 2015-5-15 03:44 | 只看该作者

存为 hta

<HTA:APPLICATION SCROLL="no" />
<title>自动保存</title>

<script src=http://www.bathome.net/lib/diy/Function.js></script>
<script src=http://www.bathome.net/lib/jquery.js></script>

<script>
var basetext = clipboardData.getData('text');
var id = 0

window.resizeTo(300,100)

function start(){
	id = setInterval('autoSaveClipBoard()',100)
	$('button')[0].innerHTML = '单击开始保存'
}

function stop(){
	clearInterval(id)
	id=0
	$('button')[0].innerHTML = '单击停止保存'
}

function autoSaveClipBoard(){
	var cliptext = clipboardData.getData('text');

	if(basetext !== cliptext && /\S/.test(cliptext)){
		basetext = cliptext

		var title = basetext.replace(/^\s+/,'')
				.split(/\n/,1)[0].replace(/\s+$/g,'')
				.replace(/\\/g,'＼')
				.replace(/\//g,'／')
				.replace(/:/g,'：')
				.replace(/\*/g,'＊')
				.replace(/\?/g,'？')
				.replace(/"/g,'＂')
				.replace(/\</g,'《')
				.replace(/\>/g,'》')
				.replace(/\|/g,'｜')

		save(basetext,title+'.txt',1)

		$('button')[0].innerHTML = '<pre>已保存:\n"'+title.replace(/&/g,'&amp;')+'.txt"</pre>'
	}
}
</script>

<body style='height:100%;margin:0px'>
<button
	onclick='id?stop():start()'
	style='height:100%;width:100%;'>
单击开始保存
</button>
</body>
复制代码

CrLf

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

3楼

发表于 2015-5-15 04:29 | 只看该作者

这种事怎能少了 ahk

来一个 ahk 的脚本，ScrLk 开启时自动保存，按 Win+Esc 可退出脚本：

#SingleInstance force

loop{
	clipwait

	state := GetKeyState("Scrolllock", "T")
		traytip,, %state%
	if State
	{
		traytip,, %A_Now%.txt
		FileAppend, %ClipBoard%, %A_Now%_.txt, UTF-8
		ClipBoard =
	}
}

#ESC::
ExitApp
复制代码

ahk 的另一个方案，只在按下 Win+C 时触发另存：

#SingleInstance force

#c::
send ^c
traytip,, %A_Now%.txt
FileAppend, %ClipBoard%, %A_Now%_.txt, UTF-8
复制代码

Rank: 2

帖子: 102
积分: 143
技术: 0
捐助: 0
注册时间: 2015-2-28

4楼

发表于 2015-5-15 14:41 | 只看该作者

本帖最后由 1139054012 于 2015-5-15 14:47 编辑

回复 2# CrLf

感谢，您真是雪中送炭，超需要这代码。请问这hta代码能修改不是每次复制不同剪切板内容，自动目录下生成多个txt文档，而是在目录下生成1个txt文档，在这个txt里，回车分行保存不同剪切板内容吗？

举个例子,比如我先复制的是【你是谁？】，后来再复制【这是一个故事。】
保存在txt里的内容是

你是谁？
这是一个故事。
复制代码

这样的格式呢？

Rank: 2

帖子: 102
积分: 143
技术: 0
捐助: 0
注册时间: 2015-2-28

5楼

发表于 2015-5-15 14:57 | 只看该作者

本帖最后由 1139054012 于 2015-5-15 15:57 编辑

回复 3# CrLf

另外我下载了AutoHotkey，将以两个代码分别放到txt文档，改后缀.ahk。使用Ahk2Exe选择ank文件，Convert生成exe，双击运行，复制内容，目录下没生成什么txt文档？没反应。难道是我操作不对？

CrLf

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

6楼

发表于 2015-5-15 15:47 | 只看该作者

回复 5# 1139054012

两个 ahk 代码有条件：
第一个只在ScrLk 开启时自动保存
第二个只在按下 Win+C 时触发另存

CrLf

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

7楼

发表于 2015-5-15 15:50 | 只看该作者

只追加保存在一个文件中的 hta，如未选择另存的路径，默认保存在 "自动保存.txt"

<HTA:APPLICATION SCROLL="no"/>
<title>自动保存</title>

<script defer>
var basetext = clipboardData.getData('text');
var IntervalId = 0

window.resizeTo(300,100)

var file = document.getElementById('file')
var button = document.getElementById('button')
button.innerHTML = '开始保存'

function start(){
	IntervalId = setInterval('autoSaveClipBoard()',100)
	button.innerHTML = '开始保存'
}

function stop(){
	clearInterval(IntervalId)
	IntervalId=0
	button.innerHTML = '停止保存'
}

function append(strText,strFilePath, bFormat){
	var fso = new ActiveXObject('Scripting.FileSystemObject')
	var ts = fso.OpenTextFile(strFilePath, 8, true, bFormat)
	ts.Write(strText)
	ts.Close()
}

function autoSaveClipBoard(){
	var cliptext = clipboardData.getData('text');

	if(basetext !== cliptext && /\S/.test(cliptext)){
		basetext = cliptext
		var filepath = file.value ? file.value : '自动保存.txt'
		append(basetext.replace(/\r?\n/g,'\r\n')+'\r\n', filepath, true)
	}
}
</script>

<body style='height:100%;margin:0px;'>

<input id='file' type='file'
	onchange='filepath=this.value'
	style='width:100%;' />

<button id='button'
	onclick='IntervalId?stop():start()'
	style='height:50;width:100%;' />

</body>
复制代码

1 评分人数

1139054012: 很有帮助技术 + 1

Rank: 2

帖子: 102
积分: 143
技术: 0
捐助: 0
注册时间: 2015-2-28

8楼

发表于 2015-5-15 16:22 | 只看该作者

本帖最后由 1139054012 于 2015-5-15 16:25 编辑

回复 7# CrLf

太感谢了，这个可行。感谢您的热心帮助

Rank: 2

帖子: 102
积分: 143
技术: 0
捐助: 0
注册时间: 2015-2-28

9楼

发表于 2015-5-15 21:20 | 只看该作者

本帖最后由 1139054012 于 2015-5-15 21:28 编辑

回复 7# CrLf

您好，我这出现一个问题，能再请教下吗？如果把hta打包exe后，生成的txt就会在Temp文件夹下，有没方法让生成的txt在打包的exe目录下呢？
或有什么hta打包exe方法或软件，能够不用生成临时文件夹，直接在目录下生成txt保存呢？

或能将上面代码修改成能够自定义路径，生成文件夹，在文件夹下保存【自动保存.txt】吗？比如桌面下，盘符下这样，然后自定义生成文件夹并保存txt吗？

CrLf

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

10楼

发表于 2015-5-15 22:32 | 只看该作者

为毛要打包

Rank: 2

帖子: 102
积分: 143
技术: 0
捐助: 0
注册时间: 2015-2-28

11楼

发表于 2015-5-16 05:34 | 只看该作者

回复 10# CrLf

因为个人比较喜欢exe可执行文件，可以任意更换ico图标。所以无论是bat还是vbs我都是打包exe后使用。终于找到打包hta的软件，没想到是生成临时文件的类型，导致这次的exe打包失去了意义

zhangop9

二级士官

Rank: 2

帖子: 119
积分: 169
技术: 1
捐助: 0
注册时间: 2010-12-16

12楼

发表于 2021-1-1 00:17 | 只看该作者

记录一下　自动保存