[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
1楼 跳转到 »
发表于 2015-5-15 03:44 | 显示全部帖子
存为 hta
  1. <HTA:APPLICATION SCROLL="no" />

  2. <title>自动保存</title>

  3. 

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

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

  6. 

  7. <script>

  8. var basetext = clipboardData.getData('text');

  9. var id = 0

  10. 

  11. window.resizeTo(300,100)

  12. 

  13. function start(){

  14. 	id = setInterval('autoSaveClipBoard()',100)

  15. 	$('button')[0].innerHTML = '单击开始保存'

  16. }

  17. 

  18. function stop(){

  19. 	clearInterval(id)

  20. 	id=0

  21. 	$('button')[0].innerHTML = '单击停止保存'

  22. }

  23. 

  24. function autoSaveClipBoard(){

  25. 	var cliptext = clipboardData.getData('text');

  26. 

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

  28. 		basetext = cliptext

  29. 

  30. 		var title = basetext.replace(/^\s+/,'')

  31. 				.split(/\n/,1)[0].replace(/\s+$/g,'')

  32. 				.replace(/\\/g,'＼')

  33. 				.replace(/\//g,'／')

  34. 				.replace(/:/g,'：')

  35. 				.replace(/\*/g,'＊')

  36. 				.replace(/\?/g,'？')

  37. 				.replace(/"/g,'＂')

  38. 				.replace(/\</g,'《')

  39. 				.replace(/\>/g,'》')

  40. 				.replace(/\|/g,'｜')

  41. 

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

  43. 

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

  45. 	}

  46. }

  47. </script>

  48. 

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

  50. <button

  51. 	onclick='id?stop():start()'

  52. 	style='height:100%;width:100%;'>

  53. 单击开始保存

  54. </button>

  55. </body>
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2015-5-15 04:29 | 显示全部帖子
这种事怎能少了 ahk

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

  2. 

  3. loop{

  4. 	clipwait

  5. 

  6. 	state := GetKeyState("Scrolllock", "T")

  7. 		traytip,, %state%

  8. 	if State

  9. 	{

  10. 		traytip,, %A_Now%.txt

  11. 		FileAppend, %ClipBoard%, %A_Now%_.txt, UTF-8

  12. 		ClipBoard =

  13. 	}

  14. }

  15. 

  16. #ESC::

  17. ExitApp
复制代码
ahk 的另一个方案，只在按下 Win+C 时触发另存：
  1. #SingleInstance force

  2. 

  3. #c::

  4. send ^c

  5. traytip,, %A_Now%.txt

  6. FileAppend, %ClipBoard%, %A_Now%_.txt, UTF-8
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
3楼
发表于 2015-5-15 15:47 | 显示全部帖子
回复 5# 1139054012


两个 ahk 代码有条件：
第一个只在ScrLk 开启时自动保存
第二个只在按下 Win+C 时触发另存
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
4楼
发表于 2015-5-15 15:50 | 显示全部帖子
只追加保存在一个文件中的 hta，如未选择另存的路径，默认保存在 "自动保存.txt"
  1. <HTA:APPLICATION SCROLL="no"/>

  2. <title>自动保存</title>

  3. 

  4. <script defer>

  5. var basetext = clipboardData.getData('text');

  6. var IntervalId = 0

  7. 

  8. window.resizeTo(300,100)

  9. 

  10. var file = document.getElementById('file')

  11. var button = document.getElementById('button')

  12. button.innerHTML = '开始保存'

  13. 

  14. function start(){

  15. 	IntervalId = setInterval('autoSaveClipBoard()',100)

  16. 	button.innerHTML = '开始保存'

  17. }

  18. 

  19. function stop(){

  20. 	clearInterval(IntervalId)

  21. 	IntervalId=0

  22. 	button.innerHTML = '停止保存'

  23. }

  24. 

  25. function append(strText,strFilePath, bFormat){

  26. 	var fso = new ActiveXObject('Scripting.FileSystemObject')

  27. 	var ts = fso.OpenTextFile(strFilePath, 8, true, bFormat)

  28. 	ts.Write(strText)

  29. 	ts.Close()

  30. }

  31. 

  32. function autoSaveClipBoard(){

  33. 	var cliptext = clipboardData.getData('text');

  34. 

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

  36. 		basetext = cliptext

  37. 		var filepath = file.value ? file.value : '自动保存.txt'

  38. 		append(basetext.replace(/\r?\n/g,'\r\n')+'\r\n', filepath, true)

  39. 	}

  40. }

  41. </script>

  42. 

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

  44. 

  45. <input id='file' type='file'

  46. 	onchange='filepath=this.value'

  47. 	style='width:100%;' />

  48. 

  49. <button id='button'

  50. 	onclick='IntervalId?stop():start()'

  51. 	style='height:50;width:100%;' />

  52. 

  53. </body>
复制代码
1

评分人数

链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
5楼
发表于 2015-5-15 22:32 | 显示全部帖子
为毛要打包
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

返回列表