Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub strrev(target as string)
- dim char as ubyte
- dim as long iEnd = len(target)-1
- for i as integer = 0 to iEnd\2
- char = target[i]
- target[i] = target[iEnd]
- target[iEnd] = char
- iEnd -= 1
- next
- end sub
- ' OR ... '
- sub strrev(target as string)
- dim char as ubyte
- dim as long iEnd = len(target)-1
- for i as integer = 0 to iEnd\2
- swap target[i],target[iEnd]
- iEnd -= 1
- next
- end sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement