Miva - Credit Card Number Formatter & Cleaner
<mvt:assign name="g.cc_num_dirty" value="'4444-5555/3333A1111-adasdsadasdas!'" />
<mvt:while expr="l.character_counter LT len(g.cc_num_dirty)">
<mvt:assign name="l.character_counter" value="l.character_counter + 1" />
<mvt:assign name="l.character" value="substring_var( g.cc_num_dirty, l.character_counter, 1 )"/>
<mvt:if expr="isdigit(l.character)">
<mvt:if expr="l.digit_counter GT 0 AND l.digit_counter MOD 4 EQ 0">
<mvt:assign name="g.cc_num_clean" value="g.cc_num_clean $ '-'" />
</mvt:if>
<mvt:assign name="g.cc_num_clean" value="g.cc_num_clean $ l.character" />
<mvt:assign name="l.digit_counter" value="l.digit_counter + 1" />
</mvt:if>
</mvt:while>
&mvte:global:cc_num_clean;