[simpits-tech] VB Code to strip digits apart

[Gene Buckle]

> And the winner is - - - - - - - - - - - - - -
>
> GENE
>
> You are the KING!!!!
>
> Your little five lines worked like a charm!!!!!!
>
> Thanks so much
>
Hehehe.  Thanks Ken.  I'm glad it worked out. :)

BTW, here's the Delphi equivalent if anyone is interested...

function SendValue(value : integer);
var
  tempstr    : string;
  x          : integer;
begin
  tempstr := IntToStr(value);
  for x := 1 to length(tempstr) do
    SpecialOutputRoutine(tempstr[x]);
end;

(what the hell, here's one for the C junkies too)

void SendValue(int value)
  int x;
  char *tempstr;
{
  sprintf(tempstr, "%d", value);
  for(x=0;x != strlen(tempstr);x++) {
    SpecialOutputRoutine(tempstr[x]);
  }
}


*huge grin*

g.