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

[文本处理] 批处理如何在TXT文件里怎样有条件的合并行?

原文
姓名  日期       打卡时间
员工1 2011-10-25 08:54
员工2 2011-10-25 08:17
员工3 2011-10-26 08:10
员工1 2011-10-25 17:35
员工2 2011-10-26 17:14
员工3 2011-10-25 17:34
员工1 2011-11-25 08:54
员工2 2011-11-25 08:17
员工3 2011-11-26 08:10
员工1 2011-11-25 17:35
员工2 2011-11-26 17:14
员工3 2011-11-25 17:34

要求合并后的效果

姓名  日期     上班时间  下班时间
员工1 2011-10-25 08:54          17:35
员工2 2011-10-25 08:17   17:14
员工3 2011-10-26 08:10   17:34
员工1 2011-11-25 08:54   17:35
员工2 2011-11-25 08:17   17:14
员工3 2011-11-26 08:10   17:34

楼主这个好像是从Excel或数据库中导出来的?其实用原生方法更简单,为什么要变成文本?
  1. @set @n=0//&cscript.exe -e:jscript "%~f0"&exit /b
  2. file = "考勤.txt";
  3. fso = new ActiveXObject("Scripting.FileSystemObject");
  4. s = fso.OpenTextFile(file).ReadAll();
  5. s = s.replace(/^\s+|\s*\n\s*/g,'\r\n').replace(/ +/g,',');
  6. temp = '#'+file;
  7. ts = fso.OpenTextFile(temp, 2, true);
  8. ts.write(s); ts.close();
  9. strConnect = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.;'
  10.     + 'Extended Properties="text;HDR=yes;FMT=Delimited;";';
  11. AdoCnn = new ActiveXObject("ADODB.Connection");
  12. AdoCnn.ConnectionString = strConnect;
  13. AdoCnn.Open();
  14. s = "姓名,日期,上班时间,下班时间\r\n";
  15. AdoRs = new ActiveXObject("ADODB.Recordset");
  16. AdoRs.Open("SELECT [a.姓名],[a.日期],[a.打卡时间],[b.打卡时间] from ["+temp+"] as a inner join ["+temp+"] as b  ON (a.[姓名]=b.[姓名] AND a.[日期]=b.[日期] AND a.[打卡时间]<b.[打卡时间])", AdoCnn, 3);
  17. s += AdoRs.GetString(2, AdoRs.RecordCount, ",", "\r\n");
  18. fso.OpenTextFile('result.csv', 2, true).write(s);
  19. AdoRs.Close();
  20. AdoCnn.Close();
  21. fso.DeleteFile(temp);
复制代码
2

评分人数

    • zqz0012005: 谁说没人用JS?这位就是高手PB + 20 技术 + 2
    • CrLf: 幸苦了技术 + 1

TOP

非常感谢2楼的回答!其实原文数据我是从考勤机里导出来的,已经做过一些处理了。我刚开始学编程,对于2楼回复的代码还是不能完全理解,我会继续努力向2楼学习,再次感谢!

TOP

返回列表