Replace All Zero's On Left Hand Side

[jvanegmond 297]

I'm looking to replace all zero's on the left hand side

Example:

Input: 000018FE

Output: 18FE

Input: 000108F0

Output: 108F0

I've looked at StringRegExp but my mind overloaded so i'm looking for a bit of assistance

Edited April 12, 2006 by Manadar

[jvanegmond 297]

Awesome! This works

Thanks a lot Larry!

[SmOke_N 199]

Here you go...

MsgBox(0, '', _RemoveDigit("018FE", 0))
Func _RemoveDigit($v_String, $i_Digit)
    If StringInStr($v_String, String($i_Digit)) Then
        For $i_count = 1 To StringLen($v_String)
            If StringMid($v_String, $i_count, 1) <> $i_Digit Then Return StringTrimLeft($v_String, $i_count - 1)
        Next
    EndIf
    Return $v_String
EndFunc

Edit:

Damn I'm slow today!

Edit2:

Had to modify mine, so it counted the number as a string.

Edited April 12, 2006 by SmOke_N

[CyberSlug 3]

Larry's should work, but here's an alternative.

$input = "000018FE"
$output = StringFormat ("%X", Dec($input))

MsgBox(0, "Result", $output)

;Similar to Larry's

Func _shorterFunction($input)
    Local $i
    For $i = 1 to StringLen($input)
        If StringMid($input, $i, 1) = "0" Then ContinueLoop
        Return StringMid($input, $i)
    Next
EndFunc

Edit: made $i Local for correctness...

Edited April 12, 2006 by CyberSlug

[CyberSlug 3]

In my unbiased opinion, I'd say that StringFormat is the winner

[jvanegmond 297]

Thanks for the feedback guys, you can stop now