WordInsert - Revision history

Instructor at 11:25, 30 November 2005

2005-11-30T11:25:56Z

â† Older revision		Revision as of 11:25, 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 83:		Line 78:
	</highlight-nsis>		</highlight-nsis>

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

	<highlight-nsis>		<highlight-nsis>

Instructor at 14:11, 4 July 2005

2005-07-04T14:11:18Z

â† Older revision		Revision as of 14:11, 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 function used without header ~~then~~ put function in script before ~~call~~ 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>/*		____________________________________________________________________________
	~~______________________________________________________________________________~~

	WordInsert v1.3		WordInsert v1.3
	~~______________________________________________________________________________~~		____________________________________________________________________________

	~~WordFind required~~

	Insert word in string.		Insert word in string.
Line 43:		Line 44:
	;		;
	$var ;output (result)		$var ;output (result)
			</highlight-nsis>


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

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

	Example (3):		<b>Example (3):</b>
	Section		<highlight-nsis>Section
	${WordInsert} "" " " "C:\WINDOWS" "+1" $R0		${WordInsert} "" " " "C:\WINDOWS" "+1" $R0
	; $R0="C:\WINDOWS "		; $R0="C:\WINDOWS "
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (With errorlevel output):		<b>Example (With errorlevel output):</b>
	Section		<highlight-nsis>Section
	${WordInsert} "C:\io.sys C:\logo.sys" " " "C:\logo.sys" "E+4" $R0		${WordInsert} "C:\io.sys C:\logo.sys" " " "C:\logo.sys" "E+4" $R0
	; $R0="2" (wrong word number "+4")		; $R0="2" (wrong word number "+4")
Line 75:		Line 80:

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

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

			<highlight-nsis>
	Function WordInsert		Function WordInsert
	!define WordInsert `!insertmacro WordInsertCall`		!define WordInsert `!insertmacro WordInsertCall`

ConversionBot: Adding new author and category links.

2005-06-24T14:09:38Z

Adding new author and category links.

â† Older revision		Revision as of 14:09, 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 217:		Line 215:
	</highlight-nsis>		</highlight-nsis>

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

ConversionBot: Added category links.

2005-04-30T22:01:25Z

Added category links.

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

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

ConversionBot: Updated author links.

2005-04-30T03:06:12Z

Updated author links.

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

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

2005-04-23T12:43:05Z

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

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

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

ConversionBot: Wikipedia python library

2005-04-09T20:48:00Z

Wikipedia python library

New page

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

If function used without header then put function in script before call it.

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

WordInsert v1.3
______________________________________________________________________________

WordFind required

Insert word in string.

Syntax:
${WordInsert} "[string]" "[delimiter]" "[word]" "[E][options]" $var

"[string]" ;[string]
; input string
"[delimiter]" ;[delimiter]
; one or several symbols
"[word]" ;[word]
; word to insert
"[E][options]" ;[options]
; +number : word number from start
; -number : word number from end
;
;[E]
; with errorlevel output
; IfErrors:
; $var=1 delimiter is empty
; $var=2 wrong word number
; $var=3 syntax error (Use: +1,-1)
;[]
; no errorlevel output (default)
; If some errors found then (result=input string)
;
$var ;output (result)

Example (1):
Section
${WordInsert} "C:\io.sys C:\WINDOWS" " " "C:\logo.sys" "-2" $R0
; $R0="C:\io.sys C:\logo.sys C:\WINDOWS"
SectionEnd

Example (2):
Section
${WordInsert} "C:\io.sys" " " "C:\WINDOWS" "+2" $R0
; $R0="C:\io.sys C:\WINDOWS"
SectionEnd

Example (3):
Section
${WordInsert} "" " " "C:\WINDOWS" "+1" $R0
; $R0="C:\WINDOWS "
SectionEnd

Example (With errorlevel output):
Section
${WordInsert} "C:\io.sys C:\logo.sys" " " "C:\logo.sys" "E+4" $R0
; $R0="2" (wrong word number "+4")

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

noerrors:
MessageBox MB_OK 'No errors'

end:
SectionEnd*/

;---------------------------------------------------------------------------

Function WordInsert
!define WordInsert `!insertmacro WordInsertCall`

!macro WordInsertCall _STRING _DELIMITER _WORD _NUMBER _RESULT
Push `${_STRING}`
Push `${_DELIMITER}`
Push `${_WORD}`
Push `${_NUMBER}`
Call WordInsert
Pop ${_RESULT}
!macroend

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
ClearErrors

StrCpy $5 ''
StrCpy $6 $0
StrCpy $7 }

StrCpy $9 ''
StrCpy $R1 $R0
StrCpy $3 $2 1
StrCpy $2 $2 '' 1
StrCmp $3 'E' 0 +3
StrCpy $9 'E'
goto -4

StrCmp $3 '+' +2
StrCmp $3 '-' 0 error3
IntOp $2 $2 + 0
StrCmp $2 0 error2
StrCmp $0 '' error1

StrCmp $2 1 0 two
GetLabelAddress $8 oneback
StrCmp $3 '+' call
StrCpy $7 {
goto call
oneback:
IfErrors 0 +2
StrCpy $4 $R0
StrCmp $3 '+' 0 +3
StrCpy $R0 '$1$0$4'
goto end
StrCpy $R0 '$4$0$1'
goto end

two:
IntOp $2 $2 - 1
GetLabelAddress $8 twoback
StrCmp $3 '+' 0 call
StrCpy $7 {
goto call
twoback:
IfErrors 0 tree
StrCmp $2$4 11 0 error2
StrCmp $3 '+' 0 +3
StrCpy $R0 '$R0$0$1'
goto end
StrCpy $R0 '$1$0$R0'
goto end

tree:
StrCpy $7 }
StrCpy $5 $4
IntOp $2 $2 + 1
GetLabelAddress $8 treeback
StrCmp $3 '+' call
StrCpy $7 {
goto call
treeback:
IfErrors 0 +3
StrCpy $4 ''
StrCpy $6 ''
StrCmp $3 '+' 0 +3
StrCpy $R0 '$5$0$1$6$4'
goto end
StrCpy $R0 '$4$6$1$0$5'
goto end

call:
Push '$R0'
Push '$0'
Push 'E$3$2*$7'
Call WordFind
Pop $4
goto $8

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

end:
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