亚洲日韩av在线观看_日韩一级欧美一级_亚洲自偷自拍另类11p_久久午夜色播影院_中国黄色三级毛片_伊人久久一区二区三区小说_国产精品va无码二区_国产三区在线视频_69热视频_日本亚洲天堂_99精品少妇_国产区 在线观看_天堂一区二区三区_大片免费在线观看视频_免费看黄色一级片_黄色毛片特级_国产 麻豆 日韩 欧美 久久_国产一级淫片s片sss毛片s级_欧美爱爱视频_精品无码一区二区三区水蜜桃

• 電腦軟件
• 單機游戲
• 安卓游戲
• 安卓應用

首頁 → 編程開發(fā) → Delphi → DELPHI7的通配符比較的匯編函數(shù)

DELPHI7的通配符比較的匯編函數(shù)

相關文章發(fā)表評論 來源：本站時間：2010/10/14 9:42:35字體大小：A-A+

更多

作者：東坡下載點擊：986次評論：30次標簽：

      DELPHI7中的POS（）函數(shù)是不能用通配符的，但是有匯編代碼公開的，于是我想能否把此匯編函數(shù)改編成可能用通配符，有此想法已有多年了，最近我重新研究這個問題，發(fā)現(xiàn)是可行了，并做了出來，由于時間倉促，錯誤在所難免，希望能發(fā)現(xiàn)此匯編函數(shù)有BUG者能反饋給我知，我就多謝大家了。下面是我修改DELPHI7中的POS()而成的POSLI()的匯編源碼，我試過可以通配符的，未知有無什么BUG，希望有人通知我BUG在何處。
     此匯編函數(shù)支持？號只匹配一個中文。只支持？號和*號，不支持［］號。例如：子串為"Edit*1*2*3?4*5"，源串為"Edit111www222123國45qEdit222www333qq"時將返回最后一個*號之后第一個字符的匹配處INDEX。
如果子串沒有*號，返回子串第一個字符的匹配INDEX，如果子串有*號，返回最后一個最接近*號的字符的匹配INDEX值。總之，返回值大于0就表示匹配成功了。
此函數(shù)支持中文查找，如子串為"謝"，源串為"中華"，返回0，雖然中之后半字節(jié)和華之前半字節(jié)合成謝字，但我這匯編函數(shù)已做了處理了。
此匯編函數(shù)參數(shù)為PCHAR，可以傳多于255個字符的字串作參數(shù)也！
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 //此也當結束，為經(jīng)驗，不知何解
//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;

相關軟件

• 電腦版相關軟件
• ZoneAlarm完美注冊機 61KB立即下載
• KMPlayer(萬能解碼器) 3.9.0.124 中文安裝版 31.2M立即下載
• 軟件封裝工具(Inno Setup) 5.5.5 中文安裝版 1.7M立即下載
• 超級兔子魔法設置 V8.20 綠色免費版(老的經(jīng)典版) 18.1M立即下載
• 內(nèi)存虛擬成硬盤(Ramdisk) V1.1 漢化特別版(中英兩版本打包) 580KB立即下載
• Windows優(yōu)化大師 V7.99 Build 10.1209 中文綠色版 7.3M立即下載
• Windows優(yōu)化大師(wopti)綠色版 V7.417(內(nèi)帶注冊機) 6.5M立即下載
• 綠色關機軟件(Switch Off) 2.3.0.1 免費版 393KB立即下載
• 藍牙搜索軟件(BluetoothView) 1.25 中文綠色版 46KB立即下載
• QuickFlash(極速閃客) 3.5.1 Beta 中文綠色版 3.6M立即下載
• 手機版相關軟件

相關文章

10-13《戰(zhàn)國無雙4-2》怎么換服裝？戰(zhàn)國無雙4-2換服裝操作秘訣

10-13《戰(zhàn)國無雙4-2》PC版如何聯(lián)機？ 戰(zhàn)國無雙4-2聯(lián)機方法詳解

10-13戰(zhàn)國無雙4-2技能覺醒牛逼嗎 全新武將覺醒技能展示

10-13《戰(zhàn)國無雙4-2》手柄無效怎么解決 戰(zhàn)國無雙4-2解決技巧

10-13戰(zhàn)國無雙4-2如何設置語言 戰(zhàn)國無雙4-2武將取中文名方法

10-13戰(zhàn)國無雙4-2怎么樣跳過進入開場動畫 戰(zhàn)國無雙4-2秒進游戲訣竅

相關評論

閱讀本文后您有什么感想? 已有 0 人給出評價!

• 2791 喜歡
• 2101 頂
• 800 難過
• 1219 囧
• 4049 圍觀
• 5602 無聊

熱門評論

最新評論

發(fā)表評論 查看所有評論(30)

昵稱:

表情:

字數(shù): 0/500 (您的評論需要經(jīng)過審核才能顯示)

• 

  游戲電競大亨手游合集

• 

  游戲電競大亨全攻略破解版1.0 安卓

  中文 l 39.1M

  下載
• 

  游戲電競大亨快速發(fā)展破解版1.0.1

  中文 l 39.1M

  下載
• 

  電競大亨官方版1.0 安卓最新版

  中文 l 39.1M

  下載

文章推薦

王者榮耀賬號惡 MARVEL Strike 2017年10月手游 比官居一品好玩

最新文章

• 王者榮耀王者快跑怎么抄近道 王者快跑小技巧
• DNF劍與魔法之卷第五章通關獎勵是什么 小魔
• QQ音樂數(shù)字專輯如何贈送給別人 QQ音樂如何領
• 一起來捉妖九尾明月技能詳解及如何打倒幼尾
• 一起來捉妖錦鯉什么用 錦鯉聚妖鈴鐺怎么用
• 抖音視頻里的貼紙如何設置跳動
• 一起來捉妖無相符印是什么 無相符印如何獲得
• 像素魏蜀吳蜀漢傳奇新手攻略及前期陣容推薦
• 早安我的少年如何退出睡眠模式 早安我的少年
• 早安我的少年為什么看不了廣告

本類常用軟件

• 名稱大小下載
• 1

  Windows優(yōu)化大師下載量：783530

  下載
• 2

  VirtualBox(虛擬機軟件)下載量：759381

  下載
• 3

  福建農(nóng)村信用社手機銀行客戶端下載下載量：584736

  下載
• 4

  英雄聯(lián)盟XK助手下載量：422961

  下載
• 5

  火線福利輕松領(一鍵領取CF活動道具獎勵)下載量：388554

  下載