标题: [文本处理] [已解决]批处理怎样将文件侠内的文件名导入表格对应名称中? [打印本页]
作者: fcxk 时间: 2015-9-15 17:41 标题: [已解决]批处理怎样将文件侠内的文件名导入表格对应名称中?
将相片文件内的相片名称导入1表格对应名字中
结果如:2表格
作者: pcl_test 时间: 2015-9-15 18:24
- @echo off
- >$ dir /b "相片\*.jpg"
- (for /f "tokens=1 delims=, " %%a in (1.csv) do (
- set /p"=%%a,"
- findstr "%%a" $||echo;
- ))<nul>2.csv
- del $
- pause
复制代码
作者: fcxk 时间: 2015-9-15 19:06
回复 2# pcl_test
完美
作者: pcl_test 时间: 2015-9-15 20:25
- /*&cls
- @echo off
- dir /b "相片\*.jpg"|cscript -nologo -e:jscript "%~f0"
- pause & exit/b
- */
-
- var jpglist = '';
- while(!WScript.StdIn.AtEndOfStream){
- jpglist += WScript.StdIn.ReadLine()+'\r';
- }
- var fd = new ActiveXObject("Scripting.FileSystemObject").GetFolder(".").Path
- var objExcel = new ActiveXObject("Excel.Application");
- var objBook = objExcel.Workbooks.open(fd+'\\1.xls');
- objBook.worksheets(1).activate;
- var objSheet = objBook.activeSheet;
- var cnt = objSheet.usedrange.rows.count;
- for(var i = 1; i<=cnt; i++) {
- var A1 = objSheet.Cells(i, 1).value;
- var re = new RegExp("[^\\r]*?"+A1+"[^\\r]*?\\.jpg","ig");
- var m = jpglist.match(re);
- if(m)objSheet.Cells(i, 2).value = m[0];
- }
- objBook.SaveAs(fd+'\\2.xls');
- objBook.Close();
- objExcel.Quit();
复制代码
作者: fcxk 时间: 2015-9-16 08:30
回复 4# pcl_test
还不错,就是总是提示要不要保存2.xls,
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |