8 lines
122 B
Text
8 lines
122 B
Text
|
Function StrRev2(ByVal $p1)
|
||
|
|
dim $b = "", %i
|
||
|
|
for i = len(p1) DOWNTO 1
|
||
|
|
b = b & MID(p1,i,1)
|
||
|
|
next
|
||
|
|
return b
|
||
|
|
End Function
|