7 lines
122 B
Text
7 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
|