无忧启动论坛

标题: 如何用批处理查找表格？ [打印本页]
作者: bjay2008xmy    时间: 2022-9-5 12:07
提示: 作者被禁止或删除 内容自动屏蔽
作者: 邪恶海盗    时间: 2022-9-5 12:10
这是啥表,如果是Excel类的直接用函数可以搞定,数据库地话也有相应的查询命令
作者: a349683510    时间: 2022-9-5 12:10
没弄过。。。
作者: dos时代菜鸟    时间: 2022-9-5 13:00
用 set 和 for
作者: 旁观者清    时间: 2022-9-5 13:01
有点像做输入法程序，又像字符映射。用热处理有些复杂。
作者: mfj2002    时间: 2022-9-5 13:23
提供个思路，列好对应表，然后输入的字符拆解，hlookup或vlookup，然后再字符合并
作者: bjay2008xmy    时间: 2022-9-5 13:28
提示: 作者被禁止或删除 内容自动屏蔽
作者: bjay2008xmy    时间: 2022-9-5 13:41
提示: 作者被禁止或删除 内容自动屏蔽
作者: ldg_2    时间: 2022-9-5 13:42
批处理不是万能的吧
作者: 邪恶海盗    时间: 2022-9-5 14:10
bjay2008xmy 发表于 2022-9-5 13:28
不是EXCEL和数据库那种表，是我自己手写的表

手写的还要用OCR转换,你确定批处理搞得定???
作者: bjay2008xmy    时间: 2022-9-5 14:19
提示: 作者被禁止或删除 内容自动屏蔽
作者: slore    时间: 2022-9-5 15:30
本帖最后由 slore 于 2022-9-5 16:18 编辑
  1. @echo off&SETLOCAL ENABLEDELAYEDEXPANSION

  3. set key_str=a b c d e f g h i j
  4. set value_str=1 2 3 4 5 6 7 8 9 0
  5. call :CREATE_DICT

  7. set /p input=请输入(a-j):
  8. call :TRANS
  9. echo %trans_input%

  11. pause
  12. goto :EOF


  15. rem =======================================
  16. :TRANS
  17. set trans_input=&set n=0
  18. :NextInputChar
  19. set c=!input:~%n%,1!
  20. if "%c%"=="" goto :EOF
  21. set /a n+=1
  22. set trans_input=%trans_input%!Dict[%c%]!
  23. goto :NextInputChar
  24. goto :EOF


  27. :CREATE_DICT
  28. set /a n=0 & for %%i in (%key_str%) do ( set /a n+=1&&call set KEYS[!n!]=%%i)
  29. set /a n=0 & for %%i in (%value_str%) do (set /a n+=1&&call set Dict[%%KEYS[!n!]%%]=%%i)
  30. goto :EOF
复制代码
作者: bjay2008xmy    时间: 2022-9-5 15:51
提示: 作者被禁止或删除 内容自动屏蔽
作者: bjay2008xmy    时间: 2022-9-5 16:10
提示: 作者被禁止或删除 内容自动屏蔽
作者: slore    时间: 2022-9-5 16:20
bjay2008xmy 发表于 2022-9-5 15:51
看起来很复杂，好像用到了数组

批处理能做，就是复杂。

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

属于降维简化代码。
作者: slore    时间: 2022-9-5 16: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 17:01
你这就是2维表。

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

按这个套路加维度就行。
作者: bjay2008xmy    时间: 2022-9-5 17:21
提示: 作者被禁止或删除 内容自动屏蔽
作者: slore    时间: 2022-9-5 18:15
bjay2008xmy 发表于 2022-9-5 17:21
这么改法运行就提示ECHO处于关闭状态

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


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

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

你最好像1楼一样，把处理要求，和输入例子补充完整。
作者: bjay2008xmy    时间: 2022-9-5 19:05
提示: 作者被禁止或删除 内容自动屏蔽
作者: bjay2008xmy    时间: 2022-9-5 19:11
提示: 作者被禁止或删除 内容自动屏蔽
作者: slore    时间: 2022-9-5 19:41
bjay2008xmy 发表于 2022-9-5 19:11
我感觉这个数组就像变量一样，不用[]也可以，Dict_1=7.
Dict_!num!

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

set Dict列出来，方便。
作者: dos时代菜鸟    时间: 2022-9-5 20:28
本帖最后由 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 20:56
提示: 作者被禁止或删除 内容自动屏蔽
作者: bjay2008xmy    时间: 2022-9-5 21:44
提示: 作者被禁止或删除 内容自动屏蔽
作者: bjay2008xmy    时间: 2022-9-5 22:26
提示: 作者被禁止或删除 内容自动屏蔽
作者: slore    时间: 2022-9-5 22:27
bjay2008xmy 发表于 2022-9-5 20:56
slore的代码很有特点，就是前面的简单，把具体实现的方法都放在后面了。我只看的懂前面，可以白嫖一个查 ...

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

你输入啥，输出啥。你都没说。后面不知道怎么引用表。
作者: nttwqz    时间: 2022-9-5 22:29
  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)
复制代码


作者: nttwqz    时间: 2022-9-5 22:50
输入数字，返回字母

  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)
复制代码
作者: bjay2008xmy    时间: 2022-9-5 22:51
提示: 作者被禁止或删除 内容自动屏蔽
作者: bjay2008xmy    时间: 2022-9-5 23:05
提示: 作者被禁止或删除 内容自动屏蔽
作者: dos时代菜鸟    时间: 2022-9-6 06:38
为啥不用 excel vba
作者: bjay2008xmy    时间: 2022-9-6 10:01
提示: 作者被禁止或删除 内容自动屏蔽
作者: slore    时间: 2022-9-6 11:23
本帖最后由 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    时间: 2022-9-6 11:41
和之前一样，自己写死字典，不需要自动生成，只要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
提示: 作者被禁止或删除 内容自动屏蔽
作者: dos时代菜鸟    时间: 2022-9-7 08:54
本帖最后由 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    时间: 2022-9-7 11:06
dos时代菜鸟 发表于 2022-9-7 08:54
用 for + set + if ，搞定。其实 逻辑很简单。

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

你这个是把字母转换。   比如 8b = q
作者: bjay2008xmy    时间: 2022-9-7 21:01
提示: 作者被禁止或删除 内容自动屏蔽
作者: slore    时间: 2022-9-8 10:12
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    时间: 2022-9-12 18:43
setx

/a <X>,<Y>        指定绝对坐标，偏移量作为搜索参数。
/r <X>,<Y> <String>        指定相对坐标和作为搜索参数的 字符串 的偏移量。
作者: bjay2008xmy    时间: 2022-9-12 20:11
提示: 作者被禁止或删除 内容自动屏蔽
作者: hsis872    时间: 2023-5-25 21:23
一个 数组就能解决的事非得用批处理，这不是为难它么



欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3