设为首页收藏本站
开启辅助访问

无忧启动论坛

 找回密码
 注册
搜索
无忧启动论坛»论坛 › ::启动制作:: › 脚本讨论区 › 如何用批处理查找表格？

如何用批处理查找表格？

查看数: 7185 | 评论数: 43 | 收藏 0
关灯 | 提示：支持键盘翻页<-左 右->
帖子模式
    组图打开中，请稍候......
bjay2008xmy
发布时间: 2022-9-5 12:07

正文摘要:

本帖最后由 bjay2008xmy 于 2022-9-5 12:12 编辑 比如我有一个表是这样的， a b c d e f g h i j依次对应1 2 3 4 5 6 7 8 9 0 我输入任意长度的一段字母，比如最长为12位。比如bfgj就显示对应的数字2670，输 ...

回复

hsis872 发表于 2023-5-25 21:23:41
一个 数组就能解决的事非得用批处理，这不是为难它么
bjay2008xmy 发表于 2022-9-12 20:11:29
提示: 作者被禁止或删除 内容自动屏蔽
szwp 发表于 2022-9-12 18:43:49
setx

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

点评

bjay2008xmy
第一次看到这个命令，就连CMD窗口help都没有这个命令出来  详情 回复 发表于 2022-9-12 20:11
slore 发表于 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
复制代码
bjay2008xmy 发表于 2022-9-7 21:01:48
提示: 作者被禁止或删除 内容自动屏蔽
slore 发表于 2022-9-7 11:06:56
dos时代菜鸟 发表于 2022-9-7 08:54
用 for + set + if ，搞定。其实 逻辑很简单。

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

你这个是把字母转换。   比如 8b = q
dos时代菜鸟 发表于 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
bjay2008xmy 发表于 2022-9-6 16:59:05
提示: 作者被禁止或删除 内容自动屏蔽
slore 发表于 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
复制代码

点评

bjay2008xmy
感谢耐心解答  详情 回复 发表于 2022-9-6 16:59
slore 发表于 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。
但是批处理的字符串处理有很多限制。 比如：【*】的话，
作为密码对应字符就会得到文件名，非要用的话，可以先用【星】，然后转换后的结果，
再把【星】替换掉。

点评

bjay2008xmy
我这样改你的程序，不知道改得对不对 @echo off&SETLOCAL ENABLEDELAYEDEXPANSION :a echo 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 echo. set COL=a b c d e f g h i j  详情 回复 发表于 2022-9-7 21:01
bjay2008xmy 发表于 2022-9-6 10:01:21
提示: 作者被禁止或删除 内容自动屏蔽
dos时代菜鸟 发表于 2022-9-6 06:38:54
为啥不用 excel vba

点评

bjay2008xmy
暂时没有实际应用，随便讨论一下  详情 回复 发表于 2022-9-6 10:01
bjay2008xmy 发表于 2022-9-5 23:05:31
提示: 作者被禁止或删除 内容自动屏蔽
bjay2008xmy 发表于 2022-9-5 22:51:45
提示: 作者被禁止或删除 内容自动屏蔽
nttwqz 发表于 2022-9-5 22:50:48
输入数字，返回字母

  1. import string
  2. t = input('请输入1-26之间的数字，空格分隔：')
  3. a = b = ''

  5. for i in t.split():
  6.     a += i + '\t'
  7.     b += string.ascii_uppercase[int(i)-1] + '\t'
  8. print(a)
  9. print(b)
复制代码
nttwqz 发表于 2022-9-5 22:29:27
  1. # 如果要返回26个英文字母的序号，这个确实很简单，方法之一，我这Python幼儿园的水平也能写出一点
  2. import string
  3. s = input('请输入: ')

  5. x = y = ''
  6. for i in s.upper():
  7.     x += i + '\t'
  8.     y += str(int(string.ascii_uppercase.index(i))+1) + '\t'

  10. print(x)
  11. print(y)
复制代码


slore 发表于 2022-9-5 22:27:35
bjay2008xmy 发表于 2022-9-5 20:56
slore的代码很有特点，就是前面的简单，把具体实现的方法都放在后面了。我只看的懂前面，可以白嫖一个查 ...

你要怎么输入双位的坐标，还有和一楼的例子，

你输入啥，输出啥。你都没说。后面不知道怎么引用表。

点评

bjay2008xmy
20*24的表格，内容有480项之多，没法说，我也不确定内容是什么，总之能按行列查表输出就行。 按表中的格式就是： 输入1a 2b 6h 20z 输出相应表中的内容就行了。 查到什么就输出什么，  详情 回复 发表于 2022-9-5 22:51
bjay2008xmy 发表于 2022-9-5 22:26:44
提示: 作者被禁止或删除 内容自动屏蔽
bjay2008xmy 发表于 2022-9-5 21:44:14
提示: 作者被禁止或删除 内容自动屏蔽
dos时代菜鸟 发表于 2022-9-5 20:28:58
本帖最后由 dos时代菜鸟 于 2022-9-5 20:33 编辑

如下代码，适用 a-z ，再大的 比如 aa,ab,ac,ad,ae...等两个字母的，需要再复杂一点儿。







  1. @echo off
  2. setlocal ENABLEDELAYEDEXPANSION
  3. :loop1

  5. set str1="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  6. SET N=0
  7. set /p str2=请输入一段英文字母:
  8. if "!str2!"=="" goto :error1
  9. set "str2=!str2: =!"
  10. echo.
  11. echo "!str2!"
  12. set "str3="
  13.     set n1=0
  14.     :loop2
  15.         for %%c in (!n1!) do (
  16.             if "!str2:~%%c,1!"=="" goto :end1
  17.             set found=0
  18.             for /l %%n in (1,1,26) do (
  19.                 if /i  "!str1:~%%n,1!"=="!str2:~%%c,1!" (
  20.                     set "str3=!str3!,%%n"
  21.                     set found=1
  22.                 )
  23.             )
  24.             if !found! equ 0 goto :error2

  26.         )
  27.         set /a n1+=1
  28.    
  29.     goto :loop2
  30.     :end1
  31. echo !str3!
  32. pause
  33. goto :eof

  35. :eorro1
  36. echo 输入错误
  37. pause
  38. goto :loop1

  40. :error2
  41. echo 输入错误，包含非英文字母内容
  42. pause
  43. goto :loop1
复制代码



点评

bjay2008xmy
代码写得还是很好的  详情 回复 发表于 2022-9-5 22:26
slore 发表于 2022-9-5 19:41:24
bjay2008xmy 发表于 2022-9-5 19:11
我感觉这个数组就像变量一样，不用[]也可以，Dict_1=7.
Dict_!num!

本来就是。写成数组只是好看。

set Dict列出来，方便。

点评

bjay2008xmy
slore的代码很有特点，就是前面的简单，把具体实现的方法都放在后面了。我只看的懂前面，可以白嫖一个查二维表的样例吗。现在是字母是单位数，数字可能有双位数 [attachimg]507033[/attachimg]  详情 回复 发表于 2022-9-5 20:56
bjay2008xmy 发表于 2022-9-5 19:11:25
提示: 作者被禁止或删除 内容自动屏蔽
slore 发表于 2022-9-5 18:15:48
bjay2008xmy 发表于 2022-9-5 17:21
这么改法运行就提示ECHO处于关闭状态

要输入行列，查询字典内容，我这个就是个意思。


下面循环输出的地方要变化的。
之前是1个字符一个字符转换，

现在输入A2C3得2个字符一起找，
下面的TRANS也需要对应修改下。
直接用可能找不到匹配。

你最好像1楼一样，把处理要求，和输入例子补充完整。

点评

bjay2008xmy
表类似坐标系那样，用横坐标和纵坐标定位，内容由自己定义。 样式就像这样，就比如这个20行26列组成的表格 [attachimg]507030[/attachimg]  详情 回复 发表于 2022-9-5 19:05
bjay2008xmy 发表于 2022-9-5 17:21:42
提示: 作者被禁止或删除 内容自动屏蔽
slore 发表于 2022-9-5 17:01:03
你这就是2维表。

Dict[A2]=7
Dict[C,3]=5

按这个套路加维度就行。

点评

bjay2008xmy
这么改法运行就提示ECHO处于关闭状态  详情 回复 发表于 2022-9-5 17:21
bjay2008xmy 发表于 2022-9-5 16:35:40
提示: 作者被禁止或删除 内容自动屏蔽
slore 发表于 2022-9-5 16:23:23
另外，如果不用动态创建 “字典”，代码应该更清楚些吧。

  1. @echo off&SETLOCAL ENABLEDELAYEDEXPANSION

  3. set Dict[a]=1
  4. set Dict[b]=2
  5. set Dict[c]=3
  6. set Dict[d]=4
  7. set Dict[e]=5
  8. set Dict[f]=6
  9. set Dict[g]=7
  10. set Dict[h]=8
  11. set Dict[i]=9
  12. set Dict[j]=0

  14. set /p input=请输入(a-j):
  15. call :TRANS
  16. echo %trans_input%

  18. pause
  19. goto :EOF


  22. rem =======================================
  23. :TRANS
  24. set trans_input=&set n=0
  25. :NextInputChar
  26. set c=!input:~%n%,1!
  27. if "%c%"=="" goto :EOF
  28. set /a n+=1
  29. set trans_input=%trans_input%!Dict[%c%]!
  30. goto :NextInputChar
  31. goto :EOF
复制代码

点评

bjay2008xmy
代码运行结果都是正确的，而且修改也很简单。小写转大写、大写转小写、或者其他对照稍微修改就能用。 不过用在：字母作行号，数字作列号这样的表好像不行，查不了  详情 回复 发表于 2022-9-5 16:35
slore 发表于 2022-9-5 16:20:04
bjay2008xmy 发表于 2022-9-5 15:51
看起来很复杂，好像用到了数组

批处理能做，就是复杂。

随便换个， vbs, python, ruby, lua 简单的不像话。
不是要求必须用批处理弄的话，建议你看下python吧。

属于降维简化代码。

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

闽公网安备 35020302032614号

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

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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