Intrigued
12-13-2006, 08:25 PM
-- A function that will reverse and return a string of characters
function fReverseCharacters(argString)
strDataTypedIn = Dialog.Input("Enter some data", "Type in a line of data", "", MB_ICONINFORMATION)
numDataTypedInLength = String.Length(strDataTypedIn)
strDataReturned = ""
for n = 0, numDataTypedInLength do
strCharacter = String.Mid(strDataTypedIn, numDataTypedInLength-n, 1)
strDataReturned = strDataReturned..strCharacter
end
return strDataReturned
end
-- Testing the function
Dialog.Message("Data Returned, but in reverse order", fReverseCharacters("Hi from Intrigued!"))
function fReverseCharacters(argString)
strDataTypedIn = Dialog.Input("Enter some data", "Type in a line of data", "", MB_ICONINFORMATION)
numDataTypedInLength = String.Length(strDataTypedIn)
strDataReturned = ""
for n = 0, numDataTypedInLength do
strCharacter = String.Mid(strDataTypedIn, numDataTypedInLength-n, 1)
strDataReturned = strDataReturned..strCharacter
end
return strDataReturned
end
-- Testing the function
Dialog.Message("Data Returned, but in reverse order", fReverseCharacters("Hi from Intrigued!"))