国产精品乱码一区-性开放网站-少妇又紧又爽视频-西西大胆午夜人体视频-国产极品一区-欧美成人tv-四虎av在线-国产无遮挡无码视频免费软件-中文字幕亚洲乱码熟女一区二区-日产精品一区二区三区在线观看-亚洲国产亚综合在线区-五月婷婷综合色-亚洲日本视频在线观看-97精品人人妻人人-久久久久久一区二区三区四区别墅-www.免费av-波多野结衣绝顶大高潮-日本在线a一区视频高清视频-强美女免费网站在线视频-亚洲永久免费
<center id="rq33h"></center>
<strong id="rq33h"></strong>
<b id="rq33h"><p id="rq33h"><tfoot id="rq33h"></tfoot></p></b>
機械社區(qū)
標題:
文件批量檢索復制
[打印本頁]
作者:
youhun200
時間:
2023-12-28 11:51
標題:
文件批量檢索復制
本帖最后由 youhun200 于 2023-12-28 11:53 編輯
7 ^: r6 t" j* \
9 j! X9 z6 b, i1 B" I! R" T* q' c+ Z) V
這個小程序是根據(jù)自己工作需要編寫的，很簡單，就是在跳出的list.txt里列出你要復制的文件名（可以不寫后綴名），由上至下寫入，然后按提示創(chuàng)建文件夾或已有文件夾，檢索后會彈出一個搜索到的文件清單，以供編輯。保存后回車，文件就全復制你指定的文件夾里了。下面我把代碼復制過來，僅供參考。（360會有提示，若不放心可以分析代碼，絕不會有損害系統(tǒng)的執(zhí)行代碼）就當是一種娛樂吧
! h8 m( r |. n6 ~
@echo
off
. j9 K- n& M( d6 a% o
title 文件批量檢索復制
+ S L' t: q' c- T& f7 U1 `
color 1e
6 x8 w- g; Q. `: R
:stad
2 l/ a, E$ m+ B7 \! x. d
if not exist list.txt goto exd
/ C+ x' j2 ?4 A; J5 n7 W
cls
/ W A) _3 F ?
@echo.
+ A! j$ A' b: p
set/p ph= ● 輸入創(chuàng)建文件夾的名稱或已有文件夾名（空輸入無效）:
( O* Y- B5 H" Z# d3 t3 n* E
if "%ph%"=="" goto stad
" L: i+ [4 v u, T5 w
if exist "%ph%" goto menu
8 `2 T- r# Q5 j. J7 u7 i2 B
md "%ph%"
8 B; D" r% h0 `+ @$ d+ f& s/ T& v
:menu
6 o7 A3 t# U8 J+ K) U" q
cls
1 \% m, j4 Z5 A. y8 L9 v
mshta vbscript:msgbox("在文本中輸入需要搜索的文件列表， 保存并回車，單擊確定",64,"提示")(window.close)
6 G2 f! o$ h# F6 E: m
list.txt
: A0 T; e" E) s8 |8 \+ Y) k/ I
findstr /rc:"." /rc:" " list.txt|| goto ens
3 b* c! w: k# P [5 S
cls
" f+ ]+ g) w/ h% A# g3 n
@echo.
7 d3 _/ ]' ^' p/ `/ o3 N
@echo 回車繼續(xù)......
3 \- b* \# f6 E$ l) `
pause >nul
2 M- C. k! n8 b* ` R w
cls
, i: j g/ y" E( X ?# X7 C" V
@echo.
" C* F1 ?! f4 S9 f3 `
@echo 正在搜索文件，稍候......
, T) L2 T3 H$ k- a6 ?9 i8 X
for /f "tokens=1*" %%f in (list.txt) do dir/s/a/b \*"%%f"* >>lise.txt
! e9 h4 w0 f0 Z& T
cls
, [( A! E1 x3 ~2 l3 b3 t. D% M; _
@echo.
0 h! {1 t6 w7 z" y9 v7 Q
cls
) T. A6 n) ^2 E$ E& x3 W- M
findstr /rc:"." /rc:" " lise.txt|| goto err
) u7 U7 }$ l- O+ y. n, d; U) ~5 q# M
cls
' B5 q, {8 e% k$ i$ q: U7 r# ^1 w/ y
mshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車，單擊確定",64,"提示")(window.close)
4 T4 Q2 [6 g& L% |6 l
lise.txt
+ ^8 N0 ^/ U) S1 q
@echo.
1 b! ~* P! J3 W* I9 [1 E6 B2 W+ i* B
@echo 回車繼續(xù)......
L7 k$ P* n- f8 ^5 w E7 _2 c9 |4 F7 Y
pause >nul
' L3 x3 L, d% Z3 B3 [8 L
cls
$ l% }4 P Y3 k& o& [; F
findstr /rc:"." /rc:" " lise.txt|| goto erx
8 w. }3 s# A1 }8 K( c
cls
2 Y% v; j4 ?* h# I( `% F) U, e
for /f "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f" "%ph%" >nul 2>nul
$ R3 G9 K4 y- Q
cls
/ o' L; |+ J# {
@echo.
; b; a/ S m/ ~" g+ n) l' e7 ~
set cnt=0
+ b/ j% D( Y& Z
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
( \3 f. y) A- Q8 S. D# j! U( l
)
& p! v+ I; S6 V- p: `
if defined cnt (set inf=共搜索到【%cnt%】個文件.) else echo,NO find files.
6 Q4 E0 M( s3 K$ ^
del/q lise.txt >nul
) X* C/ K* t) M9 n3 C' U' \5 p
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"復制完成! 單擊確定退出",64,"提示")(window.close)
6 s- q! c% j/ d* Z$ r! Z
explorer.exe %ph%
. \% x6 |& z2 i6 O
exit
+ U( r4 g1 P& b
:exd
1 B, | w7 R* ~! I
cls
+ C2 w8 @. \8 R2 J) h" ?) V* V$ U
@echo. >list.txt
( ]) B$ I, r; x- X
cls
; N) S- W s' E8 J1 m( J+ j
mshta vbscript:msgbox("【list.txt】文本已創(chuàng)建,單擊確定，繼續(xù)操作.",64,"提示")(window.close)
% r. R& z" N7 K( `$ V
cls
* y6 s) \% z* r1 Q% {
goto stad
" m/ B' V9 U9 _+ L; A& f( j
:ens
( S% H$ ?' _' I: \) J' I
cls
/ ?3 Z" |0 w4 v6 T. M
mshta vbscript:msgbox("文本不能為空,單擊確定，繼續(xù)操作. ",16,"錯誤提示")(window.close)
0 \$ G* `' o. J2 L; P
if not exist list.txt goto exd
7 q6 e7 j* V% l7 @* B q# j+ A
goto menu
, } Y3 B+ D1 f& L/ X5 h |. w- ?+ `
:err
8 v( q( ?8 ^1 p9 L4 D
cls
5 H0 a; y) f: \& L+ y
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
6 y6 w3 X; z. ~! k5 ?1 e
exit
( G" m$ Q! a8 l& }
:erx
9 {6 K$ v5 {6 B8 `9 e
cls
8 `8 A: e$ w" @
del/q lise.txt >nul
7 s3 y0 _( F9 r, `7 ^" x* Z
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
# {' D& c, S% F
exit
6 J T1 r9 q" _% G( O
差點忘了，用記事本粘貼后，自己起名，后綴名寫為bat或cmd
: N7 W+ y6 k- U, @% E
- |: i( B- p- G @- r( {
作者:
siralop
時間:
2023-12-28 13:13
在這里好多人不是做電氣的，對于語言不了解的，既然寫在這里不如做成一個插件，然后大家在輸入框里輸入想查的東西，一點查詢就能用好些。
* t+ `6 H7 H' ]
作者:
mhfx2020
時間:
2023-12-28 15:41
批處理命令?...
作者:
mhfx2020
時間:
2023-12-28 15:57
樓主NB....應用場景是?
作者:
youhun200
時間:
2023-12-28 18:19
mhfx2020 發(fā)表于 2023-12-28 15:57
$ P5 f7 ^6 f. c7 i L7 H
樓主NB....應用場景是?
; ]$ ]. _9 T; m6 A& p( S5 ^% a
以下是從運行開始到結束的截圖
. v& L1 y- d$ W" h& F* r3 R. |
作者:
mhfx2020
時間:
2023-12-29 08:24
好物，收藏了。感謝分享
歡迎光臨 機械社區(qū) (http://m.whclglass.com.cn/)
Powered by Discuz! X3.5
