can I do this better?
can I do this better?
- Subject: can I do this better?
- From: garrett <email@hidden>
- Date: Wed, 12 Jun 2002 12:47:36 -0500
hey!
I wrote this little routine to trim off any trailing or beginning spaces or
returns. would any of u pros do it differently or better? if so, how and
why?
property removeChars : {return, space} --text to look for for trimming
property searchDirection : {1, -1} --1 searches forward, -1 searches
backwards
set search_Text_source to "
kjhsfsf
zkhjfkz
jjklzjxc
"
set finalText to trimText(search_Text_source)
on trimText(search_Text)
--if the seacrh-Direction is 1 then we search forward, examining the
first character of the text
--for any character in the Var removeChars (in our case returns or
spaces)
--if the Seacrh-Direction is -1 then we search backward form the last
character
repeat with i in searchDirection --first search forward then backward
set search_Text_Character to character i of search_Text --the
character to examine
repeat until removeChars does not contain search_Text_Character
if i = -1 then
set search_Text to characters 1 through ((length of
search_Text) - 1) of search_Text as string
else
set search_Text to characters 2 through ((length of
search_Text) - 1) of search_Text as string
end if
--since the Search Text has been trimmed we set the search
character the NEW last or first character
set search_Text_Character to character i of search_Text
end repeat
return search_Text
end repeat
end trimText
-------
garrett
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.