DELPHI7的通配符比较的汇编函数_Delphi_编程开发_程序员俱乐部

    作者：李均宇    e271828@tom.com,QQ:165442523

DELPHI7中的POS（）函数是不能用通配符的，但是有汇编代码公开的，于是我想能否把此汇编函数改编成可能用通配符，有此想法已有多年了，最近我重新研究这个问题，发现是可行了，并做了出来，由于时间仓促，错误在所难免，希望能发现此汇编函数有BUG者能反馈给我知，我就多谢大家了。下面是我修改DELPHI7中的POS()而成的POSLI()的汇编源码，我试过可以通配符的，未知有无什么BUG，希望有人通知我BUG在何处。
此汇编函数支持？号只匹配一个中文。只支持？号和*号，不支持［］号。例如：子串为“Edit*1*2*3?4*5”，源串为“Edit111www222123国45qEdit222www333qq”时将返回最后一个*号之后第一个字符的匹配处INDEX。
如果子串没有*号，返回子串第一个字符的匹配INDEX，如果子串有*号，返回最后一个最接近*号的字符的匹配INDEX值。总之，返回值大于0就表示匹配成功了。
此函数支持中文查找，如子串为“谢”，源串为“中华”，返回0，虽然中之后半字节和华之前半字节合成谢字，但我这汇编函数已做了处理了。
此汇编函数参数为PCHAR，可以传多于255个字符的字串作参数也！
http://blog.sina.com.cn/s/blog_5a8269570100kois.html?retcode=0
http://blog.csdn.net/e271828/archive/2010/08/28/5846826.aspx

function       Posli( substr :pchar ; s : pchar ) : Integer;
var
dlen,sublen,esi0,edi0,starnum,starnum2,ifbacknum:integer;
asm
{     ->EAX     Pointer to substr               }
{       EDX     Pointer to string               }
{     <-EAX     Position of substr in s or 0    }

        PUSH    EBX
        PUSH    ESI
        PUSH    EDI

        MOV     ESI,EAX { Point ESI to substr           }
        MOV     EDI,EAX
        MOV   starnum,0
        MOV   starnum2,0
        MOV   dlen,0
        MOV   sublen,0
        XOR     ECX,ECX
        MOV     CL,[EDI]
        INC     EDI
        ////////////////////////
        XOR  ECX,ECX
        MOV     ECX,0FFFFFFFFH
         XOR     AL,AL
         REPNE   SCASB
         NOT ECX
         MOV   sublen,ECX
         //SUB sublen,2
        /////////////////////////
        MOV  EDI,ESI
         MOV   AL,'*'
@@start0:
         REPNE   SCASB
         JNE     @@start
         ADD  starnum,1
         JMP   @@start0
        //////////////////////////////

@@start:
///////////////////////////////
        MOV     EDI,EDX
         INC     EDI
        XOR  ECX,ECX
        MOV     ECX,0FFFFFFFFH
         XOR     AL,AL
         REPNE   SCASB
         NOT ECX
         MOV   dlen,ECX
         //SUB dlen,1
/////////////////////////////////////////
        MOV     EDI,EDX { Point EDI to s                }
        MOV     esi0,ESI
        MOV     edi0,EDI
        XOR     ECX,ECX { ECX = Length(s)               }
        MOV     CL,[EDI]
       
        MOV   ECX, dlen
        PUSH    EDI             { remember s position to calculate index        }
        //INC     EDI             { Point EDI to first char of s  }
        XOR     EDX,EDX { EDX = Length(substr)          }
        MOV     DL,[ESI]
        //INC     ESI             { Point ESI to first char of substr     }
        MOV   EDX, sublen
         CMP  EDX,0           { EDX = Length(substr) - 1              }
        JS      @@fail  { < 0 ? return 0                        }
        MOV     AL,[ESI]        { AL = first char of substr             }
        //INC     ESI             { Point ESI to 2'nd char of substr      }

        DEC     EDX
        SUB     ECX,EDX { #positions in s to look at    }
                        { = Length(s) - Length(substr) + 1      }

        ADD     ECX,starnum
        JLE     @@fail
        PUSH    ESI             { save outer loop substr pointer        }
        PUSH    EDI             { save outer loop s pointer             }
        MOV    ECX,sublen
        ADD  EDI,1
        JMP     @@star

@@loop:
        REPNE   SCASB
        JNE     @@fail
        MOV     EBX,ECX { save outer loop counter               }
        PUSH    ESI             { save outer loop substr pointer        }
        PUSH    EDI             { save outer loop s pointer             }

        MOV     ECX,EDX
@@loopwww:
       // MOV  AL,[ESI]
       // MOV  AL,[ESI-1]
        //MOV  AL,[ESI-2]
        REPE    CMPSB
        //PUSH    ESI

        JE      @@found
        //INC   EDI
        ///////////////
        //MOV  AL,[ESI]
        //MOV  AL,[ESI-1]
        //MOV  AL,[EDI-1]
        //CMP AL,[ESI-1]
        //JE      @@found
        CMP ECX,0
        JE      @@iffound1
        {MOV     AL,[ESI]
        CMP  AL,$12
        JE      @@found
        CMP  AL,$0
        JE      @@found
        CMP  AL,$FF
        JE      @@found}
        /////////////////

@@iffound2:

        //PUSH   EAX
        MOV     AL,[ESI]
        SUB      ESI,1
        MOV     AL,[ESI]
        INC ESI
        //INC ESI
        CMP     AL,'?'

        //POP   ESI

        JE      @@what
        CMP  AL,'*'
        JE     @@star
        //MOV     AL,[ESI]
        //CMP  AL,$12
        //JE      @@fail2
        //CMP  AL,$0
        //JE      @@fail2
        //POP   EAX
         MOV     AL,[EDI]
        CMP  AL,$12
        JE      @@fail2
        CMP  AL,$0
        JE      @@fail2

        ////////////////有可能源串短于子串也，因？号匹配中文也
        POP     EDI            { restore outer loop s pointer  }
        POP     ESI             { restore outer loop substr pointer     }
        MOV     ECX,EBX { restore outer loop counter    }
        JMP     @@loopOK
@@what:
        MOV  EAX,0
        MOV  EAX,EDI
        SUB  EAX,dlen
        CMP  EAX,edi0
        JGE   @@fail2
        ///////如果源串已结束则必NO                              //BUG
        MOV     AL,[ESI]
        CMP     AL,$12  //此当结束
        //POP   EAX
        JE      @@found
        CMP  AL,$0
        JE      @@found
        //push eax
        //MOV     AL,[ESI]
        //CMP     AL,$0  //此也当结束，为经验，不知何解
        //POP   EAX
        CMP   ECX,0
        JE      @@found
        /////////////////////
        MOV    AL,[EDI]
        CMP   AL,$80
        JNB   @@chinese
@@whatchinese:
        MOV     AL,[ESI]
        ////////////////////////
        JMP      @@loopwww
@@chinese:
        ADD   EDI,1
        JMP   @@whatchinese
@@star:
       ADD  starnum2,1
        SUB  EDI,1
        MOV     AL,[ESI]
        CMP     AL,$12
        //POP   EAX
        JE      @@found
        CMP  AL,$0
        JE      @@found
      //  POP    EAX
       // POP   EAX
        /////////
        //XOR     ECX,ECX
       // MOV     CL,[EDI]
      //  INC     EDI             { Point EDI to first char of s  }

     //   PUSH    EDI             { remember s position to calculate index        }

    //    XOR     EDX,EDX { EDX = Length(substr)          }
     //  MOV     DL,[ESI]
      //  INC     ESI             { Point ESI to first char of substr     }

   //     DEC     EDX             { EDX = Length(substr) - 1              }
    //    JS      @@fail  { < 0 ? return 0                        }
  //  XOR     EAX,EAX
  //////////////////////////
        ////////////////////
        //PUSH   EAX
@@www:
        CMP    ECX,0
        JE      @@found
        MOV  EAX,0
        MOV  EAX,EDI
        SUB  EAX,dlen
        CMP  EAX,edi0
        JG   @@fail2

        ////////////////////
        MOV     AL,[ESI]
        ADD      ESI,1

        SUB     ECX,1
        //MOV     AL,[ESI]

        //INC ESI
        CMP     AL,'?'

        //POP   ESI

        JE      @@qq
        CMP  AL,'*'
        JE     @@www
        CMP     AL,$12
        //POP   EAX
        JE      @@found
        CMP  AL,$0
        JE      @@found
        //POP  EAX
        SUB ESI,1
        ADD  ECX,1
        POP    EAX
        POP   EAX
  /////////////////////////

  //////////////////////////////
@@loopOK:        MOV     AL,[ESI]        { AL = first char of substr             }

      //  INC     ESI             { Point ESI to 2'nd char of substr      }

    //    SUB     ECX,EDX { #positions in s to look at    }
                        { = Length(s) - Length(substr) + 1      }
    //    JLE     @@fail
  //MOV   ECX,dlen-(EDI-edi0)-(sublen-(ESI-esi0))+1+starnum//-starnum2
   MOV    ECX,dlen
   SUB   ECX,EDI
   ADD   ECX,edi0
   SUB   ECX,sublen
   ADD   ECX,ESI        //esi为1时，ESI0为0，所以总多一，要加多一个一
   SUB   ECX,esi0
   //ADD   ECX,2       //STRING
   ADD  ECX,1         //PCHAR
   ADD  ECX,starnum
   //SUB  ECX,starnum2
   CMP  ECX,0
   JLE  @@fail
            REPNE   SCASB
        JNE     @@fail
        //MOV     EBX,ECX { save outer loop counter               }
        ///////////////////////////////////////////////////////
           PUSH  EAX
           PUSH EDI
           SUB EDI,1
           MOV   AL,[EDI]
           CMP  AL,$80
           POP EDI
           POP   EAX
          
           JNB   @@IFBACK

        ///////////////////////////////////////////////////////
@@IFLEAD:
        //ADD ESI,1
        MOV    ECX,sublen
       SUB   ECX,ESI
       ADD   ECX,esi0
       SUB  ECX,1   //PCHAR才如此也
        //SUB  ECX,1
        PUSH    ESI             { save outer loop substr pointer        }
       INC     ESI
        PUSH    EDI             { save outer loop s pointer             }
        //PUSH    EDX

        MOV     ECX,ECX
        CMP   ECX,0
        JE      @@found

        //POP   EDX
        JMP   @@loopwww
@@IFBACK:
            PUSH   EDI
            PUSH   EAX
            MOV  ifbacknum,0
            SUB EDI,1
@@ifback2:
            ADD  EDI,1
            CMP  EDI,edi0
            JE  @@ifback1
            MOV  AL,[EDI]
            CMP  AL,$80
            JB   @@ifback1
            NOT ifbacknum
            JMP  @@ifback2
@@ifback3:
            POP  EAX
            POP  EDI
            JMP   @@IFLEAD
@@ifback1:
            CMP ifbacknum,0
            JNE @@ifback3
            POP EAX
            POP EDI
            ADD EDI,1
            JMP   @@loopOK

@@qq:

        POP  EAX
        ADD   EDI,1
        ///////////////
        //PUSH   EAX
        MOV    AL,[EDI]
        CMP   AL,$80
        JNB   @@chinese0
@@whatchinese0:

        //POP EAX
        ////////////////////////

        PUSH  EDI

        JMP   @@www
@@qqq:

        ADD   EDI,1
        ///////////////
        PUSH   EAX

        MOV    AL,[EDI]
        CMP   AL,$80
        JNB   @@chinese0

        POP EAX
        ////////////////////////

        PUSH  EDI

        JMP   @@www
@@chinese0:
        ADD   EDI,1
        JMP   @@whatchinese0

@@fail2:
        POP     EDX
        POP     EDX
@@fail:
        POP     EDX             { get rid of saved s pointer    }
        XOR     EAX,EAX
        JMP     @@exit
@@iffound1:
        MOV  AL,[ESI]
        MOV  AL,[ESI-1]
        MOV  AL,[EDI-1]
        CMP AL,[ESI-1]
        JE      @@found
        JMP   @@iffound2
@@found:
        POP     EDI            { restore outer loop s pointer  }
        POP     ESI             { restore outer loop substr pointer     }
        POP     EDX             { restore pointer to first char of s    }
        MOV     EAX,EDI { EDI points of char after match        }
        SUB     EAX,EDX { the difference is the correct index   }
@@exit:
        POP     EDI    
        POP     ESI
        POP     EBX
end;