Tokenize a string: Difference between revisions
→{{header|AppleScript}}
m (Category:Simple) |
|||
Line 128:
John.Lennon..Paul.McCartney..George.Harrison..Ringo.Starr.
</pre>
=={{header|AppleScript}}==
<lang AppleScript>on run {}
intercalate(".", splitOn(",", "Hello,How,Are,You,Today"))
end run
-- Text -> Text -> [Text]
on splitOn(strDelim, strMain)
set {dlm, my text item delimiters} to {my text item delimiters, strDelim}
set lstParts to text items of strMain
set my text item delimiters to dlm
return lstParts
end splitOn
-- Text -> [Text] -> Text
on intercalate(strText, lstText)
set {dlm, my text item delimiters} to {my text item delimiters, strText}
set strJoined to lstText as text
set my text item delimiters to dlm
return strJoined
end intercalate</lang>
{{Out}}
<pre>"Hello.How.Are.You.Today"</pre>
=={{header|AutoHotkey}}==
|