批处理编程挑战题“物以类聚”-将字母按大小写归并

CrLf

回复 3# pcl_test


    用 [char[]] 好像也行：[char[]]'bBAathToHOMmEe' ...

CrLf

1. @for %%a in (a-z A-Z) do @echo aAbBdD | grep -o [%%a] | gawk "ORS=s;1"

复制代码

523066680

回复 24# happy886rr


    Matrix67我知道，还买了他的第一版书作为支持。现在他博客上有很多更新文章还未看，忙于工作和重新补习不同语言的语法(糖)。

老刘1号

回复 6# 一年前挖下的坑
来自1年之后的填坑：

1. 
   
2. ;Code By 老刘
   
3. ;编译环境：MASM32 SDK
   
4. ;编译指令：ml /coff 字母按大小写归并.ASM /link /subsystem:console
   
5. ;调用方法：CMD传参，参数1为要处理的字符串。
   
6. ;其他：非大小写字母的字符将被丢弃；传入字符串长度最长为126字符。
   
7. 
   
8. Include Masm32rt.INC
   
9. .Data?
   
10.         Arg db 128 dup (?)
    
11.         UpperCaseString db 128 dup (?)
    
12.         LowerCaseString db 128 dup (?)
    
13.         NewString db 128 dup (?)
    
14. .Code
    
15. Start:
    
16.         Invoke ArgClC,1,Offset Arg
    
17.         .If Eax == 1
    
18.                 Mov Esi,Offset Arg
    
19.                 Mov Ecx,Offset LowerCaseString
    
20.                 Mov Edx,Offset UpperCaseString
    
21.                
    
22.                 .While Al != 0        ;分割为两个字符串
    
23.                         LodSB
    
24.                         .If Al >= 41h && Al <= 5Ah
    
25.                                 Mov Byte Ptr [Edx],Al
    
26.                                 Inc Edx
    
27.                         .ElseIf Al >= 61h && Al <= 7Ah
    
28.                                 Mov Byte Ptr [Ecx],Al
    
29.                                 Inc Ecx
    
30.                         .EndIf
    
31.                 .EndW
    
32.                
    
33.                 ;合并到同一个字符串中。
    
34.                 Mov Edi,Offset NewString
    
35.                
    
36.                 ;处理小写字符串
    
37.                 Sub Ecx,Offset LowerCaseString
    
38.                 Mov Esi,Offset LowerCaseString
    
39.                 Rep MovSB
    
40.                
    
41.                 ;处理大写字符串
    
42.                 Sub Edx,Offset UpperCaseString
    
43.                 Mov Ecx,Edx
    
44.                 Mov Esi,Offset UpperCaseString
    
45.                 Rep MovSB
    
46.                
    
47.                 ;字符串结尾
    
48.                 Mov Al,0Ah
    
49.                 StoSB
    
50.                 Xor EAX,EAX
    
51.                 StoSB
    
52.                
    
53.                 ;回显字符串
    
54.                 Invoke StdOut,Offset NewString
    
55.         .EndIf
    
56.         Invoke ExitProcess,NULL
    
57. End Start
    
58. End
    

复制代码

ai20110304

回复 3# pcl_test


    思维敏捷

happy886rr

回复 34# 老刘1号
技术有长进，我都改行了，不再写任何代码。

yhcfsr

1. 
   
2. @echo off
   
3. set "str=bBAathToHOMmEe"
   
4. echo;%str%>%temp%\$
   
5. sed "s/[A-Z]//g" %temp%\$
   
6. sed "s/[a-z]//g" %temp%\$
   
7. del %temp%\$

复制代码

1. @echo off
   
2. set "str=bBAathToHOMmEe"
   
3. 
   
4. :lp
   
5. set "ch=%str:~,1%"
   
6. for %%a in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,e,s,t,u,v,w,x,y,z) do (
   
7.         if "%%a"=="%ch%" (set "LowerCASE=%LowerCASE%%%a")
   
8. )
   
9. 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 (
   
10.         if "%%a"=="%ch%" (set "UperCASE=%UperCASE%%%a")
    
11. )
    
12. set "str=%str:~1%"
    
13. if "%str%" neq "" goto :lp
    
14. echo;%LowerCASE%%UperCASE%

复制代码

老刘1号

回复 36# happy886rr


    感谢大佬支持，
大佬改行实在是可惜啊……
为啥突然不搞了呢？

Wiki

用纯perl试试

1. #!perl
   
2. my $test = 'bBAathToHOMmEe';
   
3. print sort { ( $b cmp '^' ) <=> ( $a cmp '^' ) } split '', $test;
   

复制代码

Wiki

只要能实现这种效果就行。

1. # include <stdio.h>
   
2. # include <stdlib.h>
   
3. # include <string.h>
   
4. 
   
5. char* classify (char*);
   
6. 
   
7. int main (){
   
8.     char *test = "bBAathToHOMmEe";
   
9.     char *clas = classify(test);
   
10. 
    
11.     puts(clas);
    
12. 
    
13. }
    
14. 
    
15. # define new(T, N) malloc ((N) *sizeof(T))
    
16. char* classify(char *test){
    
17.     int len   = strlen (test);
    
18.     char *ret = new(char, len + 1);
    
19.     ret[len]  = 0;
    
20.     int i = 0, j = len - 1;
    
21. 
    
22.     for (char *a = test, *b = test + j; i <= j; a++, b--) {
    
23.         if (*a >= 'a') ret[i++] = *a;
    
24.         if (*b <  'a') ret[j--] = *b;
    
25.     }
    
26.     return ret;
    
27. }
    

复制代码

CrLf

回复 36# happy886rr


    啊？改行了？

523066680

回复 36# happy886rr

    才看到你说改行，好奇现在做什么了？业余也不写代码了吗