Davidnewcomb at 10:54, 4 April 2007

2007-04-04T10:54:39Z

â† Older revision		Revision as of 10:54, 4 April 2007
Line 64:		Line 64:
	Already applied: \|0\|		Already applied: \|0\|
	Completed		Completed

			[[Category:Code Examples]]
			[[Category:Tutorials]]

Davidnewcomb: Strip leading zeros

2007-04-04T10:49:34Z

Strip leading zeros

New page

== Description ==
Strings with a leading zero are treated as octal. So stripping zeros using IntOp won't work:

<highlight-nsis>
IntOp $v "00009" + 0
</highlight-nsis>

== The Script ==
<highlight-nsis>
Name "TrimLeadingZeros"
OutFile "TrimLeadingZeros.exe"
ShowInstDetails show

var gen

Function TrimLeadingZerosCall

Exch $R1
Push $R2
Loop:
StrCpy $R2 "$R1" 1
StrCmp "$R2" "0" TrimLeft
Goto Done

TrimLeft:
StrCpy $R1 "$R1" "" 1
Goto Loop

Done:
StrCmp $R1 "" 0 +2
StrCpy $R1 "0"

Pop $R2
Exch $R1

FunctionEnd

!macro TrimLeadingZeros NUM
Push ${NUM}
Call TrimLeadingZerosCall
Pop ${NUM}
!macroend

!define TrimLeadingZeros `!insertmacro TrimLeadingZeros`

Section ""

StrCpy $gen "00009"
${TrimLeadingZeros} $gen
DetailPrint "Already applied: |$gen|"

StrCpy $gen "00000"
${TrimLeadingZeros} $gen
DetailPrint "Already applied: |$gen|"

SectionEnd
</highlight-nsis>

== Output ==

Already applied: |9|
Already applied: |0|
Completed

Strip Leading Zeros - Revision history

Davidnewcomb at 10:54, 4 April 2007

Davidnewcomb: Strip leading zeros