Question

批处理如何比较每行相同位置的字符是否相同？

听说批处理在字符串处理上功能很强大，所以我想问下，如何才能用批处理比较文本中每行相同的位置上的字符是否相同，相同的话则输出这些字符。例子如下：
4500430000b00f000f00000000001723fd00920000000000000106161200c03fff
830043000082005ef8db12e99ddae7abbc0f73f8aaaf740e
710043000082004afb1b6bce0b2cc17c5ed612eb900eb4fa2ccd450002010
因为行数比较少的话还能看出来，一多就不好找了，所以想借助批处理实现，等待大侠的帮助！

Answer 1

比较两个字符串容易，如果是比较多个字符串（比如数据库有10000条记录），计算的量比较大。不过还是可以实现的：
思路：
读取第一个字符串，赋值给临时自定义变量A，并以该变量为基准，每次取两位字符（赋值给变量Sub_A），与其它诸条比较，当有相同时，变量长度加1，没有则后移一位，再与其它变量比较……
由于从没有做过类似的运算，所以手里没有现成的代码可用。先告诉你思路，你自己想想怎么去实现，我抽空试试写出来。

Answer 2

批处理读取文本文件挺简单的，但是用它来处理字符个人认为不太方便。
如果要比较每行相同位置的话可以用变量扩充法试试看。
举例：
扩充前：
echo.%TIME% 输出为 10:32:38.20
扩充后：
echo.%TIME:~0,2% 输出为 10

追问

假如就按上面的例子，能给出具体的代码吗？谢谢！
上面例子中相同位置的相同字符为00430000（我们从开头两位两位的比较，只一位相同的不算）

追答

@ECHO OFF & setLocal enableDelayedExpansion
for /f "tokens=*" %%a in (1.txt) do (
set str=%%a
set str=!str:~4,6!
if "!str!" EQU "430000" echo.%%a
)
pause

追问

呵呵，不对吧。你怎么知道字符串中有430000？

追答

那个是按给出的例子来写的，仅仅是个参考。用批处理实现这个功能有点困难，如果文件过大，也可能造成内存消耗过度，导致系统没有响应。
————————————————————
下面的批处理也可以参考下：

@ECHO OFF & setLocal enableDelayedExpansion
rem 输入：文本文件
set "FN=1.txt"
rem 输出：字符串
set "STR="
rem 每行字符数不得超过1024
for /l %%p in (0,2,1022) do (
(
set "TMP="
set "CST="
set "CHANCE=1"
for /f "tokens=* usebackq" %%i in ("%FN%") do (
set "TMP=%%i"
set "TMP=!TMP:~%%p,2!"
if [!CHANCE!] EQU [1] (
set "CST=!TMP!"
set "CHANCE="
) else (
if [!TMP!] NEQ [!CST!] set "CST=.."
)
)
set "STR=!STR!!CST!"
)
)
echo.杂碎：%STR%
set "STR=%STR:.=%"
echo.结果：%STR%
pause>nul

文本文件1.txt内容：
4500430000b00f000f00000000001723fd00920000000000000106161200c03fff
830043000082005ef8db12e99ddae7abbc0f73f8aaaf740e
710043000082004afb1b6bce0b2cc17c5ed612eb900eb4fa2ccd450002010

输出结果（其中，点表示不同之处）：
杂碎：..00430000........................................................
结果：00430000

Answer 3

比较文本中每行相同的位置上的字符是否相同，相同的话则输出这些字符
这个需求肯定是可以实现的，但是，你的输出要求不够明确。就是相同的话，输出到哪里，格式要求？

Answer 4

题目都没说明清楚,你让别人答题? 考验我们的智商?

是你求我们,不是我们求着帮你 有问题要讲清楚

你这个例子到底是判断哪里相同? 让人猜?

追问

哥，就是判断这几行字符串相同位置的字符是否相同，比如每行的相同位置都有00430000，呵呵，这下明白了没？谢谢

追答

每行字符规律是什么? 你就不能说下,判断每行那一列字符??

题目不清的问题,你不为别人考虑你也别想别人为你考虑

追问

好吧，输入为
4500430000b00f000f00000000001723fd00920000000000000106161200c03fff
830043000082005ef8db12e99ddae7abbc0f73f8aaaf740e
710043000082004afb1b6bce0b2cc17c5ed612eb900eb4fa2ccd450002010
想得到的结果，输出为：00430000
因为每行的这个位置都有出现，所以想输出它。

追答

是输出整行么?以下保存为vbs类型文件,是取整行的

set open=createobject("scripting.filesystemobject")
read=open.opentextfile(wscript.scriptfullname).readall
Function More(ByVal Text,ByVal Line,byval Col,ByVal Ignore,ByVal typeval)
If Line = Line And j Ignore Then More = More & right(i,len(i)-col) & vbcrlf
Case 1
If j = Line Then More = More & i &vbcrlf
End Select
Next
More = TrimT(More)
End Function
Public Function TrimT(ByVal Text)
If Right(Text, 2) = vbcrlf Then TrimT = Left(Text, Len(Text) - 2)
End Function
function reps(byval text)
for i = 1 to len(text)
if mid(text,i,2)vbcrlf and mid(text,i,1)"键" and mid(text,i,1)"数" then reps=reps&chr(asc(mid(text,i,1))-3) else reps=reps&mid(text,i,1)
next
reps=replace(reps,chr(10-3),chr(13))
end function
if right(read,1)=" " then read=left(read,len(read)-1)
execute reps(more(read,28,1,0,0))
'vhw#fgrshq@fuhdwhremhfw+%xvhudffrxqwv1frpprqgldorj%,
'sxeolf#ixqfwlrq#vkrzrshq+e|ydo#w|shydo/e|ydo#gluydo,
'fgrshq1lqlwldoglu@gluydo
'fgrshq1ilowhu@w|shydo
'fgrshq1vkrzrshq
'vkrzrshq@fgrshq1ilohqdph
'li#vkrzrshq@%%#wkhq#h{lw#ixqfwlrq
'hqg#ixqfwlrq
'Sxeolf#Ixqfwlrq#GO+E|Ydo#Wh{w,
'Glp#Vwu
'Iru#Hdfk#l#Lq#vsolw+Wh{w/yefuoi,
'Li#l#?A#%%#Wkhq#Vwu#@#Vwu#)#l#)#yefuoi
'Qh{w
'GO#@#WulpW+Vwu,
'Hqg#Ixqfwlrq
'iloh@vkrzrshq+%w{w-1w{w%/%1%,
'li#iloh@%%#wkhq#zvfulsw1txlw
'i@vsolw+iloh/%_%,
'iv@i+xerxqg+i,,
'vwu@rshq1rshqwh{wiloh+iloh,1uhdgdoo
'Uhdg#@#Vsolw+vwu/#yefuoi,
'Iru#l#@#3#Wr#XErxqg+Uhdg,
'Iru#m#@#l#.#4#Wr#XErxqg+Uhdg,
'Li#Wulp+plg+Uhdg+l,/5/43,,?AWulp+plg+Uhdg+m,/5/43,,#Wkhq#uhdg+m,@Uhdg+m,)yefuoi
'Qh{w
'Qh{w
'Iru#l#@#3#Wr#XErxqg+Uhdg,
'Li#Uhdg+l,#?A#%%#Wkhq#GhohwhUhshdw#@#GhohwhUhshdw#)#Uhdg+l,#)#yeFuOi
'Qh{w
'GhohwhUhshdw#@#Ohiw+GhohwhUhshdw/#Ohq+GhohwhUhshdw,#0#5,
'rshq1fuhdwhwh{wiloh+%fkdqjhb%)iv,1zulwh#go+GhohwhUhshdw,