mine is Golfed and in pretty colors, so its better ;\)





$string="fooBAR"
 
? G($string)
? $string
 
Function G($)
  Dim $,$i,$t
  For $i = 1 to ($^)
    $t = Left($,1)
    If Asc($t) > 64 & Asc($t) < 91
      $G = $G + $t
    EndIf
    $ = Right($,~)
  Next
EndFunction


_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)