Windows貌似没有提供判断字符串1是否为字符串2的子串的 API函数，我们可以DIY一个。
先应用ASM特有的repe cmpsb指令来实现，详见：
来实现。从串2头部开始用lstrcpyn()复制与串1相同长度的字符串，再用lstrcmp()来与串1进行比较，直到发现匹配或者串2剩余长度>串1长度。
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; 文 件 名：isSubStr.asm (控制台程序)
; 功 能: 判断字符串1是否为字符串2的字串（区分大小写）
; 开发环境：Win xp pro sp3 + MASM32 v11
; 作 者：PurpleEndurer, 2014-10-04，广西河池
; log
; --------------------------------------------------
; 2014-10-04 开始编写
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
.586
.MODEL
FLAT,
STDCALL
OPTION
CASEMAP:
NONE
INCLUDE \masm32\
include\windows.inc
INCLUDE \masm32\
include\kernel32.inc
INCLUDELIB \masm32\
lib\kernel32.lib
INCLUDE \masm32\
include\ole32.inc
INCLUDELIB \masm32\
lib\ole32.lib
INCLUDE \masm32\
include\user32.inc
INCLUDELIB \masm32\
lib\user32.lib
INCLUDE \masm32\
include\msvcrt.inc
INCLUDELIB \masm32\
lib\msvcrt.lib
INCLUDE \masm32\macros\MACROS.ASM
INCLUDE \masm32\
include\masm32.inc
INCLUDELIB \masm32\
lib\masm32.lib
isSubStr2
proto :
dword, :
dword
;ssssssssssssssssssssssss
;.const
;ssssssssssssssssssssssss
g_debug
equ 0
;ssssssssssssssssssssssss
.DATA
;ssssssssssssssssssssssss
g_szAppInfo
db
"文 件 名：isSubstr.asm", 0dh ,0ah
db
"功 能：判断字符串1是否为字符串2的字串", 0dh ,0ah
db
"作 者：PurpleEndurer, 2014-10-04，广西河池", 0dh ,0ah
db
"开发环境：Win xp Pro sp3 + MASM32 v11", 0dh ,0ah, 0
g_sz1
db
"bc", 0
g_sz2
db
"abcde", 0
g_sz3
db
"ac", 0
g_sz4
db
"cDe",0
g_sz5
db
"Bcd",0
g_sz6
db
"abcdef123",0
g_szFmt
db
"%s %s %d", 0dh, 0ah, 0
g_buf20
db 20 dup(0)
;ssssssssssssssssssssssss
.CODE
;ssssssssssssssssssssssss
start:
invoke StdOut,
ADDR g_szAppInfo
invoke isSubStr2,
offset g_sz1,
offset g_sz2
invoke wsprintf,
offset g_buf20,
offset g_szFmt,
offset g_sz1,
offset g_sz2,
eax
invoke StdOut,
offset g_buf20
invoke isSubStr2,
offset g_sz2,
offset g_sz2
invoke wsprintf,
offset g_buf20,
offset g_szFmt,
offset g_sz2,
offset g_sz2,
eax
invoke StdOut,
offset g_buf20
invoke isSubStr2,
offset g_sz3,
offset g_sz2
invoke wsprintf,
offset g_buf20,
offset g_szFmt,
offset g_sz3,
offset g_sz2,
eax
invoke StdOut,
offset g_buf20
invoke isSubStr2,
offset g_sz4,
offset g_sz2
invoke wsprintf,
offset g_buf20,
offset g_szFmt,
offset g_sz4,
offset g_sz2,
eax
invoke StdOut,
offset g_buf20
invoke isSubStr2,
offset g_sz5,
offset g_sz2
invoke wsprintf,
offset g_buf20,
offset g_szFmt,
offset g_sz5,
offset g_sz2,
eax
invoke StdOut,
offset g_buf20
invoke isSubStr2,
offset g_sz6,
offset g_sz2
invoke wsprintf,
offset g_buf20,
offset g_szFmt,
offset g_sz6,
offset g_sz2,
eax
invoke StdOut,
offset g_buf20
invoke ExitProcess, 0
;======================================================
isSubStr2
proc lpsz1:
dword, lpsz2:
dword
; 功能：判断字符串1是否为字符串2的字串（区分大小写）
; 入口：lpsz1:串1地址 lpsz2:串2地址
; 出口：eax=-1，不是子串
; eax>=0，子串首次出现位置
;======================================================
local buf256[256]:
byte
local dwCopyBytes:
dword
mov
edi, lpsz2
;串2长度
invoke lstrlen,
edi
mov
ebx,
eax
mov
esi, lpsz1
;串1长度
invoke lstrlen,
esi
;串2长度 < 串1长度?
cmp
ebx,
eax
;eax=length of lpsz1
;串2长度 < 串1长度，返回-1
;mov eax, -1
jl @isSubStr2NoResult
mov
ecx,
eax
inc
eax
mov dwCopyBytes,
eax
@isSubStr2LoopCmp:
push
ecx
;串1长度
push
ebx
;串2长度
push
edi
invoke lstrcpyn,
addr buf256,
edi, dwCopyBytes
invoke lstrcmp,
addr buf256, lpsz1
test
eax,
eax
jz @isSubStr2YesResult
;完全匹配
pop
edi
;恢复串2本次比较的首址
inc
edi
;使串2首址加1,指向下一个字符, 以便下次比较
pop
ebx
;恢复串2长度
dec
ebx
;串2长度减1
pop
ecx
;串1长度
cmp
ebx,
ecx
jge @isSubStr2LoopCmp
;串2长度>=串1长度, 继续比较
@isSubStr2NoResult:
mov
eax, -1
jmp @isSubStr2Ret
@isSubStr2YesResult:
pop
eax
;弹出先前压入的edi, 即本次比较时的串2的首址
pop
esi
;弹出esi, 无用
pop
ecx
;弹出串1长度, 无用
sub
eax, lpsz2
;计算串1在串2中的位置
@isSubStr2Ret:
ret
isSubStr2
endp
END start isSubStr1
endp
END
