Home > Archive > Clipper > October 2005 > translate an old clipper ap to visual basic
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
translate an old clipper ap to visual basic
|
|
|
| hello from germany,
i am translating an old clipper ap to visual basic. in this app is an
function, who crypt data. please, can me anyone give a little (big)
help ?
thank you very much.
********************************
function WERT(Arg1, Arg2)
local Local1, Local2
if (Empty(Static164))
if (Arg2 != Nil)
AAdd(Static164, {Upper(Arg1), Arg2})
endif
Local2:= Nil
else
Local1:= ascan(Static164, {|_1| _1[1] == Upper(alltrim(Arg1))})
if (Local1 > 0)
Local2:= Static164[Local1][2]
if (Arg2 != Nil)
Static164[Local1][2]:= Arg2
endif
else
if (Arg2 != Nil)
AAdd(Static164, {Upper(alltrim(Arg1)), Arg2})
endif
Local2:= Nil
endif
endif
return Local2
********************************
| |
| Stephen Quinn 2005-10-08, 3:55 am |
| Frank
> i am translating an old clipper ap to visual basic. in this app is an
> function, who crypt data. please, can me anyone give a little (big)
> help ?
I can't see any encryption going on in that routine.
All it's doing is adding/updating elements to a static array based on what's in
the parameters passed in.
HTH
Steve
| |
|
|
|
|
|