久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱
<rt id="iawcy"><delect id="iawcy"></delect></rt>
<center id="iawcy"></center>
<button id="iawcy"><dl id="iawcy"></dl></button>
<strike id="iawcy"></strike>
<tfoot id="iawcy"><delect id="iawcy"></delect></tfoot>
<tfoot id="iawcy"></tfoot>
<rt id="iawcy"><tr id="iawcy"></tr></rt>
<strike id="iawcy"></strike>
機械社區
標題:
文件批量檢索復制
[打印本頁]
作者:
youhun200
時間:
2023-12-28 11:51
標題:
文件批量檢索復制
本帖最后由 youhun200 于 2023-12-28 11:53 編輯
& }$ k& M# E+ U4 D; r) T4 z$ t
' \. ~; e; b/ F, j
這個小程序是根據自己工作需要編寫的，很簡單，就是在跳出的list.txt里列出你要復制的文件名（可以不寫后綴名），由上至下寫入，然后按提示創建文件夾或已有文件夾，檢索后會彈出一個搜索到的文件清單，以供編輯。保存后回車，文件就全復制你指定的文件夾里了。下面我把代碼復制過來，僅供參考。（360會有提示，若不放心可以分析代碼，絕不會有損害系統的執行代碼）就當是一種娛樂吧
1 Y$ ?) o q0 T. H: `
@echo
off
) x% M$ }# [2 P
title 文件批量檢索復制
: I( i2 x0 V) f. R% M
color 1e
" V3 c% f0 ]' e3 \2 w2 ]
:stad
6 S, q# q1 ?2 c8 M$ \& v
if not exist list.txt goto exd
2 {0 x% {4 z0 T& J% r
cls
6 l0 l% @5 }8 C$ C9 o3 M1 ^& ^
@echo.
; \8 u' h& ]/ n5 X+ v3 n) x5 m& R
set/p ph= ● 輸入創建文件夾的名稱或已有文件夾名（空輸入無效）:
' L# C; B. A3 X( k
if "%ph%"=="" goto stad
6 p% K" n! R2 ?% X$ }3 p* f& V
if exist "%ph%" goto menu
3 {- f! S7 v* X) Q' m' j+ {6 c/ x
md "%ph%"
) v1 u: A: E8 G5 K
:menu
% p1 T; S4 b! Z) K" O
cls
' ^3 ~0 ]7 D+ R
mshta vbscript:msgbox("在文本中輸入需要搜索的文件列表， 保存并回車，單擊確定",64,"提示")(window.close)
: \! g3 P* L, L; |/ L
list.txt
% z% b- p! S* e
findstr /rc:"." /rc:" " list.txt|| goto ens
3 M. i: x0 a9 B4 B) P& x1 T
cls
p" v3 Q, d) |
@echo.
* {, n# s! C* d6 |% y& O
@echo 回車繼續......
# V/ q1 t/ `( [) n
pause >nul
# u& _- z' f' V* p* K9 w
cls
# n# I. s1 x; E* M5 W$ G
@echo.
( J5 V3 @! d7 p1 r( I
@echo 正在搜索文件，稍候......
. W# [4 s1 @% h2 N7 q# |# O9 n2 I
for /f "tokens=1*" %%f in (list.txt) do dir/s/a/b \*"%%f"* >>lise.txt
/ k0 n5 O4 T$ p, _/ p4 q
cls
, U/ C1 D9 W" i
@echo.
8 i% C* ~+ q/ x8 I( Z
cls
4 q/ e1 f) P: B7 `
findstr /rc:"." /rc:" " lise.txt|| goto err
9 [' N/ v& c. C i! m
cls
: V" L) |& o o% O6 ~" S
mshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車，單擊確定",64,"提示")(window.close)
/ N/ }' o3 a2 Q: V
lise.txt
' J0 C1 E" g. ^, T
@echo.
$ S6 h2 Z/ W% T! C( @
@echo 回車繼續......
& f+ L9 p3 `5 n7 v, }# e7 ^
pause >nul
( F+ m& ?0 @7 W3 g. [
cls
# q- s+ E8 Q+ e/ F; }. u4 g2 \
findstr /rc:"." /rc:" " lise.txt|| goto erx
5 d7 S& W* t8 A1 P y4 M. Z, ^
cls
* F, E, u- R. a* c# F; n
for /f "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f" "%ph%" >nul 2>nul
1 W W% }* n% H) a) V t5 `
cls
9 g2 Z' o0 V# \' J
@echo.
9 J5 G5 Q* R) D$ ?4 D$ A
set cnt=0
. A' `, w9 g9 F5 ?! U0 _! b) _
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
9 q8 m) W' D1 _2 `. }
)
) u2 g' ]8 a p) F" `3 h, \
if defined cnt (set inf=共搜索到【%cnt%】個文件.) else echo,NO find files.
6 o8 P+ l, w" M
del/q lise.txt >nul
2 x0 S6 H" N( d9 Z& _: s
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"復制完成! 單擊確定退出",64,"提示")(window.close)
0 K8 p& D5 {8 ` w( ~2 |$ ?* w4 K d k9 {
explorer.exe %ph%
+ ^4 J/ b) r- y% d4 f; V0 \$ M% t
exit
0 x2 w+ H0 g" D8 z
:exd
3 y3 I* t9 e" u5 E$ ?7 C
cls
. B7 O2 G& e4 c% Z0 s* @ M
@echo. >list.txt
" P# q8 F" t6 y) O, `( a& l2 N, m
cls
" H/ [2 s) k" l0 A" c
mshta vbscript:msgbox("【list.txt】文本已創建,單擊確定，繼續操作.",64,"提示")(window.close)
/ |" F8 I2 w# b9 N2 m
cls
2 |( P# y. h2 W( o2 `, _7 X+ ?
goto stad
x$ T8 u% G4 V* X. z
:ens
# u- k1 Z- ~7 \/ M. \% ~0 K% n3 l3 C
cls
9 M% \% d4 d5 s% k
mshta vbscript:msgbox("文本不能為空,單擊確定，繼續操作. ",16,"錯誤提示")(window.close)
6 O; b; e+ t# T
if not exist list.txt goto exd
! o3 L9 m) `' p, ]7 q. e. u
goto menu
/ A1 A) C( o) \6 x
:err
; t5 x( z, w0 e4 Q
cls
. k% D$ @/ V L9 G, V: K4 B; O
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
3 G9 O4 K- Y# _0 h8 L4 W; j
exit
& r6 v( _: z& n
:erx
6 g" J0 }( `* W- I% O* E
cls
" D# ^3 d$ a: ^) u- r8 X6 v- e
del/q lise.txt >nul
$ _) x9 ?, F, m' Q3 n: Q
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
, n- S& D- @# r6 B
exit
) e5 \4 w- w# |3 k W7 z
差點忘了，用記事本粘貼后，自己起名，后綴名寫為bat或cmd
7 f& o1 V) ?2 x9 Z0 x
/ k9 s5 K0 L6 o0 f r2 v3 E
作者:
siralop
時間:
2023-12-28 13:13
在這里好多人不是做電氣的，對于語言不了解的，既然寫在這里不如做成一個插件，然后大家在輸入框里輸入想查的東西，一點查詢就能用好些。
3 V% v) S5 h$ N: ?7 w) W
作者:
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
9 I r& r4 w0 f9 u
樓主NB....應用場景是?
" J e( @/ `) v$ L/ C. ~: F; n
以下是從運行開始到結束的截圖
! ?0 J6 p1 u1 q: S8 J
作者:
mhfx2020
時間:
2023-12-29 08:24
好物，收藏了。感謝分享
歡迎光臨 機械社區 (http://www.ytsybjq.com/)
Powered by Discuz! X3.5
