WordFind3X - Revision history

Instructor at 11:22, 30 November 2005

2005-11-30T11:22:07Z

â† Older revision		Revision as of 11:22, 30 November 2005
Line 1:		Line 1:
	{{PageAuthor\|Instructor}}		{{PageAuthor\|Instructor}}

	~~== Links ==~~		{{User:Instructor/Headers/Template}}

	~~; Latest version of headers "nsh.zip":~~		== Function Description ==
	~~: http://forums.winamp.com/showthread.php?s~~=~~&threadid~~=~~203228&goto=lastpost~~

	~~If a function is used without header, put the function code in your script before calling it.~~

	~~== The~~ Function Description==

	<highlight-nsis>		<highlight-nsis>
Line 123:		Line 118:
	</highlight-nsis>		</highlight-nsis>

	== ~~The~~ Function Code==		== Function Code ==

	<highlight-nsis>		<highlight-nsis>

Instructor at 14:06, 4 July 2005

2005-07-04T14:06:46Z

â† Older revision		Revision as of 14:06, 4 July 2005
Line 2:		Line 2:

	== Links ==		== Links ==

	; Latest version of headers "nsh.zip":		; Latest version of headers "nsh.zip":
	: http://forums.winamp.com/showthread.php?s=&threadid=203228&goto=lastpost		: http://forums.winamp.com/showthread.php?s=&threadid=203228&goto=lastpost

	If a function is used without an header, ~~you should~~ put the function ~~below~~ in your script before calling it.		If a function is used without header, put the function code in your script before calling it.

			== The Function Description==

	~~== The Function ==~~		<highlight-nsis>
	<highlight-nsis>/*		____________________________________________________________________________
	~~______________________________________________________________________________~~

	WordFind3X v1.0		WordFind3X v1.0
	~~______________________________________________________________________________~~		____________________________________________________________________________

	Thanks Afrow UK (Based on his idea of Function "StrSortLR")		Thanks Afrow UK (Based on his idea of Function "StrSortLR")
Line 61:		Line 63:
	;		;
	$var ;output (result)		$var ;output (result)
			</highlight-nsis>


	Example (1):		<b>Example (1):</b>
	Section		<highlight-nsis>Section
	${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "+1" $R0		${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "+1" $R0
	; $R0="1.AAB"		; $R0="1.AAB"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (2):		<b>Example (2):</b>
	Section		<highlight-nsis>Section
	${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "-1" $R0		${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "-1" $R0
	; $R0="2.BAA"		; $R0="2.BAA"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (3):		<b>Example (3):</b>
	Section		<highlight-nsis>Section
	${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "-1{{" $R0		${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "-1{{" $R0
	; $R0="[1.AAB];"		; $R0="[1.AAB];"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (4):		<b>Example (4):</b>
	Section		<highlight-nsis>Section
	${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "-1{}" $R0		${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "-1{}" $R0
	; $R0="[1.AAB];[3.BBB];"		; $R0="[1.AAB];[3.BBB];"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (5):		<b>Example (5):</b>
	Section		<highlight-nsis>Section
	${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "-1{*" $R0		${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "-1{*" $R0
	; $R0="[1.AAB];[2.BAA];"		; $R0="[1.AAB];[2.BAA];"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (6):		<b>Example (6):</b>
	Section		<highlight-nsis>Section
	${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "/2.BAA" $R0		${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "AA" "];" "/2.BAA" $R0
	; $R0="2"		; $R0="2"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (With errorlevel output):		<b>Example (With errorlevel output):</b>
	Section		<highlight-nsis>Section
	${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "XX" "];" "E+1" $R0		${WordFind3X} "[1.AAB];[2.BAA];[3.BBB];" "[" "XX" "];" "E+1" $R0
	; $R0="1" ("[...XX...];" not found)		; $R0="1" ("[...XX...];" not found)
Line 111:		Line 120:

	end:		end:
	SectionEnd*/		SectionEnd
			</highlight-nsis>

	~~;---------------------------------------------------------------------------~~		== The Function Code==

			<highlight-nsis>
	Function WordFind3X		Function WordFind3X
	!define WordFind3X `!insertmacro WordFind3XCall`		!define WordFind3X `!insertmacro WordFind3XCall`

ConversionBot: Adding new author and category links.

2005-06-24T14:08:13Z

Adding new author and category links.

â† Older revision		Revision as of 14:08, 24 June 2005
Line 1:		Line 1:
	{~~\|align=right~~		{{PageAuthor\|Instructor}}
	~~\|<small>Author: [[~~{~~{ns:2}}:Instructor~~\|Instructor~~]] ([[{{ns:3}}:Instructor\|talk]], [[{{ns:-1}~~}~~:Contributions/Instructor\|contrib]])</small>~~
	\|}
	~~<br style="clear:both;">~~
	== Links ==		== Links ==
	; Latest version of headers "nsh.zip":		; Latest version of headers "nsh.zip":
Line 306:		Line 304:
	</highlight-nsis>		</highlight-nsis>

	[[~~{{ns:14}}~~:String Functions]]		[[Category:String Functions]]

ConversionBot: Updated by user: Instructor (talk, contrib).

2005-06-24T09:42:35Z

Updated by user: Instructor (talk, contrib).

Show changes

ConversionBot: Added category links.

2005-05-01T06:28:29Z

Added category links.

â† Older revision		Revision as of 06:28, 1 May 2005
Line 328:		Line 328:
	FunctionEnd		FunctionEnd
	</highlight-nsis>		</highlight-nsis>

			[[{{ns:14}}:String Functions]]

ConversionBot: Updated author links.

2005-04-30T03:06:09Z

Updated author links.

@@ Line 1: / Line 1: @@
 == Links ==
 ; Latest version of headers "nsh.zip":
@@ Line 324: / Line 328: @@
 FunctionEnd
 </highlight-nsis>

ConversionBot: Updated author and download links, and changed format of some pages.

2005-04-23T12:45:36Z

Updated author and download links, and changed format of some pages.

â† Older revision		Revision as of 12:45, 23 April 2005
Line 325:		Line 325:
	</highlight-nsis>		</highlight-nsis>

			Page author: [[User:Instructor\|Instructor]]
	Page author: Instructor

ConversionBot: Wikipedia python library

2005-04-09T21:04:31Z

Wikipedia python library

New page

== Links ==
; Latest version of headers "nsh.zip":
: http://forums.winamp.com/showthread.php?s=&threadid=203228&goto=lastpost

== The Function ==
<highlight-nsis>/*
______________________________________________________________________________

WordFind3X v1.0
______________________________________________________________________________

2005 Shengalts Aleksander (Shengalts@mail.ru)

Thanks Afrow UK (Based on his idea of Function "StrSortLR" 2003-06-18)

Find word, that contain string, between two delimiters.

Syntax:

Push "[string]" ;[string]
; input string
Push "[delimiter1]" ;[delimiter1]
; first delimiter
Push "[center]" ;[center]
; center string
Push "[delimiter2]" ;[delimiter2]
; second delimiter
Push "[E][options]" ;[options]
; +number : word number from start
; -number : word number from end
; +number}} : word number from start all space
; after this word to output
; +number{{ : word number from end all space
; before this word to output
; +number{} : word number from start
; all space before and after
; this word (word exclude)
; +number*} : word number from start
; all space after this
; word to output with word
; +number{* : word number from start
; all space before this
; word to output with word
; # : sum of words to output
; /word : number of word to output
;
;[E]
; with errorlevel output
; IfErrors:
; $var=1 no words found
; $var=2 no such word number
; $var=3 syntax error (Use: +1,-1,#)
;[]
; no errorlevel output (default)
; If some errors found then (result=input string)
;
Call WordFind3X ;call function
;
Pop $var ;output (result)

Example (1):
Section
Push "[1.AAB];[2.BAA];[3.BBB];"
Push "["
Push "AA"
Push "];"
Push "+1"
Call WordFind3X
Pop $R0 ;now contain: "1.AAB"
SectionEnd

Example (2):
Section
Push "[1.AAB];[2.BAA];[3.BBB];"
Push "["
Push "AA"
Push "];"
Push "-1"
Call WordFind3X
Pop $R0 ;now contain: "2.BAA"
SectionEnd

Example (3):
Section
Push "[1.AAB];[2.BAA];[3.BBB];"
Push "["
Push "AA"
Push "];"
Push "-1{{"
Call WordFind3X
Pop $R0 ;now contain: "[1.AAB];"
SectionEnd

Example (4):
Section
Push "[1.AAB];[2.BAA];[3.BBB];"
Push "["
Push "AA"
Push "];"
Push "-1{}"
Call WordFind3X
Pop $R0 ;now contain: "[1.AAB];[3.BBB];"
SectionEnd

Example (5):
Section
Push "[1.AAB];[2.BAA];[3.BBB];"
Push "["
Push "AA"
Push "];"
Push "-1{*"
Call WordFind3X
Pop $R0 ;now contain: "[1.AAB];[2.BAA];"
SectionEnd

Example (6):
Section
Push "[1.AAB];[2.BAA];[3.BBB];"
Push "["
Push "AA"
Push "];"
Push "/2.BAA"
Call WordFind3X
Pop $R0 ;now contain: "2"
SectionEnd

Example (With errorlevel output):
Section
Push "[1.AAB];[2.BAA];[3.BBB];"
Push "["
Push "XX"
Push "];"
Push "E+1"
Call WordFind3X
Pop $R0 ;now contain: "1" ("[...XX...];" not found)

IfErrors 0 noerrors
MessageBox MB_OK 'Errorlevel=$R0' IDOK end

noerrors:
MessageBox MB_OK 'No errors'

end:
SectionEnd*/

;---------------------------------------------------------------------------
Function WordFind3X
Exch $3
Exch
Exch $2
Exch
Exch 2
Exch $1
Exch 2
Exch 3
Exch $0
Exch 3
Exch 4
Exch $R0
Exch 4
Push $4
Push $5
Push $6
Push $7
Push $8
Push $9
Push $R1
Push $R2
Push $R3
Push $R4
Push $R5
ClearErrors

StrCpy $R5 ''
StrCpy $4 $3 1
StrCpy $3 $3 '' 1
StrCmp $4 'E' 0 +3
StrCpy $R5 E
goto -4

StrCmp $4 '+' +5
StrCmp $4 '-' +4
StrCmp $4 '#' restart
StrCmp $4 '/' restart
goto error3

StrCpy $5 $3 2 -2
StrCmp $5 '{{' +9
StrCmp $5 '}}' +8
StrCmp $5 '{*' +7
StrCmp $5 '*{' +6
StrCmp $5 '*}' +5
StrCmp $5 '}*' +4
StrCmp $5 '{}' +3
StrCpy $5 ''
goto +2
StrCpy $3 $3 -2
IntOp $3 $3 + 0
StrCmp $3 0 error2

restart:
StrCmp $R0 '' error1
StrCpy $6 -1
StrCpy $7 0
StrCpy $8 ''
StrCpy $9 ''
StrLen $R1 $0
StrLen $R2 $1
StrLen $R3 $2

loop:
IntOp $6 $6 + 1

delim1:
StrCpy $R4 $R0 $R1 $6
StrCmp $R4$7 0 error1
StrCmp $R4 '' minus
StrCmp $R4 $0 +2
StrCmp $8 '' loop center
StrCmp $0 $1 +2
StrCmp $0 $2 0 +2
StrCmp $8 '' 0 center
IntOp $8 $6 + $R1
StrCpy $6 $8
goto delim1

center:
StrCmp $9 '' 0 delim2
StrCpy $R4 $R0 $R2 $6
StrCmp $R4 $1 0 loop
IntOp $9 $6 + $R2
StrCpy $6 $9
goto delim1

delim2:
StrCpy $R4 $R0 $R3 $6
StrCmp $R4 $2 0 loop
IntOp $7 $7 + 1
StrCmp $4$7 '+$3' plus
StrCmp $4 '/' 0 nextword
IntOp $R4 $6 - $8
StrCpy $R4 $R0 $R4 $8
StrCmp $R4 $3 0 +3
StrCpy $R4 $7
goto end
nextword:
IntOp $6 $6 + $R3
StrCpy $8 ''
StrCpy $9 ''
goto delim1

minus:
StrCmp $4 '-' 0 sum
StrCpy $4 +
IntOp $3 $7 - $3
IntOp $3 $3 + 1
IntCmp $3 0 error2 error2 restart
sum:
StrCmp $4 '#' 0 error2
StrCpy $R4 $7
goto end

plus:
StrCmp $5 '' 0 +4
IntOp $R4 $6 - $8
StrCpy $R4 $R0 $R4 $8
goto end
IntOp $6 $6 + $R3
IntOp $8 $8 - $R1
StrCmp $5 '{*' +2
StrCmp $5 '*{' 0 +3
StrCpy $R4 $R0 $6
goto end
StrCmp $5 '*}' +2
StrCmp $5 '}*' 0 +3
StrCpy $R4 $R0 '' $8
goto end
StrCmp $5 '}}' 0 +3
StrCpy $R4 $R0 '' $6
goto end
StrCmp $5 '{{' 0 +3
StrCpy $R4 $R0 $8
goto end
StrCmp $5 '{}' 0 error3
StrCpy $6 $R0 '' $6
StrCpy $8 $R0 $8
StrCpy $R4 '$8$6'
goto end

error3:
StrCpy $R4 3
goto error
error2:
StrCpy $R4 2
goto error
error1:
StrCpy $R4 1
error:
StrCmp $R5 'E' 0 +3
SetErrors

end:
StrCpy $R0 $R4
Pop $R5
Pop $R4
Pop $R3
Pop $R2
Pop $R1
Pop $9
Pop $8
Pop $7
Pop $6
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Pop $0
Exch $R0
FunctionEnd
</highlight-nsis>

Page author: Instructor