E
e271828
Unregistered / Unconfirmed
GUEST, unregistred user!
DELPHI7的通配符比较的汇编函数 作者:李均宇 e271828@tom.com,QQ:165442523DELPHI7中的POS()函数是不能用通配符的,但是有汇编代码公开的,于是我想能否把此汇编函数改编成可能用通配符,有此想法已有多年了,最近我重新研究这个问题,发现是可行了,并做了出来,由于时间仓促,错误在所难免,希望能发现此汇编函数有BUG者能反馈给我知,我就多谢大家了。下面是我修改DELPHI7中的POS()而成的POSLI()的汇编源码,我试过可以通配符的,未知有无什么BUG,希望有人通知我BUG在何处。此汇编函数支持?号只匹配一个中文。只支持?号和*号,不支持[]号。例如:子串为“Edit*1*2*3?4*5”,源串为“Edit111www222123国45qEdit222www333qq”时将返回最后一个*号之后第一个字符的匹配处INDEX。如果子串没有*号,返回子串第一个字符的匹配INDEX,如果子串有*号,返回最后一个最接近*号的字符的匹配INDEX值。总之,返回值大于0就表示匹配成功了。此函数支持中文查找,如子串为“谢”,源串为“中华”,返回0,虽然中之后半字节和华之前半字节合成谢字,但我这汇编函数已做了处理了。此汇编函数参数为PCHAR,可以传多于255个字符的字串作参数也!注意:此汇编函数Posli()有一个死BUG,如果子串中*号正好对应撞上源串也对应是*号,此时出错将无法更正也,因为汇编函数CMPSB不会中断也,所以无法处理也,除非不用汇编指令CMPSB,这样就麻烦了,此为死穴,我现在无法更正也。如子串为wwww*www,源串为aaaawwww*qwww,本应返回大于0,但我返回为0,此为死穴,我无法更正也,除非源串中不允许含有*号。http://blog.sina.com.cn/s/blog_5a8269570100kois.html?retcode=0http://blog.csdn.net/e271828/archive/2010/08/28/5846826.aspxfunction Posli( substr
char ; s : pchar ) : Integer;vardlen,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 JG @@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 EBXend;