WordAdd - Revision history

Instructor at 11:25, 30 November 2005

2005-11-30T11:25:16Z

â† 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 103:		Line 98:
	</highlight-nsis>		</highlight-nsis>

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

	<highlight-nsis>		<highlight-nsis>

Instructor at 14:10, 4 July 2005

2005-07-04T14:10:39Z

â† Older revision		Revision as of 14:10, 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 ==		== The Function Description==
	<highlight-nsis>/*
	~~______________________________________________________________________________~~		<highlight-nsis>
			____________________________________________________________________________

	WordAdd v1.8 (add or delete)		WordAdd v1.8 (add or delete)
	~~______________________________________________________________________________~~		____________________________________________________________________________

	~~WordFind required~~


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


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

	Example (delete):		<b>Example (delete):</b>
	Section		<highlight-nsis>Section
	${WordAdd} "C:\io.sys C:\logo.sys C:\WINDOWS" " " "-C:\WINDOWS C:\config.sys C:\IO.SYS" $R0		${WordAdd} "C:\io.sys C:\logo.sys C:\WINDOWS" " " "-C:\WINDOWS C:\config.sys C:\IO.SYS" $R0
	; $R0="C:\logo.sys"		; $R0="C:\logo.sys"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (add to one):		<b>Example (add to one):</b>
	Section		<highlight-nsis>Section
	${WordAdd} "C:\io.sys" " " "+C:\WINDOWS C:\config.sys C:\IO.SYS" $R0		${WordAdd} "C:\io.sys" " " "+C:\WINDOWS C:\config.sys C:\IO.SYS" $R0
	; $R0="C:\io.sys C:\WINDOWS C:\config.sys"		; $R0="C:\io.sys C:\WINDOWS C:\config.sys"
	SectionEnd		SectionEnd
			</highlight-nsis>

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

	Example (No new words found):		<b>Example (No new words found):</b>
	Section		<highlight-nsis>Section
	${WordAdd} "C:\io.sys C:\logo.sys" " " "+C:\logo.sys" $R0		${WordAdd} "C:\io.sys C:\logo.sys" " " "+C:\logo.sys" $R0
	StrCmp $R0 "C:\io.sys C:\logo.sys" 0 +2		StrCmp $R0 "C:\io.sys C:\logo.sys" 0 +2
	MessageBox MB_OK "No new words found to add"		MessageBox MB_OK "No new words found to add"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (No words deleted):		<b>Example (No words deleted):</b>
	Section		<highlight-nsis>Section
	${WordAdd} "C:\io.sys C:\logo.sys" " " "-C:\config.sys" $R0		${WordAdd} "C:\io.sys C:\logo.sys" " " "-C:\config.sys" $R0
	StrCmp $R0 "C:\io.sys C:\logo.sys" 0 +2		StrCmp $R0 "C:\io.sys C:\logo.sys" 0 +2
	MessageBox MB_OK "No words found to delete"		MessageBox MB_OK "No words found to delete"
	SectionEnd		SectionEnd
			</highlight-nsis>

	Example (With errorlevel output):		<b>Example (With errorlevel output):</b>
	Section		<highlight-nsis>Section
	${WordAdd} "C:\io.sys C:\logo.sys" "" "E-C:\logo.sys" $R0		${WordAdd} "C:\io.sys C:\logo.sys" "" "E-C:\logo.sys" $R0
	; $R0="1" (delimiter is empty "")		; $R0="1" (delimiter is empty "")
Line 93:		Line 100:

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

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

			<highlight-nsis>
	Function WordAdd		Function WordAdd
	!define WordAdd `!insertmacro WordAddCall`		!define WordAdd `!insertmacro WordAddCall`

ConversionBot: Adding new author and category links.

2005-06-24T14:07:27Z

Adding new author and category links.

â† Older revision		Revision as of 14:07, 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 221:		Line 219:
	</highlight-nsis>		</highlight-nsis>

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

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

2005-06-24T09:41:24Z

Updated by user: Instructor (talk, contrib).

Show changes

ConversionBot: Added category links.

2005-04-30T22:02:01Z

Added category links.

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

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

ConversionBot: Updated author links.

2005-04-30T03:05:58Z

Updated author links.

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

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

2005-04-23T12:43:31Z

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

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

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

ConversionBot: Wikipedia python library

2005-04-09T20:52:07Z

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

WordAdd v1.8 (add or delete)
______________________________________________________________________________

2004 Shengalts Aleksander (Shengalts@mail.ru)

Function "WordFind" required.

Add words to string1 from string2 if not exist or
delete words if exist.

Syntax:

Push "[string1]" ;[string1]
; string for addition or removing
Push "[delimiter]" ;[delimiter]
; one or several symbols
Push "[E][+-string2]" ;[+-string2]
; +string2 : words to add
; -string2 : words to delete
;
;[E]
; with errorlevel output
; IfErrors:
; $var=1 delimiter is empty
; $var=3 syntax error (use: +text,-text)
;[]
; no errorlevel output (default)
; If some errors found then (result=input string)
;
Call WordAdd ;call function
;
Pop $var ;output (result)

Example (add):
Section
Push "C:\io.sys C:\WINDOWS"
Push " "
Push "+C:\WINDOWS C:\config.sys"
Call WordAdd
Pop $R0 ;now contain: "C:\io.sys C:\WINDOWS C:\config.sys"
SectionEnd

Example (delete):
Section
Push "C:\io.sys C:\logo.sys C:\WINDOWS"
Push " "
Push "-C:\WINDOWS C:\config.sys C:\IO.SYS"
Call WordAdd
Pop $R0 ;now contain: "C:\logo.sys"
SectionEnd

Example (add to one):
Section
Push "C:\io.sys"
Push " "
Push "+C:\WINDOWS C:\config.sys C:\IO.SYS"
Call WordAdd
Pop $R0 ;now contain: "C:\io.sys C:\WINDOWS C:\config.sys"
SectionEnd

Example (delete one):
Section
Push "C:\io.sys C:\logo.sys C:\WINDOWS"
Push " "
Push "-C:\WINDOWS"
Call WordAdd
Pop $R0 ;now contain: "C:\io.sys C:\logo.sys"
SectionEnd

Example (No new words found):
Section
Push "C:\io.sys C:\logo.sys"
Push " "
Push "+C:\logo.sys"
Call WordAdd
Pop $R0

StrCmp $R0 "C:\io.sys C:\logo.sys" 0 +2
MessageBox MB_OK "No new words found to add"
SectionEnd

Example (No words deleted):
Section
Push "C:\io.sys C:\logo.sys"
Push " "
Push "-C:\config.sys"
Call WordAdd
Pop $R0

StrCmp $R0 "C:\io.sys C:\logo.sys" 0 +2
MessageBox MB_OK "No words found to delete"
SectionEnd

Example (With errorlevel output):
Section
Push "C:\io.sys C:\logo.sys"
Push ""
Push "E-C:\logo.sys"
Call WordAdd
Pop $R0 ;now contain: "1" (delimiter is empty "")

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

noerrors:
MessageBox MB_OK 'No errors'

end:
SectionEnd*/

;---------------------------------------------------------------------------
Function WordAdd
Exch $1
Exch
Exch $0
Exch
Exch 2
Exch $R0
Exch 2
Push $2
Push $3
Push $4
Push $5
Push $6
Push $7
Push $R1
ClearErrors

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

StrCpy $5 0
StrCpy $R1 $R0
StrCpy $2 $1 '' 1
StrCpy $1 $1 1
StrCmp $1 '+' +2
StrCmp $1 '-' 0 error3

StrCmp $0 '' error1
StrCmp $2 '' end
StrCmp $R0 '' 0 +5
StrCmp $1 '-' end
StrCmp $1 '+' 0 +3
StrCpy $R0 $2
goto end

loop:
IntOp $5 $5 + 1
Push `$2`
Push `$0`
Push `E+$5`
Call WordFind
Pop $3
IfErrors 0 /word
StrCmp $3 2 +4
StrCmp $3$5 11 0 +3
StrCpy $3 $2
goto /word
StrCmp $1 '-' end preend

/word:
Push `$R0`
Push `$0`
Push `E/$3`
Call WordFind
Pop $4
IfErrors +2
StrCmp $1 '-' delete loop
StrCmp $1$4 '-1' +2
StrCmp $1 '-' loop +4
StrCmp $R0 $3 0 loop
StrCpy $R0 ''
goto end
StrCmp $1$4 '+1' 0 +2
StrCmp $R0 $3 loop
StrCmp $R0 $R1 +3
StrCpy $R1 '$R1$0$3'
goto loop
StrLen $6 $0
StrCpy $6 $R0 '' -$6
StrCmp $6 $0 0 -4
StrCpy $R1 '$R1$3'
goto loop

delete:
Push `$R0`
Push `$0`
Push `E+$4{}`
Call WordFind
Pop $R0
goto /word

error3:
StrCpy $R1 3
goto error
error1:
StrCpy $R1 1
error:
StrCmp $7 'E' 0 end
SetErrors

preend:
StrCpy $R0 $R1

end:
Pop $R1
Pop $7
Pop $6
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Pop $0
Exch $R0
FunctionEnd
</highlight-nsis>

Page author: Instructor