[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] [已解决]批处理不调用第三方如何找出两行字符串的不同之处/不同字符

本帖最后由 pcl_test 于 2016-10-14 01:40 编辑

比如说 C:\D:\E:\G:\
C:\D:\E:\F:\G:\
这两行,能把F:\给找出来。或者直接找出F也可以的

不要生成临时文件。
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

这样算么
  1. @echo off
  2. set "str=C:\D:\E:\F:\G:\Y:\"
  3. :loop
  4. for /f "tokens=1* delims=C:\D:\E:\G:\" %%a in ("%str%") do (
  5.      echo;%%a
  6.      if "%%b" neq "" (set "str=%%b"&goto loop)
  7. )
  8. pause
复制代码
1

评分人数

TOP

本帖最后由 pcl_test 于 2016-10-13 23:34 编辑
  1. @echo off
  2. set "str1=C:\D:\E:\G:\Z"
  3. set "str2=C:\D:\E:\F:\G:\Y:\"
  4. for /f "delims=" %%a in ('mshta "javascript:var a='%str1:\=\\%',b='%str2:\=\\%',n=[],m=[],k=[],s='';for(var i=0;i<a.length;i++)if(!n[a.substr(i,1)])n[a.substr(i,1)]=1;for(var i=0;i<b.length;i++)if(!m[b.substr(i,1)])m[b.substr(i,1)]=1;for(var c in n)if(!m[c])s+=c+'\r\n';for(var d in m)if(!n[d])s+=d+'\r\n';(new ActiveXObject('Scripting.Filesystemobject')).GetStandardStream(1).Write(s);close()"') do echo;%%a
  5. pause
复制代码
  1. @echo on
  2. rem win7以上系统运行
  3. set "str1=C:\D:\E:\G:\Z"
  4. set "str2=C:\D:\E:\F:\G:\Y:"
  5. powershell -c "('%str2%' -split ''|?{!'%str1%'.contains($_)})+('%str1%' -split ''|?{!'%str2%'.contains($_)})|sort|select -unique"
  6. pause
复制代码
1

评分人数

TOP

  1. @echo off
  2. REM 待比较字符串
  3. set "Str1=C:\D:\E:\F:\G:\Y:\qo+EjDH6DCwj]j]j]Ajijk63"
  4. set "Str2=C:\D:\E:\G:\G:ko]5hi[5j6H6DC2]9j]j]S"
  5. REM 指针机
  6. setlocal enabledelayedexpansion
  7. for /l %%i in (1,1,1024) do (
  8. set "Cache=!Str1:~%%i,1!"
  9. set "Space=!Space! "
  10. if "!Cache!"=="" (exit)
  11. for %%j in (!Cache!) do (
  12. if "!Str2:%%j=!"=="!Str2!" (
  13. echo !Str1!&echo !Space!↑&echo !Str2!&echo !Space!↑&echo !Space:~6!Looking this!&(for /l %%n in (1,1,20) do (ping -n 1 127.1>NUL))&cls
  14. )
  15. )
  16. )
复制代码
1

评分人数

TOP

返回列表