WordFind2X - Revision history

Instructor at 11:21, 30 November 2005

2005-11-30T11:21:24Z

â† Older revision		Revision as of 11:21, 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 125:		Line 120:
	</highlight-nsis>		</highlight-nsis>

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

	<highlight-nsis>		<highlight-nsis>

Instructor at 14:04, 4 July 2005

2005-07-04T14:04:41Z

â† Older revision		Revision as of 14:04, 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>/*		____________________________________________________________________________
	~~______________________________________________________________________________~~

	WordFind2X v2.1		WordFind2X v2.1
	~~______________________________________________________________________________~~		____________________________________________________________________________


Line 63:		Line 65:
	;		;
	$var ;output (result)		$var ;output (result)
			</highlight-nsis>


	Example (1):		<b>Example (1):</b>
	Section		<highlight-nsis>Section
	${WordFind2X} "[C:\io.sys];[C:\logo.sys];[C:\WINDOWS]" "[C:\" "];" "+2" $R0		${WordFind2X} "[C:\io.sys];[C:\logo.sys];[C:\WINDOWS]" "[C:\" "];" "+2" $R0
	; $R0="logo.sys"		; $R0="logo.sys"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (2):		<b>Example (2):</b>
	Section		<highlight-nsis>Section
	${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "-1" $R0		${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "-1" $R0
	; $R0="logo"		; $R0="logo"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (3):		<b>Example (3):</b>
	Section		<highlight-nsis>Section
	${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "-1{{" $R0		${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "-1{{" $R0
	; $R0="C:\WINDOWS C:\io.sys C:"		; $R0="C:\WINDOWS C:\io.sys C:"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (4):		<b>Example (4):</b>
	Section		<highlight-nsis>Section
	${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "-1{}" $R0		${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "-1{}" $R0
	; $R0="C:\WINDOWS C:\io.sys C:sys"		; $R0="C:\WINDOWS C:\io.sys C:sys"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (5):		<b>Example (5):</b>
	Section		<highlight-nsis>Section
	${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "-1{*" $R0		${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "-1{*" $R0
	; $R0="C:\WINDOWS C:\io.sys C:\logo."		; $R0="C:\WINDOWS C:\io.sys C:\logo."
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (6):		<b>Example (6):</b>
	Section		<highlight-nsis>Section
	${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "/logo" $R0		${WordFind2X} "C:\WINDOWS C:\io.sys C:\logo.sys" "\" "." "/logo" $R0
	; $R0="2"		; $R0="2"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (With errorlevel output):		<b>Example (With errorlevel output):</b>
	Section		<highlight-nsis>Section
	${WordFind2X} "[io.sys];[C:\logo.sys]" "\" "];" "E+1" $R0		${WordFind2X} "[io.sys];[C:\logo.sys]" "\" "];" "E+1" $R0
	; $R0="1" ("\...];" not found)		; $R0="1" ("\...];" not found)
Line 113:		Line 122:

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

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

			<highlight-nsis>
	Function WordFind2X		Function WordFind2X
	!define WordFind2X `!insertmacro WordFind2XCall`		!define WordFind2X `!insertmacro WordFind2XCall`

ConversionBot: Adding new author and category links.

2005-06-24T14:08:01Z

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 288:		Line 286:
	</highlight-nsis>		</highlight-nsis>

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

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

2005-06-24T09:42:29Z

Updated by user: Instructor (talk, contrib).

Show changes

ConversionBot: Added category links.

2005-04-30T22:01:35Z

Added category links.

â† Older revision		Revision as of 22:01, 30 April 2005
Line 304:		Line 304:
	FunctionEnd		FunctionEnd
	</highlight-nsis>		</highlight-nsis>

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

ConversionBot: Updated author links.

2005-04-30T03:06:06Z

Updated author links.

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

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

2005-04-23T12:43:10Z

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

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

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

ConversionBot: Wikipedia python library

2005-04-09T20:48:47Z

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>/*
______________________________________________________________________________

WordFind2X v2.1
______________________________________________________________________________

2004 Shengalts Aleksander (Shengalts@mail.ru)

Find word between two delimiters.

Strings:
"[delimiter1][word+1][delimiter2][delimiter1][word+2][delimiter2]..."
"[text][delimiter1][text][delimiter1][word+1][delimiter2][text]..."
"...[delimiter1][word-2][delimiter2][delimiter1][word-1][delimiter2]"
"...[text][delimiter1][text][delimiter1][word-1][delimiter2][text]"

Syntax:

Push "[string]" ;[string]
; input string
Push "[delimiter1]" ;[delimiter1]
; first delimiter
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 WordFind2X ;call function
;
Pop $var ;output (result)

Example (1):
Section
Push "[C:\io.sys];[C:\logo.sys];[C:\WINDOWS]"
Push "[C:\"
Push "];"
Push "+2"
Call WordFind2X
Pop $R0 ;now contain: "logo.sys"
SectionEnd

Example (2):
Section
Push "C:\WINDOWS C:\io.sys C:\logo.sys"
Push "\"
Push "."
Push "-1"
Call WordFind2X
Pop $R0 ;now contain: "logo"
SectionEnd

Example (3):
Section
Push "C:\WINDOWS C:\io.sys C:\logo.sys"
Push "\"
Push "."
Push "-1{{"
Call WordFind2X
Pop $R0 ;now contain: "C:\WINDOWS C:\io.sys C:"
SectionEnd

Example (4):
Section
Push "C:\WINDOWS C:\io.sys C:\logo.sys"
Push "\"
Push "."
Push "-1{}"
Call WordFind2X
Pop $R0 ;now contain: "C:\WINDOWS C:\io.sys C:sys"
SectionEnd

Example (5):
Section
Push "C:\WINDOWS C:\io.sys C:\logo.sys"
Push "\"
Push "."
Push "-1{*"
Call WordFind2X
Pop $R0 ;now contain: "C:\WINDOWS C:\io.sys C:\logo."
SectionEnd

Example (6):
Section
Push "C:\WINDOWS C:\io.sys C:\logo.sys"
Push "\"
Push "."
Push "/logo"
Call WordFind2X
Pop $R0 ;now contain: "2"
SectionEnd

Example (With errorlevel output):
Section
Push "[io.sys];[C:\logo.sys]"
Push "\"
Push "];"
Push "E+1"
Call WordFind2X
Pop $R0 ;now contain: "1" ("\...];" not found)

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

noerrors:
MessageBox MB_OK 'No errors'

end:
SectionEnd*/

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

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

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

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

restart:
StrCmp $R0 '' error1
StrCpy $5 -1
StrCpy $6 0
StrCpy $7 ''
StrLen $8 $0
StrLen $9 $1

loop:
IntOp $5 $5 + 1

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

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

minus:
StrCmp $3 '-' 0 sum
StrCpy $3 +
IntOp $2 $6 - $2
IntOp $2 $2 + 1
IntCmp $2 0 error2 error2 restart
sum:
StrCmp $3 '#' 0 error2
StrCpy $R1 $6
goto end

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

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

end:
StrCpy $R0 $R1

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