dataFilterSendKeys.bat

@echo off & setlocal enabledelayedexpansion & chcp 65001
if not "%username%"=="****" exit
call :sound "此工具为****，****专用"
call :sound "数据处理中，请稍候……"
xdoc2txt -8 "验货未收货细信息导出.xls" > Xls2Txt.txt
::==========转换表格为可读==========
cd. >Filter.txt
for /f "skip=3 tokens=3-11" %%a in (
		Xls2Txt.txt
	) do (
		if "%%g"=="018" if "%%h"=="*********" echo %%a
)>>Filter.txt
>nul del /s /q Xls2Txt.txt
::==========过滤路区及地址==========
>nul chcp 936
cd. >TempDQ.txt
if not exist BuQi.txt (
		cd. >BuQi.txt
		rename Filter.txt Filtered.txt
	) else (
		cd. >Filtered.txt
		copy /b BuQi.txt+Filter.txt TempFilter.txt
		for /f "delims=" %%a in (TempFilter.txt) do (
			find /i "%%a" Filtered.txt||echo %%a>>Filtered.txt
		)
)>nul
>nul del /s /q TempFilter.txt
::==========旧数据查重合并==========
for /f "tokens=1-4 delims=-" %%a in (
		Filtered.txt
	) do (
		set n=0
		rem echo %%a %%b %%c
		for /f %%A in ('findstr /r "%%a" "Filtered.txt"') do set/a n+=1
		if !n!==%%c (echo %%a>>TempDQ.txt) else (echo %%a-%%b-%%c->>TempBQ.txt)
)>nul
>nul del /s /q Filter.txt,Filtered.txt
::==========运杠单查找统计==========
cd. >DaoQi.txt
for /f "delims=" %%a in (TempDQ.txt) do (
	find /i "%%a" DaoQi.txt||echo %%a>>DaoQi.txt
)>nul
cd. >BuQi.txt
for /f "delims=" %%a in (TempBQ.txt) do (
	find /i "%%a" BuQi.txt||echo %%a>>BuQi.txt
)>nul
>nul del /s /q TempDQ.txt,TempBQ.txt
::==========清除运单号重复==========
chcp 65001
echo set shell = WScript.CreateObject^("WScript.Shell"^) >SendKeys.vbs
echo shell.SendKeys Wscript.Arguments^(0^) >>SendKeys.vbs
echo shell.SendKeys "{ENTER}" >>SendKeys.vbs
echo WScript.Sleep 1500 >>SendKeys.vbs
call :sound "数据处理完毕，准备键入包裹到齐数据，倒计时大约10秒"
ping 127.1 -n 10 >nul
set /a num=0
set /a sum=0
for /f "tokens=1" %%a in (
		DaoQi.txt
	) do (
		set /a num=!num!+1
		set /a sum=!sum!+1
		call SendKeys.vbs %%a
		echo 	本次第!num!条，合计键入!sum!条！
		if !num!==200 (
			call :sound "乙到达单次上限200条，请提交。倒计时15秒"
			ping 127.1 -n 15 >nul
			call :sound "开始继续键入任务"
			set /a num=0
		)
)
call :sound "到齐包裹录入任务共键入!sum!条，现乙完毕，提交后按任意键，开始收未到齐包裹！"
pause
call :sound "准备键入包裹未到齐数据，倒计时大约10秒"
ping 127.1 -n 10 >nul
set /a num=0
set /a sum=0
for /f "tokens=1" %%a in (
		BuQi.txt
	) do (
		set /a num=!num!+1
		set /a sum=!sum!+1
		call SendKeys.vbs %%a
		echo 	本次第!num!条，合计键入!sum!条！
		if !num!==500 (
			call :sound "乙到达单次上限500条，请提交。倒计时15秒"
			ping 127.1 -n 15 >nul
			call :sound "开始继续键入任务"
			set /a num=0
		)
)
call :sound "未齐包裹录入任务共键入!sum!条，现乙完毕，所有任务全部完成，再见！"
del /q SendKeys.vbs
exit
:sound
mshta vbscript:createobject("sapi.spvoice").speak(%1)(window.close)

@echo off & setlocal enabledelayedexpansion & chcp 65001

if not "%username%"=="****" exit

call :sound "此工具为****，****专用"

call :sound "数据处理中，请稍候……"

xdoc2txt -8 "验货未收货细信息导出.xls" > Xls2Txt.txt

::==========转换表格为可读==========

cd. >Filter.txt

for /f "skip=3 tokens=3-11" %%a in (

Xls2Txt.txt

) do (

if "%%g"=="018" if "%%h"=="*********" echo %%a

)>>Filter.txt

>nul del /s /q Xls2Txt.txt

::==========过滤路区及地址==========

>nul chcp 936

cd. >TempDQ.txt

if not exist BuQi.txt (

cd. >BuQi.txt

rename Filter.txt Filtered.txt

) else (

cd. >Filtered.txt

copy /b BuQi.txt+Filter.txt TempFilter.txt

for /f "delims=" %%a in (TempFilter.txt) do (

find /i "%%a" Filtered.txt||echo %%a>>Filtered.txt

)

)>nul

>nul del /s /q TempFilter.txt

::==========旧数据查重合并==========

for /f "tokens=1-4 delims=-" %%a in (

Filtered.txt

) do (

set n=0

rem echo %%a %%b %%c

for /f %%A in ('findstr /r "%%a" "Filtered.txt"') do set/a n+=1

if !n!==%%c (echo %%a>>TempDQ.txt) else (echo %%a-%%b-%%c->>TempBQ.txt)

)>nul

>nul del /s /q Filter.txt,Filtered.txt

::==========运杠单查找统计==========

cd. >DaoQi.txt

for /f "delims=" %%a in (TempDQ.txt) do (

find /i "%%a" DaoQi.txt||echo %%a>>DaoQi.txt

)>nul

cd. >BuQi.txt

for /f "delims=" %%a in (TempBQ.txt) do (

find /i "%%a" BuQi.txt||echo %%a>>BuQi.txt

)>nul

>nul del /s /q TempDQ.txt,TempBQ.txt

::==========清除运单号重复==========

chcp 65001

echo set shell = WScript.CreateObject^("WScript.Shell"^) >SendKeys.vbs

echo shell.SendKeys Wscript.Arguments^(0^) >>SendKeys.vbs

echo shell.SendKeys "{ENTER}" >>SendKeys.vbs

echo WScript.Sleep 1500 >>SendKeys.vbs

call :sound "数据处理完毕，准备键入包裹到齐数据，倒计时大约10秒"

ping 127.1 -n 10 >nul

set /a num=0

set /a sum=0

for /f "tokens=1" %%a in (

DaoQi.txt

) do (

set /a num=!num!+1

set /a sum=!sum!+1

call SendKeys.vbs %%a

echo 本次第!num!条，合计键入!sum!条！

if !num!==200 (

call :sound "乙到达单次上限200条，请提交。倒计时15秒"

ping 127.1 -n 15 >nul

call :sound "开始继续键入任务"

set /a num=0

)

call :sound "到齐包裹录入任务共键入!sum!条，现乙完毕，提交后按任意键，开始收未到齐包裹！"

pause

call :sound "准备键入包裹未到齐数据，倒计时大约10秒"

ping 127.1 -n 10 >nul

set /a num=0

set /a sum=0

for /f "tokens=1" %%a in (

BuQi.txt

) do (

set /a num=!num!+1

set /a sum=!sum!+1

call SendKeys.vbs %%a

echo 本次第!num!条，合计键入!sum!条！

if !num!==500 (

call :sound "乙到达单次上限500条，请提交。倒计时15秒"

ping 127.1 -n 15 >nul

call :sound "开始继续键入任务"

set /a num=0

)

call :sound "未齐包裹录入任务共键入!sum!条，现乙完毕，所有任务全部完成，再见！"

del /q SendKeys.vbs

exit

:sound

mshta vbscript:createobject("sapi.spvoice").speak(%1)(window.close)

dataFilterSendKeys.bat

发表回复 取消回复

发表回复取消回复