银行卡4位加一个空格 asp代码

 网上是找不到的,创了个

ASP/Visual Basic代码
  1. '银行卡4位加一个空格  
  2. Function BKCard(Str)  
  3.     redim t(len(Str)-1)  
  4.     for i=1 to len(Str) step 4  
  5.      t(i-1)=mid(Str,i,4)  
  6.     next  
  7.     '测试结果  
  8.     for i=0 to ubound(t)  
  9.      BKCard = BKCard & t(i)&" "  
  10.     next  
  11. End Function  

 

未经允许不得转载:Windy's Blog » 银行卡4位加一个空格 asp代码

赞 (0)