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

[文本处理] [已解决]如何将剪贴板中的内容删除所有的空格后输出到以当前日期命名的文本中?

目的:将剪贴板中的内容生成到txt里并以当前日期命名
过程:先复制表格中数据,再运行bat,数据生成到txt里并替换掉里面的空格。(因为从Excel复制的数据直接粘贴到txt里有很多的空格)
经过论坛里的帮助,终于实现了,下面是代码(运行后会生成2个txt,一个我设置名称为“临时”一个为当前日期命名的文件,这个才是最终需要的)

@echo off
mshta "javascript:var s=clipboardData.getData('text');if(s)new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(s);close();"|more >临时.txt

@echo off & setlocal enabledelayedexpansion
set file=临时.txt
(for /f "delims=" %%i in (%file%) do (
        set line=%%i
        echo;!line: =!
))>业绩%date:~5,2%.%date:~8,2%.txt
pause

完美解决。非常感谢
1

评分人数

本帖最后由 pcl_test 于 2016-7-21 23:11 编辑
  1. //&cls&mshta "%~f0"&pause&exit
  2. <script>
  3. var fso = new ActiveXObject('Scripting.Filesystemobject')
  4. var today = new Date();
  5. var file = today.getFullYear()+('0'+(today.getMonth()+1)).slice(-2)+('0'+today.getDate()).slice(-2)+'.txt';
  6. fso.CreateTextFile(file, 2).Write(clipboardData.getData('text').replace(/[  \t]/g, ''));
  7. close();
  8. </script>
复制代码

TOP

回复 5# 回家路上


    下次知道了,谢谢。

TOP

给你一个小提示:
       论坛里不允许修改初始需求。除非需求不合理管理或版主要求说明。否则一经说明别人解决后的问题不允许修改的,只能追加或另发帖。
人生是一部书/只有这一页最温暖/读懂它的时候/我们在远方流泪...

TOP

回复 5# qunzhujunjun


    运行你压缩包里的bat生成的txt名字是什么?得先有那个txt文件

TOP

回复 3# qunzhujunjun


    说说你是怎么操作的?

TOP

  1. @echo off & setlocal enabledelayedexpansion
  2. set file=%~dp0业绩%date:~5,2%.%date:~8,2%.txt
  3. (for /f "delims=" %%i in (%file%) do (
  4. set line=%%i
  5. echo;!line: =!
  6. ))>result.txt
  7. pause
复制代码
人生是一部书/只有这一页最温暖/读懂它的时候/我们在远方流泪...

TOP

返回列表