Convert 5 digit integers to pure text - Revision history

ConversionBot: Adding new author and category links.

2005-06-24T11:59:46Z

Adding new author and category links.

â† Older revision		Revision as of 11:59, 24 June 2005
Line 1:		Line 1:
	~~{\|align=right~~		{{PageAuthor\|Afrow UK}}
	~~\|<small>Author: [[~~{{~~ns:2}}:Afrow UK~~\|Afrow UK~~]] ([[{{ns:3~~}~~}:Afrow UK\|talk]], [[{{ns:-1}}:Contributions/Afrow UK\|contrib]])</small>~~
	\|}
	~~<br style="clear:both;">~~
	== Description ==		== Description ==
	This is a rather useless script, which I made because I was bored :p		This is a rather useless script, which I made because I was bored :p
Line 267:		Line 265:
	-Stu		-Stu

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

ConversionBot: Added category links.

2005-04-30T21:27:12Z

Added category links.

â† Older revision		Revision as of 21:27, 30 April 2005
Line 266:		Line 266:
	Written by [[user:Afrow UK\|Afrow UK]] on 2nd May 2003		Written by [[user:Afrow UK\|Afrow UK]] on 2nd May 2003
	-Stu		-Stu

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

ConversionBot: Updated author links.

2005-04-29T23:15:28Z

Updated author links.

@@ Line 1: / Line 1: @@
 == Description ==
 This is a rather useless script, which I made because I was bored :p
@@ Line 262: / Line 266: @@
 Written by [[user:Afrow UK|Afrow UK]] on 2nd May 2003
 -Stu

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

2005-04-23T12:36:40Z

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

â† Older revision		Revision as of 12:36, 23 April 2005
Line 263:		Line 263:
	-Stu		-Stu

	Page author: Afrow UK		Page author: [[User:Afrow UK\|Afrow UK]]

Deguix: SF: fourty -> forty.

2005-04-17T13:20:09Z

SF: fourty -> forty.

â† Older revision		Revision as of 13:20, 17 April 2005
Line 6:		Line 6:
	Push 96345		Push 96345
	Call ConvertInt2Str		Call ConvertInt2Str
	Pop $R0 </highlight-nsis>		Pop $R0
			</highlight-nsis>

	$R0 will now be: "ninety-six thousand, three hundred, and ~~fourty~~-five"		$R0 will now be: "ninety-six thousand, three hundred, and forty-five"
	== The Function ==		== The Function ==
	<highlight-nsis>		<highlight-nsis>
Line 83:		Line 84:
	Goto getend1		Goto getend1
	StrCmp $1 4 0 +4		StrCmp $1 4 0 +4
	StrCpy $3 ~~fourty~~		StrCpy $3 forty
	StrCpy $4 $0 1 -1		StrCpy $4 $0 1 -1
	Goto getend1		Goto getend1
Line 153:		Line 154:
	Goto getthousand3		Goto getthousand3
	StrCmp $2 4 0 +4		StrCmp $2 4 0 +4
	StrCpy $1 "~~fourty~~"		StrCpy $1 "forty"
	StrCpy $6 " thousand, "		StrCpy $6 " thousand, "
	Goto getthousand3		Goto getthousand3

ConversionBot: Wikipedia python library

2005-04-09T19:57:16Z

Wikipedia python library

New page

== Description ==
This is a rather useless script, which I made because I was bored :p
It converts a number (5 digits max) to pure text.
== Usage ==
<highlight-nsis>
Push 96345
Call ConvertInt2Str
Pop $R0
</highlight-nsis>

$R0 will now be: "ninety-six thousand, three hundred, and fourty-five"
== The Function ==
<highlight-nsis>
Function ConvertInt2Str
Exch $0 ; input string
Push $1
Push $2
Push $3
Push $4
Push $5
Push $6
StrLen $1 $0
StrCmp $1 6 error
StrCpy $3 ""
StrCpy $2 ""
StrCpy $4 $0
StrCmp $1 3 0 +2
StrCpy $4 $0 1 -1
StrCmp $1 4 0 +2
StrCpy $4 $0 1 -1
StrCmp $1 5 0 +2
StrCpy $4 $0 1 -1
StrCmp $0 0 0 +2
StrCpy $3 zero
StrCmp $4 1 0 +2
StrCpy $3 one
StrCmp $4 2 0 +2
StrCpy $3 two
StrCmp $4 3 0 +2
StrCpy $3 three
StrCmp $4 4 0 +2
StrCpy $3 four
StrCmp $4 5 0 +2
StrCpy $3 five
StrCmp $4 6 0 +2
StrCpy $3 six
StrCmp $4 7 0 +2
StrCpy $3 seven
StrCmp $4 8 0 +2
StrCpy $3 eight
StrCmp $4 9 0 +2
StrCpy $3 nine
StrCmp $0 1 done
StrCmp $4 10 0 +2
StrCpy $3 ten
StrCmp $4 11 0 +2
StrCmp $1 2 0 back1
StrCpy $4 $0 2 -1
StrCpy $3 eleven
StrCmp $4 12 0 +2
StrCpy $3 twelve
StrCmp $4 13 0 +2
StrCpy $3 thirteen
StrCmp $4 14 0 +2
StrCpy $3 fourteen
StrCmp $4 15 0 +2
StrCpy $3 fifteen
StrCmp $4 16 0 +2
StrCpy $3 sixteen
StrCmp $4 17 0 +2
StrCpy $3 seventeen
StrCmp $4 18 0 +2
StrCpy $3 eighteen
StrCmp $4 19 0 +2
StrCpy $3 nineteen
StrCpy $1 $0 1 -2
StrCmp $1 2 0 +4
StrCpy $3 twenty
StrCpy $4 $0 1 -1
Goto getend1
StrCmp $1 3 0 +4
StrCpy $3 thirty
StrCpy $4 $0 1 -1
Goto getend1
StrCmp $1 4 0 +4
StrCpy $3 fourty
StrCpy $4 $0 1 -1
Goto getend1
StrCmp $1 5 0 +4
StrCpy $3 fifty
StrCpy $4 $0 1 -1
Goto getend1
StrCmp $1 6 0 +4
StrCpy $3 sixty
StrCpy $4 $0 1 -1
Goto getend1
StrCmp $1 7 0 +4
StrCpy $3 seventy
StrCpy $4 $0 1 -1
Goto getend1
StrCmp $1 8 0 +4
StrCpy $3 eighty
StrCpy $4 $0 1 -2
Goto getend1
StrCmp $1 9 0 +4
StrCpy $3 ninety
StrCpy $4 $0 1 -1
Goto getend1
back1:
StrLen $1 $0
StrCmp $1 1 done
StrCmp $1 2 done
StrCpy $4 $0 1 -3
Goto gethundred1
back2:
StrCmp $1 3 done
StrCpy $4 $0 1 -4
Goto getthousand1
error:
MessageBox MB_OK "Error: integer is too long (too many digits!) \
$\nYou must use an integer less than 6 digits long."
StrCpy $0 error
Goto done
getthousand1:
StrCpy $4 $0 2 -5
StrCmp $4 10 0 +2
StrCpy $5 "ten thousand, "
StrCmp $4 11 0 +2
StrCpy $5 "eleven thousand, "
StrCmp $4 12 0 +2
StrCpy $5 "twelve thousand, "
StrCmp $4 13 0 +2
StrCpy $5 "thirteen thousand, "
StrCmp $4 14 0 +2
StrCpy $5 "fourteen thousand, "
StrCmp $4 15 0 +2
StrCpy $5 "fifteen thousand, "
StrCmp $4 16 0 +2
StrCpy $5 "sixteen thousand, "
StrCmp $4 17 0 +2
StrCpy $5 "seventeen thousand, "
StrCmp $4 18 0 +2
StrCpy $5 "eighteen thousand, "
StrCmp $4 19 0 +2
StrCpy $5 "nineteen thousand, "
StrCpy $2 $4 1 -2
StrCmp $2 2 0 +4
StrCpy $1 "twenty"
StrCpy $6 " thousand, "
Goto getthousand3
StrCmp $2 3 0 +4
StrCpy $1 "thirty"
StrCpy $6 " thousand, "
Goto getthousand3
StrCmp $2 4 0 +4
StrCpy $1 "fourty"
StrCpy $6 " thousand, "
Goto getthousand3
StrCmp $2 5 0 +4
StrCpy $1 "fifty"
StrCpy $6 " thousand, "
Goto getthousand3
StrCmp $2 6 0 +4
StrCpy $1 "sixty"
StrCpy $6 " thousand, "
Goto getthousand3
StrCmp $2 7 0 +4
StrCpy $1 "seventy"
StrCpy $6 " thousand, "
Goto getthousand3
StrCmp $2 8 0 +4
StrCpy $1 "eighty"
StrCpy $6 " thousand, "
Goto getthousand3
StrCmp $2 9 0 +4
StrCpy $1 "ninety"
StrCpy $6 " thousand, "
getthousand3:
StrCpy $2 $4 1 -1
StrCmp $2 0 0 +2
StrCpy $5 ""
StrCmp $2 1 0 +2
StrCpy $5 -one
StrCmp $2 2 0 +2
StrCpy $5 -two
StrCmp $2 3 0 +2
StrCpy $5 -three
StrCmp $2 4 0 +2
StrCpy $5 -four
StrCmp $2 5 0 +2
StrCpy $5 -five
StrCmp $2 6 0 +2
StrCpy $5 -six
StrCmp $2 7 0 +2
StrCpy $5 -seven
StrCmp $2 8 0 +2
StrCpy $5 -eight
StrCmp $2 9 0 +2
StrCpy $5 -nine
StrCpy $3 "$1$5$6$3"
Goto done
gethundred1:
StrCmp $4 0 0 +2
StrCpy $5 ""
StrCmp $4 1 0 +2
StrCpy $5 "one hundred, and "
StrCmp $4 2 0 +2
StrCpy $5 "two hundred, and "
StrCmp $4 3 0 +2
StrCpy $5 "three hundred, and "
StrCmp $4 4 0 +2
StrCpy $5 "four hundred, and "
StrCmp $4 5 0 +2
StrCpy $5 "five hundred, and "
StrCmp $4 6 0 +2
StrCpy $5 "six hundred, and "
StrCmp $4 7 0 +2
StrCpy $5 "seven hundred, and "
StrCmp $4 8 0 +2
StrCpy $5 "eight hundred, and "
StrCmp $4 9 0 +2
StrCpy $5 "nine hundred, and "
StrCpy $3 "$5$3"
Goto back2
getend1:
StrCmp $4 0 0 +2
StrCpy $5 ""
StrCmp $4 1 0 +2
StrCpy $5 one
StrCmp $4 2 0 +2
StrCpy $5 two
StrCmp $4 3 0 +2
StrCpy $5 three
StrCmp $4 4 0 +2
StrCpy $5 four
StrCmp $4 5 0 +2
StrCpy $5 five
StrCmp $4 6 0 +2
StrCpy $5 six
StrCmp $4 7 0 +2
StrCpy $5 seven
StrCmp $4 8 0 +2
StrCpy $5 eight
StrCmp $4 9 0 +2
StrCpy $5 nine
StrCpy $3 "$3-$5"
StrCpy $5 $3 1 -1
StrCmp $5 - 0 +2
StrCpy $3 $3 -1
Goto back1
done:
StrCpy $0 $3
Pop $1
Pop $2
Pop $3
Pop $4
Pop $5
Pop $6
Exch $0 ; output string
FunctionEnd
</highlight-nsis>
Written by [[user:Afrow UK|Afrow UK]] on 2nd May 2003
-Stu

Page author: Afrow UK