机械必威体育网址
标题:
文件批量检索复制
[打印本页]
作者:
youhun200
时间:
2023-12-28 11:51
标题:
文件批量检索复制
本帖最后由 youhun200 于 2023-12-28 11:53 编辑
6 o2 p& P2 R/ i" d3 N8 H3 }
! n8 J9 p% D/ N2 K5 T
这个小程序是根据自己工作需要编写的，很简单，就是在跳出的list.txt里列出你要复制的文件名（可以不写后缀名），由上至下写入，然后按提示创建文件夹或已有文件夹，检索后会弹出一个搜索到的文件清单，以供编辑。保存后回车，文件就全复制你指定的文件夹里了。下面我把代码复制过来，仅供参考。（360会有提示，若不放心可以分析代码，绝不会有损害系统的执行代码）就当是一种娱乐吧
9 j- ? y. ^3 @& ]) U. N- ?: v
@echo
off
, I3 a) R4 f/ ]$ i1 M
title 文件批量检索复制
' l( x: i& P) l& m
color 1e
; F$ D; `: e* z" }7 C; e' a' [' } ~
:stad
* z& n2 U; U7 x* q
if not exist list.txt goto exd
1 \* ~+ T4 f n: |* Z6 x7 a9 f
cls
# y) T' m, U6 ~
@echo.
/ R! X, Y0 q" m& h7 L- X
set/p ph= ● 输入创建文件夹的名称或已有文件夹名（空输入无效）:
" K/ P! ^) h F% L6 M4 X" ~; q/ E9 Z
if "%ph%"=="" goto stad
* A, R6 T- X ~1 Z0 D+ P5 ^
if exist "%ph%" goto menu
" W+ h7 s1 I) I) ^9 G O( q5 p9 T
md "%ph%"
8 X% }+ _9 G6 x
:menu
# z3 a- D3 s) _% y
cls
2 Q6 Q9 f0 j- D" S$ g
mshta vbscript:msgbox("在文本中输入需要搜索的文件列表， 保存并回车，单击确定",64,"提示")(window.close)
8 F, {6 b( u r7 J
list.txt
" ~4 G# H3 m* _' i1 g
findstr /rc:"." /rc:" " list.txt|| goto ens
* U$ }& _, A7 X: R
cls
" ^) ~9 g9 c3 o) z& V4 Z
@echo.
- w+ `. p6 n! r2 B
@echo 回车继续......
5 ?" a9 z( L$ V: d9 |- N
pause >nul
$ {: c: K5 A! j; _3 k
cls
( X, r' W u2 m8 }0 e/ i, s) Y6 i
@echo.
) W. A. F" j4 d# q, b. T% I
@echo 正在搜索文件，稍候......
' v4 J# i5 t5 H! k
for /f "tokens=1*" %%f in (list.txt) do dir/s/a/b \*"%%f"* >>lise.txt
5 G6 L! X( d9 _& g. {
cls
9 O4 E6 d2 t+ m/ I; z
@echo.
1 z4 P% k; Y; E, B, y1 S9 }' L
cls
% u* V+ P0 ~+ P4 ^; m
findstr /rc:"." /rc:" " lise.txt|| goto err
# {2 J; _' s; \: c
cls
& Q1 |; K( V7 y |0 P
mshta vbscript:msgbox("查阅并编辑搜索到的文件列表, 保存并回车，单击确定",64,"提示")(window.close)
; p" A; L- a: _: v& L1 \
lise.txt
& ^8 Z0 j4 [- x; t4 p |' U
@echo.
& p) k* F) ~/ K4 o# u
@echo 回车继续......
7 u5 I9 O/ V( f2 C$ G
pause >nul
' S6 h: {$ P2 M, f3 K6 {$ R
cls
5 b# f- y3 u9 U0 Q' t
findstr /rc:"." /rc:" " lise.txt|| goto erx
* ^ q" e% V7 |8 r' o
cls
1 b& R0 R8 u" ~* K
for /f "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f" "%ph%" >nul 2>nul
( y8 ^& |' O8 q1 v8 r
cls
: J) j! {- i0 r6 ~1 r- y3 ^
@echo.
$ u( ~# f5 J c4 a
set cnt=0
# c- l' L/ |* k
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
, m' X! G# O2 T9 E2 F# y+ ~" \
)
* S/ A. f7 O, `" J4 ^* M
if defined cnt (set inf=共搜索到【%cnt%】个文件.) else echo,NO find files.
) f" z, m3 R1 m7 l- P
del/q lise.txt >nul
. e' }' C$ m! s5 Y9 B2 m0 C- U0 f( m
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"复制完成! 单击确定退出",64,"提示")(window.close)
' t( ^; ?, X3 p
explorer.exe %ph%
2 R" {1 T- R6 b2 F# S& h A
exit
, I! q9 W! K. `
:exd
# v7 y! n9 z y7 Q# m$ d% D
cls
; Z6 K o7 c! v0 L
@echo. >list.txt
, y* F% D! h6 E6 {4 {. o
cls
. {( W3 h3 o( j& n$ {6 Y( J5 ~
mshta vbscript:msgbox("【list.txt】文本已创建,单击确定，继续操作.",64,"提示")(window.close)
2 l" P4 v/ I" l8 t* y0 h4 J
cls
2 s0 _; ?$ g, C3 l* b. L! E* G
goto stad
: m8 q/ r$ ? P& x9 }
:ens
3 |, @. @, W! v# I. }$ t) y9 p4 h2 g
cls
* J% K: W" [0 S
mshta vbscript:msgbox("文本不能为空,单击确定，继续操作. ",16,"错误提示")(window.close)
6 @" W# [0 O+ }& E' g
if not exist list.txt goto exd
! ^5 K0 K o. Z$ Z
goto menu
8 C- r$ I& M7 s8 ^
:err
. b$ X" n" a6 `% j# ]+ x! `
cls
$ y; s* {0 j( N
mshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
. d; r6 G4 I$ A2 S
exit
. I5 l X+ W0 S# S0 o
:erx
0 K+ T$ u$ H; q; x, b) S8 I
cls
0 g2 E* `& B. n7 Q l$ h( [- K6 P
del/q lise.txt >nul
; P5 E6 ~; C9 Z% g% q- y% E. m
mshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
! M+ v, A' n4 y- A; F
exit
4 q) M+ t. T+ o5 \: Q- e) g
差点忘了，用记事本粘贴后，自己起名，后缀名写为bat或cmd
$ O O1 ]- T$ @9 w& c
9 z/ o# k m: x; r C p
作者:
siralop
时间:
2023-12-28 13:13
在这里好多人不是做电气的，对于语言不了解的，既然写在这里不如做成一个插件，然后大家在输入框里输入想查的东西，一点查询就能用好些。
. @2 t2 \# H5 i8 [$ j' e* l
作者:
mhfx2020
时间:
2023-12-28 15:41
批处理命令?...
作者:
mhfx2020
时间:
2023-12-28 15:57
楼主NB....应用场景是?
作者:
youhun200
时间:
2023-12-28 18:19
mhfx2020 发表于 2023-12-28 15:57
- U0 t4 g: o5 J. J9 G# |
楼主NB....应用场景是?
/ a6 N6 [6 @, K: q
以下是从运行开始到结束的截图
: |3 D+ J5 S+ u5 ~3 @
作者:
mhfx2020
时间:
2023-12-29 08:24
好物，收藏了。感谢分享
欢迎光临 机械必威体育网址 (//www.szfco.com/)
Powered by Discuz! X3.4
9 j- ? y. ^3 @& ]) U. N- ?: v