xml Miva - 信用卡号码格式器和清洁器

Posted 2021-05-17

<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;