找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 27996|回复: 7

[文本处理] 求助批处理提取当天修改过的CSV文件内指定关键字行上传

[复制链接]
发表于 2020-11-2 10:09:57 | 显示全部楼层 |阅读模式
各大神帮忙看下;
       1)在E盘csv\99 源文件下提取当天修改过的文件;
2)提取的CSV格式文件含有关键字的行生成A.TXT文本;
3)然后把这个文本上传到FTP服务器 TEST文件夹下;
大神帮忙看下怎么改嗄,怎么组合到一起用嗄!
@echo off&setlocal enabledelayedexpansion

1)del/q/s "E:\CSV\99\New"
for /f "skip=4" %%a in ('dir "%~nx0" /ta') do (set a=!a!,%%a

set b=!a:~1,4!&set c=!a:~6,5!

set d=!c!-!b!)

echo 复制%d%以后的文件


xcopy /d:%d% "E:\csv\99" "E:\csv\99\New"

2)cd/d E:\CSV\99\New
type *.csv 2>nul|find "Voltage1"|find "S3"|sort>s3.txt
type *.csv 2>nul|find "Voltage1"|find "S4"|sort>s4.txt

3)Echo open 10.30.10.4>ftp.up
Echo admin>>ftp.up
Echo admin>>ftp.up
Echo Cd .\TEST >>ftp.up
Echo binary>>ftp.up
Echo prompt >>ftp.up
Echo lcd "E:\csv\99\New">>ftp.up
Echo mput "E:\csv\99\New\*.TXT">>ftp.up
Echo bye>>ftp.up
FTP -s:ftp.up
del ftp.up /q
pause
 楼主| 发表于 2020-11-2 12:24:50 | 显示全部楼层
回复 1# haichuan5121


    没有大哥哥**姐帮忙吗?
 楼主| 发表于 2020-11-2 22:13:43 | 显示全部楼层
回复 1# haichuan5121


    大神帮帮忙呢
发表于 2020-11-2 23:39:38 | 显示全部楼层
回复 1# haichuan5121


你自己尝试把这几段代码放在一个bat文件里面执行的时候,到哪一步报错了?
请参考Q-01观察一下具体报错信息:
https://mp.weixin.qq.com/s/6lbb97qUOs1sTyKJfN0ZEQ
 楼主| 发表于 2020-11-3 12:39:51 | 显示全部楼层
回复 4# Batcher


   没有报错;单纯运行第一个 可以把当天的提取出来; 运行第二个可以把第一个提取的部分含关键字的行生成TXT;再运行第三个可以上传;但直接放一起只能执行第一个的把当天的放到本地新文件夹,不能自动提取成TXT和上传
发表于 2020-11-3 18:36:34 | 显示全部楼层
回复 5# haichuan5121


    请把你合并成的一个bat文件打包压缩传上来我试试,另外就是你按照4楼的方法执行bat的时候看到的信息能否也发出来看看?
 楼主| 发表于 2020-11-4 13:29:44 | 显示全部楼层
回复 6# Batcher


   :\Users\10000>setlocal enabledelayedexpansion

:\Users\10000>del/q/s "E:\CSV\99\New"
删除文件 - E:\CSV\99\New\88 - 副本.csv
删除文件 - E:\CSV\99\New\s3.txt
删除文件 - E:\CSV\99\New\s4.txt
删除文件 - E:\CSV\99\New\复制当天修改文件 - 副本.bat
删除文件 - E:\CSV\99\New\复制当天修改文件.bat

:\Users\10000>for /F "skip=4" %a in ('dir "test.bat" /ta'
et a=!a!,%a
set b=!a:~1,4!  & set c=!a:~6,5!
set d=!c!-!b!

找不到文件

:\Users\10000>echo 复制以后的文du件
复制以后的文du件

:\Users\10000>xcopy /d: "E:\csv\99" "E:\csv\99\New"
无效的开关 - /d:

:\Users\10000>cd/d E:\CSV\99\New
发表于 2020-11-4 14:29:59 | 显示全部楼层
回复 7# haichuan5121


    请把你合并成的一个bat文件打包压缩传上来我试试
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-20 07:19 , Processed in 0.018788 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表