设为首页收藏本站
开启辅助访问 切换到宽版

无忧启动论坛

 找回密码
 注册
搜索
无忧启动论坛»论坛 › ::启动制作:: › 脚本讨论区 › 如何用批处理查找表格？
系统gho:最纯净好用系统下载站投放广告、加入VIP会员，请联系 微信:wuyouceo
12
返回列表 发新帖
楼主: bjay2008xmy
打印 上一主题 下一主题

如何用批处理查找表格？

[复制链接]
31#
 楼主| 发表于 2022-9-5 22:51:45 | 只看该作者
加入VIP会员，获无忧币，赠积分，送勋章，下载无限制，获论坛最高级会员权限 !
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

32#
 楼主| 发表于 2022-9-5 23:05:31 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

33#
发表于 2022-9-6 06:38:54 来自手机 | 只看该作者
为啥不用 excel vba

点评

bjay2008xmy
暂时没有实际应用，随便讨论一下  详情 回复 发表于 2022-9-6 10:01
回复

使用道具 举报

34#
 楼主| 发表于 2022-9-6 10:01:21 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

slore
35#
发表于 2022-9-6 11:23:30 | 只看该作者
本帖最后由 slore 于 2022-9-6 11:34 编辑
bjay2008xmy 发表于 2022-9-5 23:05
一般表中存放的无非就是英文字母、标点符号、汉字之类的。就像秘密通讯的密码本一样
  1. @echo off&SETLOCAL ENABLEDELAYEDEXPANSION

  3.                       set COL=a b c d e f g
  4. set N=1
  5. call :MAKE_COL &&set ROW[1]=m b k q r f z
  6. call :MAKE_DICT&&set ROW[2]=7 8 5 q r f j
  7. call :MAKE_DICT&&set ROW[3]=m b k q 2 f :
  8. call :MAKE_DICT&&set ROW[%N%]=Q b 3 q r f @
  9. call :MAKE_DICT&&set ROW[%N%]=m b k q 1 f j
  10. call :MAKE_DICT
  11. rem set DICT

  13. set /p input=请输入序列组(例如:5a 3j 7a):
  14. call :TRANS %input%
  15. echo %trans_input%

  17. pause
  18. goto :EOF


  21. rem =======================================
  22. :TRANS
  23. set trans_input=&set n=0
  24. :NextInputPair
  25. if "%1"=="" goto :EOF
  26. set trans_input=%trans_input%!Dict[%1]!
  27. shift
  28. goto :NextInputPair
  29. goto :EOF


  32. :MAKE_COL
  33. set k=0
  34. for %%i in (%COL%) do (
  35.     set /a k+=1
  36.     set COL[!k!]=%%i
  37. )
  38. set /a N+=1
  39. goto :EOF

  41. :MAKE_DICT
  42. set /a L=%N%-1
  43. echo !ROW[%L%]!
  44. set k=0
  45. for %%i in (!ROW[%L%]!) do (
  46.     set /a k+=1
  47.     call set cn=%%COL[!k!]%%
  48.     set DICT[%L%!cn!]=%%i
  49. )
  50. set /a N+=1
  51. goto :EOF
复制代码



简单的，数字，字母，汉字都OK。
但是批处理的字符串处理有很多限制。 比如：【*】的话，
作为密码对应字符就会得到文件名，非要用的话，可以先用【星】，然后转换后的结果，
再把【星】替换掉。
回复

使用道具 举报

slore
36#
发表于 2022-9-6 11:41:40 | 只看该作者
和之前一样，自己写死字典，不需要自动生成，只要TRANS标签函数即可。

  1. @echo off&SETLOCAL ENABLEDELAYEDEXPANSION

  3. set Dict[1a]=m
  4. set Dict[1b]=3
  5. set Dict[1c]=Q

  7. set Dict[2a]=mA
  8. set Dict[2b]=:
  9. set Dict[2c]=V

  11. set Dict[15aa]=xyz
  12. set Dict[15bb]=abc
  13. set Dict[15cc]=qwe

  15. set /p input=请输入序列组(例如:1a 2c 1b 2a 2b 15aa):
  16. call :TRANS %input%
  17. echo %trans_input%

  19. pause
  20. goto :EOF


  23. rem =======================================
  24. :TRANS
  25. set trans_input=&set n=0
  26. :NextInputPair
  27. if "%1"=="" goto :EOF
  28. set trans_input=%trans_input%!Dict[%1]!
  29. shift
  30. goto :NextInputPair
  31. goto :EOF
复制代码
回复

使用道具 举报

37#
 楼主| 发表于 2022-9-6 16:59:05 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

38#
发表于 2022-9-7 08:54:55 | 只看该作者
本帖最后由 dos时代菜鸟 于 2022-9-7 09:00 编辑

用 for + set + if ，搞定。其实 逻辑很简单。





  1. @echo off
  2. setlocal ENABLEDELAYEDEXPANSION

  4. set str1="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  5. set strx=
  6. set /p str2=请输入一组excel单元格坐标,用逗号相隔,如（1a,2b,3c,4d...）:
  7. for %%a in (!str2!) do (
  8.     set str0=
  9.     for /f "tokens=1 delims=1234567890" %%d in ("%%a") do (
  10.         set str0=%%a
  11.         set str0=!str0:%%d=!
  12.         call :str3x "!str0!" "%%d"
  13.     )
  14. )
  15. echo !strx!
  16. pause
  17. goto :eof

  19. :str3x
  20.     set "str3=%~2"
  21.     set x2=
  22.     set x1=
  23.     set L1=!str3:~0,1!
  24.     set L2=!str3:~1,1!
  25.     for /l %%f in (1,1,26) do (
  26.         if /i "!L1!"=="!str1:~%%f,1!" set x1=%%f
  27.         if /i "!L2!"=="!str1:~%%f,1!" set x2=%%f
  28.     )
  29.     if "!x2!"=="" (
  30.         set x=!x1!
  31.     ) else (
  32.         set /a x=!x1!*26+!x2!
  33.     )
  34.     set strx=!strx! (%~1,!x!)
  35.     exit /b
复制代码



点评

slore
楼主的是密码字典，行列号对应的值和 本身 行，列 无关。 你这个是把字母转换。 比如 8b = q  详情 回复 发表于 2022-9-7 11:06
回复

使用道具 举报

slore
39#
发表于 2022-9-7 11:06:56 | 只看该作者
dos时代菜鸟 发表于 2022-9-7 08:54
用 for + set + if ，搞定。其实 逻辑很简单。

楼主的是密码字典，行列号对应的值和 本身 行，列 无关。

你这个是把字母转换。   比如 8b = q
回复

使用道具 举报

40#
 楼主| 发表于 2022-9-7 21:01:48 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

slore
41#
发表于 2022-9-8 10:12:01 | 只看该作者
bjay2008xmy 发表于 2022-9-7 21:01
我这样改你的程序，不知道改得对不对

@echo off&SETLOCAL ENABLEDELAYEDEXPANSION

对是对的，不过 :a 标签在最开始，每次都重新生成 字典，没有必要。

放到 set /p 输入的地方循环就行了。

  1. @echo off&SETLOCAL ENABLEDELAYEDEXPANSION


  4.                                              set COL=a b c d e f g h i j k l m n o p q r s t u v w x y z
  5. echo %COL%
  6. echo.
  7. set N=1
  8. call :MAKE_COL &&set ROW[%N%]=A U P Q M I M O N H N W B Z V T F L V X U Z G D U O
  9. call :MAKE_DICT&&set ROW[%N%]=T C C Z Q N X F K Q O P F S B B F K I G M Q R M N W
  10. call :MAKE_DICT&&set ROW[%N%]=X O W X O K G Z A R H Q I A S Q H E T Y H W S I M L
  11. call :MAKE_DICT&&set ROW[%N%]=Y Z Q P G W I F C M D O X T S U J U K E F J X U W D
  12. call :MAKE_DICT&&set ROW[%N%]=B R B I T M S B T C D X X P M D Z Q X T P N J G W K
  13. call :MAKE_DICT&&set ROW[%N%]=K M S T H S W A V D V G Q O R L R X D J W U R C F M
  14. call :MAKE_DICT&&set ROW[%N%]=D L K U F M W O Y K O V I D P A Z A S U F Y D T X S
  15. call :MAKE_DICT&&set ROW[%N%]=B W M E K U B V C S D T K H E C D A X K Y U V Z I C
  16. call :MAKE_DICT&&set ROW[%N%]=X I M M J K B Y M I R E P N M N J P X J W U Y I T O
  17. call :MAKE_DICT&&set ROW[%N%]=O C W Y I T K R S N R B D X Q D E N N D F E N B Q V
  18. call :MAKE_DICT&&set ROW[%N%]=N B W F O G M Z V I W P I C T J K B S W L R M D K F
  19. call :MAKE_DICT&&set ROW[%N%]=I I W R Q U F S V J O Z Y X C H Z U L U X P L T M S
  20. call :MAKE_DICT&&set ROW[%N%]=N T E L A H L N Q V Y K R I F G K V Y E N S H O V B
  21. call :MAKE_DICT&&set ROW[%N%]=Z C Z A Y I X U F J P V V U P E D L D T J Z A L V L
  22. call :MAKE_DICT&&set ROW[%N%]=T T Y B Z P Q T Q B C N J N O N L T G H M G X H I W
  23. call :MAKE_DICT&&set ROW[%N%]=W Q R C A D A A B Q O W B F K M D S P Q H W W I K R
  24. call :MAKE_DICT&&set ROW[%N%]=G N A T R D F L N B Z E E Q C B M R X A G E Z K J P
  25. call :MAKE_DICT&&set ROW[%N%]=I S Z L Z T H S Z O B N H J X V G F W F S L P S I J
  26. call :MAKE_DICT&&set ROW[%N%]=R Z I W R B K K Z V C T T F C V K Z W Q J X R H U P
  27. call :MAKE_DICT&&set ROW[%N%]=A X E O P G M R R T S U G N C A U P Y Z E S O E O D
  28. call :MAKE_DICT
  29. rem set DICT

  31. :a
  32. set /p input=请输入序列组(例如:5a 3j 7a):
  33. call :TRANS %input%
  34. echo 结果:%trans_input%
  35. goto a
  36. pause
  37. goto :EOF


  40. rem =======================================
  41. :TRANS
  42. set trans_input=&set n=0
  43. :NextInputPair
  44. if "%1"=="" goto :EOF
  45. set trans_input=%trans_input%!Dict[%1]!
  46. shift
  47. goto :NextInputPair
  48. goto :EOF


  51. :MAKE_COL
  52. set k=0
  53. for %%i in (%COL%) do (
  54. set /a k+=1
  55. set COL[!k!]=%%i
  56. )
  57. set /a N+=1
  58. goto :EOF

  60. :MAKE_DICT
  61. set /a L=%N%-1
  62. echo !ROW[%L%]!
  63. set k=0
  64. for %%i in (!ROW[%L%]!) do (
  65. set /a k+=1
  66. call set cn=%%COL[!k!]%%
  67. set DICT[%L%!cn!]=%%i
  68. )
  69. set /a N+=1
  70. goto :EOF
复制代码
回复

使用道具 举报

szwp
42#
发表于 2022-9-12 18:43:49 | 只看该作者
setx

/a <X>,<Y>        指定绝对坐标，偏移量作为搜索参数。
/r <X>,<Y> <String>        指定相对坐标和作为搜索参数的 字符串 的偏移量。
回复

使用道具 举报

43#
 楼主| 发表于 2022-9-12 20:11:29 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

hsis872
44#
发表于 2023-5-25 21:23:41 | 只看该作者
一个 数组就能解决的事非得用批处理，这不是为难它么
回复

使用道具 举报

12
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-11-26 16:24

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表