8 lines
140 B
Text
8 lines
140 B
Text
Function StrRev1(ByVal $p1)
|
|
dim $b = ""
|
|
REPEAT len(p1)
|
|
b = b & RIGHT(p1,1)
|
|
p1 = LEFT(p1,LEN(p1)-1)
|
|
END REPEAT
|
|
return b
|
|
End Function
|