9 lines
140 B
Text
9 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
|