七七影院色七七_免费观看欧美a一级黄片_亚洲综合久久久久久中文字幕_国产999999在线视频免费观看,国产小视频无码,国产精品亚洲日日摸夜夜添,女人高潮潮叫免费网站,久久影院国产精品,日韩成人在线影院,欧美囗交XX×BBB视频,色在线综合高清
<strike id="iiaw4"></strike>
<ul id="iiaw4"><sup id="iiaw4"></sup></ul>
<strike id="iiaw4"><input id="iiaw4"></input></strike>
<tfoot id="iiaw4"><rt id="iiaw4"></rt></tfoot>
<ul id="iiaw4"><sup id="iiaw4"></sup></ul>
<ul id="iiaw4"><sup id="iiaw4"></sup></ul>
<strike id="iiaw4"></strike>
機械社區(qū)
標題:
文件批量檢索復制
[打印本頁]
作者:
youhun200
時間:
2023-12-28 11:51
標題:
文件批量檢索復制
本帖最后由 youhun200 于 2023-12-28 11:53 編輯
2 z+ f5 Y) O$ d2 Y% t
0 B$ W; @! U/ j, M& D$ Z; ?9 {
這個小程序是根據(jù)自己工作需要編寫的,，很簡單,，就是在跳出的list.txt里列出你要復制的文件名（可以不寫后綴名）,，由上至下寫入,，然后按提示創(chuàng)建文件夾或已有文件夾,，檢索后會彈出一個搜索到的文件清單,，以供編輯,。保存后回車,，文件就全復制你指定的文件夾里了,。下面我把代碼復制過來,，僅供參考。（360會有提示,，若不放心可以分析代碼,，絕不會有損害系統(tǒng)的執(zhí)行代碼）就當是一種娛樂吧
2 T% x x+ E+ r7 t1 i& ^+ t P
@echo
off
. c/ N3 ^" q: w) Z: Y5 K
title 文件批量檢索復制
, O( @1 Y4 }. [
color 1e
0 \0 d {" H! @3 N2 _+ k" M2 Z# d
:stad
6 v5 m9 c" N0 O
if not exist list.txt goto exd
5 U$ s: j1 `, p' h4 n
cls
6 I/ p9 u& f% I2 u4 h1 _2 P
@echo.
1 _3 [6 C( \" M$ t9 G
set/p ph= ● 輸入創(chuàng)建文件夾的名稱或已有文件夾名（空輸入無效）:
, v& @; A) V5 a
if "%ph%"=="" goto stad
" r a# |5 {1 I( c
if exist "%ph%" goto menu
) U" `- u8 S9 a9 i, E9 g3 H5 d! S
md "%ph%"
' F" n/ i5 E2 N: V+ I. ~( f
:menu
. Y7 @. L0 d3 l& d+ D, @# h
cls
1 l) g) `) i/ g
mshta vbscript:msgbox("在文本中輸入需要搜索的文件列表， 保存并回車,，單擊確定",64,"提示")(window.close)
! k% V% k) o+ @7 W5 G# c& r; I
list.txt
3 X* H7 O* n; d/ R' f; Z; n8 B4 i
findstr /rc:"." /rc:" " list.txt|| goto ens
# ~( a+ u. ?' A
cls
% v' W7 I/ |! Y) v5 X: v( J9 r! |
@echo.
; ?4 B' W* U7 e: M+ d
@echo 回車繼續(xù)......
9 G+ P! a: |9 T; [
pause >nul
9 q; H+ h. E( s, p
cls
8 K, H# B3 N1 a! \7 \* o* r; ~
@echo.
, ~, Y& L% u1 A2 h X
@echo 正在搜索文件,，稍候......
) Y# B6 z1 U% `- P0 u
for /f "tokens=1*" %%f in (list.txt) do dir/s/a/b \*"%%f"* >>lise.txt
) I6 l; B. f+ P3 v& Z) X
cls
5 P% n C# Z5 P( v
@echo.
2 `0 y- l# g# ?" [) y
cls
1 L3 f4 e8 Y6 e" ]
findstr /rc:"." /rc:" " lise.txt|| goto err
! @& }3 e3 _3 \) [& H6 b/ B' l: h2 B Q
cls
, P9 M2 ^$ |" ^ x; r! V' t; I
mshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車，單擊確定",64,"提示")(window.close)
( e7 T2 ~8 D- s5 Y; {
lise.txt
& \+ d- m& R$ r7 u+ _7 r8 J
@echo.
8 A; w5 e4 V! T) _+ z8 j
@echo 回車繼續(xù)......
4 X5 k& Z: c' Y9 u+ U2 z. H/ M4 U
pause >nul
* _3 E1 ]4 i) ~3 ]" ^
cls
& D/ c( v$ @# ]$ a; b* a2 M3 v3 z6 E7 |
findstr /rc:"." /rc:" " lise.txt|| goto erx
/ i* V6 v2 @# b6 D5 r& n" ]2 Q
cls
4 `2 w* E. g2 G# k5 f4 ^
for /f "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f" "%ph%" >nul 2>nul
5 s# _: n1 }! Y0 a( B5 ~, _; _
cls
1 Q" y7 }: h' _* A# D& {
@echo.
3 X2 U! k7 h; U! E9 J
set cnt=0
) G! o* `+ M% y4 c: p8 ]& i
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
( [. E' K# Q G) ~
)
% a* H( P, s' B! }7 k. h
if defined cnt (set inf=共搜索到【%cnt%】個文件.) else echo,NO find files.
- K. ~4 W, p ~: K# O, M
del/q lise.txt >nul
, u6 C; f4 C3 E. q3 }4 T2 {
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"復制完成! 單擊確定退出",64,"提示")(window.close)
3 N+ `$ K2 M8 @9 [
explorer.exe %ph%
L0 R8 ^! O6 {9 M) r* I
exit
: h- o* G. u& J+ V
:exd
2 V5 p" D9 }& ]0 ]
cls
: i* y1 S3 [' |! s0 }
@echo. >list.txt
0 `$ T# S( D/ N7 ?
cls
# u) B; q) h" D0 o/ P5 l9 M
mshta vbscript:msgbox("【list.txt】文本已創(chuàng)建,單擊確定,，繼續(xù)操作.",64,"提示")(window.close)
3 n# f6 }9 u% z
cls
7 ^ R: B# a' x( Y% z! v
goto stad
: A3 _7 O4 ?+ `0 H
:ens
! w2 k& @1 v0 D6 K( y* T/ z
cls
1 P: q4 Y5 K1 S& i
mshta vbscript:msgbox("文本不能為空,單擊確定,，繼續(xù)操作. ",16,"錯誤提示")(window.close)
1 i* E! j% n* l- ]) G
if not exist list.txt goto exd
+ f1 ?: o" ]4 e4 F
goto menu
+ B, Q% R1 \. ^' i+ A: t
:err
+ i& {/ J2 f2 l- O6 \) U2 q3 z
cls
% J9 N P8 [: w9 N: @9 k2 {
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
. R7 f$ ]: O, e4 w+ V a
exit
6 a2 e8 f9 o3 H" R w
:erx
$ B4 P0 W+ L: h' p; A7 a
cls
' {& m8 }0 O3 S0 J# r
del/q lise.txt >nul
: s/ R, ~/ a' J- Y
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
8 q G- P7 H- |& _6 V9 [
exit
1 ?- O5 p- b! d [8 q' `
差點忘了，用記事本粘貼后,，自己起名,，后綴名寫為bat或cmd
" c$ Y. ^3 ~0 }& z) f5 _ P
6 j+ ` O0 r- Z& y; J+ j8 S4 i
作者:
siralop
時間:
2023-12-28 13:13
在這里好多人不是做電氣的，對于語言不了解的,，既然寫在這里不如做成一個插件,，然后大家在輸入框里輸入想查的東西，一點查詢就能用好些,。
, @' W( X, ?- t: O. u
作者:
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
- S$ Q6 `9 S% a: t% l) d o B3 o
樓主NB....應用場景是?
0 D! w* p( m' ?8 J
以下是從運行開始到結(jié)束的截圖
% _) X" s) I+ K2 o9 r6 T
作者:
mhfx2020
時間:
2023-12-29 08:24
好物,，收藏了。感謝分享
歡迎光臨 機械社區(qū) (http://97307.cn/)
Powered by Discuz! X3.4
2 T% x x+ E+ r7 t1 i& ^+ t P