[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
python正则查找两次。
  1. In [89]: bat = "bBAathToHOMmEe"
  2. In [90]: ''.join(re.findall("[a-z]",bat) + re.findall("[A-Z]",bat))
  3. Out[90]: 'bathomeBATHOME'
复制代码
1

评分人数

去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

本帖最后由 taofan712 于 2017-4-11 21:07 编辑
  1. @echo off&setlocal enabledelayedexpansion
  2. set str=bBAathToHOMmEe
  3. set str_bp=%str%
  4. for %%a in (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) do call set str_bp=%%str_bp:%%a=%%a%%
  5. for /l %%a in (0 1 14) do (
  6. for /f "tokens=1,2 delims=#" %%b in ('call echo;%%str:~%%a^,1%%#%%str_bp:~%%a^,1%%') do (
  7. if not "%%b"=="%%c" (set lc=!lc!%%b) else ( set uc=!uc!%%c)
  8. ))
  9. echo;!lc!!uc!
  10. pause
复制代码
请各位帮忙看下我的代码为什么这么慢,我原以为是用了call set和call echo,改成下面的,还是一样的慢。将近2秒。
  1. @echo off&setlocal enabledelayedexpansion
  2. set str=bBAathToHOMmEe
  3. set str_bp=%str%
  4. for %%a in (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) do set str_bp=!str_bp:%%a=%%a!
  5. for /l %%a in (0 1 14) do (
  6. for /f "tokens=1,2 delims=#" %%b in ('echo;!str:~%%a^,1!#!str_bp:~%%a^,1!') do (
  7. if not "%%b"=="%%c" (set lc=!lc!%%b) else ( set uc=!uc!%%c)
  8. ))
  9. echo;!lc!!uc!
  10. pause
复制代码
@terse 感谢指点,去掉了中间一个for。
  1. @echo off&setlocal enabledelayedexpansion
  2. set str=bBAathToHOMmEe
  3. set str_bp=%str%
  4. for %%a in (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) do set str_bp=!str_bp:%%a=%%a!
  5. for /l %%a in (0 1 14) do (
  6.     if not "!str:~%%a,1!"=="!str_bp:~%%a,1!" (set lc=!lc!!str:~%%a,1!) else ( set uc=!uc!!str_bp:~%%a,1!)
  7. )
  8. echo;!lc!!uc!
  9. pause
复制代码

TOP

回复 9# 523066680
还有这两种
  1. @echo off&setlocal enabledelayedexpansion
  2. set s=bBAathToHOMmEe
  3. for /f "delims=" %%a in ('tree "\*\%s%"^|find ":\*\"') do set "t=%%~nxa"
  4. rem 或者dir /L
  5. set n=0
  6. :lp
  7. if "!s:~%n%,1!" neq "!t:~%n%,1!" (
  8.     set /p=!s:~%n%,1!<nul
  9. ) else (
  10.     set r=!r!!s:~%n%,1!
  11. )
  12. set /a n+=1
  13. if "!s:~%n%!" neq "" goto :lp
  14. echo;%r%
  15. pause
复制代码
1

评分人数

    • 523066680: 这细节掌控,惊人PB + 6 技术 + 1

TOP

回复 9# 523066680
批处理的坑太多。

TOP

本帖最后由 523066680 于 2017-4-11 15:22 编辑

回复 4# happy886rr

    我想到了 find, 速度慢;我想到了 if , 大小写区分,虽然 'A' gtr 'a' 成立, 但是 'A' gtr 'z' 居然不成立;
这个时候我想到了把 a b c, A B C 分组放到变量名里,很可惜,变量名不区分大小写。对批处理感到无助

不过,OK的,勉强写一个
  1. @echo off & setlocal enabledelayedexpansion
  2. set str=BaAbTcHdOeMfEg
  3. set dupl=%str%
  4. set "uc="
  5. set "lc="
  6. for %%a in (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) do (
  7.     set dupl=!dupl:%%a=%%a!
  8. )
  9. set /a n = 0
  10. :lp
  11.     if "!str:~%n%, 1!" == "!dupl:~%n%, 1!" (
  12.         set lc=!lc!!str:~%n%, 1!
  13.     ) else (
  14.         set uc=!uc!!str:~%n%, 1!
  15.     )
  16.     set /a n+=1
  17. if not "!str:~%n%!" == "" goto :lp
  18. echo %lc%%uc%
  19. pause
复制代码
1

评分人数

TOP

回复 3# pcl_test
拼的好精致

TOP

回复 6# 老刘1号
用纯批试试

TOP

存批
……话说用VBS写是不是太简单了,以后有时间用汇编重新写一下
  1. '&@(Cls&Cscript -nologo -e:vbscript "%~0"&Pause&Exit)
  2. str="bBAathToHOMmEe"
  3. For Cut = 1 To Len(str)
  4. If LCase(Mid(str,cut,1)) = Mid(str,cut,1) Then
  5. NewLstr=NewLstr & Mid(str,cut,1)
  6. ElseIf UCase(Mid(str,cut,1)) = Mid(str,cut,1) Then
  7. NewUstr=NewUstr & Mid(str,cut,1)
  8. End If
  9. Next
  10. WScript.Echo str & " -- > " & NewLstr & NewUstr
复制代码

TOP

本帖最后由 a20150604 于 2017-4-11 12:54 编辑

JS:
  1. str = "bBAathToHOMmEe";
  2. console.log(str.replace(/[A-Z]/g, '') + str.replace(/[a-z]/g, ''));
复制代码
cmd:
  1. @echo off & setlocal enableDelayedExpansion
  2. set "str=bBAathToHOMmEe"
  3. for /L %%i in (0 1 8000) do (
  4.     set "c=!str:~%%i,1!"
  5.     if "!c!" neq "" (
  6.         (for /f "delims=ABCDEFGHIJKLMNOPQRSTUVWXYZ" %%c in ("!c!") do ( set "rl=!rl!!c!" )) || (set "RU=!RU!!c!")
  7.     ) else echo;!rl!!RU! & pause & exit
  8. )
复制代码
1

评分人数

TOP

回复 2# 523066680
能来个批处理版吗,我想看看你怎么处理大小写。

TOP

本帖最后由 pcl_test 于 2017-4-11 13:11 编辑

标题最好标明下明确内容如将字母按大小写归并/分组
  1. @echo off
  2. powershell ^
  3.     $a='bBAathToHOMmEe'.ToCharArray()^|group {1*$_ -lt 97};^
  4.     -join ($a[0].group+$a[1].group);
  5. pause
复制代码
  1. @echo off
  2. cd /d %tmp%&cmd /u /c echo;bBAathToHOMmEe|more>$
  3. (for /f %%a in ('findstr [abcdefghijklmnopqrstuvwxyz] $^&findstr [ABCDEFGHIJKLMNOPQRSTUVWXYZ] $') do set /p=%%a)<nul
  4. pause
复制代码
2

评分人数

TOP

本帖最后由 523066680 于 2017-4-11 15:52 编辑

Perl
    1. my $lower = my $upper = 'bBAathToHOMmEe';
    2. $lower =~s/[A-Z]//g;
    3. $upper =~s/[a-z]//g;
    4. print $lower.$upper;
    复制代码
    如果不用正则,也就是遍历,加点糖
    1. my @s = split('', 'aDbEcFghijkLMN');
    2. my $n = 0;
    3. grep { print $_ if ( $_ ~~ ['a'..'z'] ) } @s;
    4. grep { print $_ if ( $_ ~~ ['A'..'Z'] ) } @s;
    复制代码


python也学了点毛皮
    1. u = ''
    2. l = ''
    3. for c in 'bBAathToHOMmEe':
    4.     if c in "abcdefghijklmnopqrstuvwxyz":
    5.         l+=c
    6.     else:
    7.         u+=c
    8. print(l+u)
    复制代码

TOP

返回列表