функция по поиску подстроки в строке

[Женька Good]

Здравствуйте, помогите переделать функцию.
Эта функция находится в библиотеке. В таком варианте она возвращает строку содержащую элементы повторяющиеся в первой строке из второй. Например,
1 строка "123456345623"
2 строка "23"
результат "23323"

strfind proc
	push ebx
	push esi
	push edi
	invoke lstrlen, addr str2
	dec eax
	mov ebx,eax
	invoke lstrlen, addr str1
	mov ecx,eax
	mov edi,offset str1
a2:	mov al,str2[0]
	repne scasb
	jecxz exit
	push ecx
	mov esi,offset str2+1
	mov ecx,ebx
	repe cmpsb
	jne a1
	inc count
	sub [esp],ebx
a1:	pop ecx
	or ecx,ecx
	jne a2
exit:	mov eax,count
	pop edi
	pop esi
	pop ebx
	ret
strfind endp

[Mikl___]

Женька Good,
функция, которую тебе написали (не плохо еще и автора указывать) возвращает количество вхождений подстроки в строке, а

В таком варианте она возвращает строку содержащую элементы повторяющиеся в первой строке из второй. Например,
1 строка "123456345623"
2 строка "23"
результат "23323"

это уже твои хотелки.

1. Научись нормально формулировать вопрос
2. где твои попытки? Показывай, не стесняйся

[Женька Good]

вот то, что у меня получилось, но в выделенной строке ошибка "invalid instruction operand"

xor esi,esi
xor ecx,ecx
xor edi,edi
mov ebx,st1
mov edx,st2
c1:
cmp byte ptr[ebx+esi],0
je c4

mov edx,st2
cmp byte ptr[edx+ecx],0
jne c2
inc esi
xor ecx,ecx
jmp c1

c2:
mov edx,st2
mov al,[edx+ecx]
cmp al,[ebx+esi]
je c3
inc ecx
jmp c1

c3:
mov edx,st3
mov [edx+edi], [ebx+esi]

inc esi
inc edi
xor ecx,ecx
jmp c1

c4:
mov edx, st3
mov byte ptr[edx+edi],0
ret
stroka endp

[f.hump]

может поможет
http://programmersforum.ru/showpost....54&postcount=5

[Stilet]

Ну и я свои пять коп: http://www.programmersforum.ru/showp...2&postcount=46
Если что поправьте, писал кустарно, хоть и тестировал.

[Mikl___]

; masm windows gui #
.386
.model flat, stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
.data
MsgCaption      db "вхождения символов из подстроки str2 в строку str1",0
str2     db    "rats",0
str1     db    "six little rats, big fat rat and three old rats",0
num = $ - str1 + 1
str3	db num dup (0)
count dd 0

.code
start:  call strfind2
	invoke MessageBox, NULL,eax, addr MsgCaption, MB_OK
	invoke ExitProcess,NULL
strfind2 proc
	push ebx
	push esi
	push edi
	invoke lstrlen, addr str2
	dec eax
	mov ebx,eax
	invoke lstrlen, addr str1
	mov count,eax
	mov str1[eax],0Dh
	mov edx,offset str3
	sub edx,offset str1
a2:	mov ecx,count
	mov edi,offset str1
	mov al,str2[bx]
a1:	repne scasb
	jecxz exit
	mov [edx+edi-1],al
	jmp a1
exit:	dec bx
	jns a2
	mov ecx,num-1
	mov edi,offset str3
	mov esi,edi
a3:	lodsb
	or al,al
	jz a4
	stosb
a4:	loop a3
	mov byte ptr [edi],0
	mov eax,offset str1
	pop edi
	pop esi
	pop ebx
	ret
strfind2 endp
end start

[f.hump]

был вдохновлен примером от Stilet

?SearchAStr@@YAPEADPEBD0@Z	PROC
	MOV rax, rcx
	MOV r8, rcx
	SUB rdx, rcx

	
	XOR rcx, rcx
	
align 16
	sloop:
		MOV cl, [r8]
		MOV r9b, [r8+rdx]

		INC r8
		
		TEST r9b, r9b
		JZ sdone
		JRCXZ end_of_source

		XOR r9b, cl
		JZ sloop
			ADD rdx, rax
			SUB rdx, r8

			MOV rax, r8

	JMP sloop
align 16			
	end_of_source:
		XOR rax, rax

	sdone:

	RET
?SearchAStr@@YAPEADPEBD0@Z	ENDP

[Женька Good]

подскажите, как мне переделать функцию от Mikl___, чтобы определяла номера элементов с которых начинается вхождение подстроки в строку

strfind proc
	push ebx
	push esi
	push edi
	invoke lstrlen, addr str2
	dec eax
	mov ebx,eax
	invoke lstrlen, addr str1
	mov ecx,eax
	mov edi,offset str1
a2:	mov al,str2[0]
	repne scasb
	jecxz exit
	push ecx
	mov esi,offset str2+1
	mov ecx,ebx
	repe cmpsb
	jne a1
	inc count
	sub [esp],ebx
a1:	pop ecx
	or ecx,ecx
	jne a2
exit:	mov eax,count
	pop edi
	pop esi
	pop ebx
	ret
strfind endp

под такую конструкцию, где передаются три параметра в функцию находящуюся в dll-библиотеке, st1- строка, st2-подстрока, st3-возвращаемое значение:

.386
.model flat, stdcall
option casemap: none

.code
DLL_PROCESS_DETACH equ 0
DLL_PROCESS_ATTACH equ 1
DLL_THREAD_ATTACH equ 2
DLL_THREAD_DETACH equ 3

;точка входа в библиотеку
DllEntryPoint PROC DllId:DWORD,DllEvent:DWORD,DllReserv:DWORD
MOV EAX, DllEvent
CMP EAX, DLL_PROCESS_DETACH
JNE D1
;код при закрытии библиотеки (если необходим)

JMP _EXIT
D1:
CMP EAX, DLL_PROCESS_ATTACH
JNE _EXIT
;код при загрузке библиотеки (если необходим)
_EXIT:
MOV EAX,1 ;процедура входа должна
RET 12 ;возвращать не нулевое значение
DllEntryPoint endp

stroka proc st1:DWORD, st2:DWORD, st3:DWORD

;функция

stroka endp

end DllEntryPoint

Буду очень признателен.