Code

var vStr1 as String
var vStr2 as String

vStr1 = "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum. "

vStr2 = @Text(73, vStr1)
WriteLn(vStr2)
 

Code

var vChoice as String
var vValList as String

// Get the list of the Names and Locations
vValList = @XLookupSourceListAll(@FN, "M..", "Customers!CusName", "CusName;Location")

// Replace the semicolons with hyphens
vValList = @Replace(vValList, ";", " - ")

// Replace the line breaks with semicolons so the
// whole thing can be passed to @PopupChoiceList.
vValList = @Replace(vValList, @NewLine(), ";")

// Sort the semicolon separated list and remove duplicates
vValList = @UniqueStringArray(@SortStringArray(vValList, 0))

// Show the list
vChoice = @PopupChoiceList(vValList, "Make a Selection")

// Optionally, split the result to diplay only the data before the hyphen
//vChoice = Split(vChoice, "-")

WriteLn(vChoice)