One chap at TeleType studio had written a quick workaround. This function chops the string by the first preceding space:
@subString[content;length]
$length(^length.int(0))
^while(^content.mid($length;1) ne ' ' && $i<^content.length[]){
^length.dec(1)
}
$result[^content.left($length)]
#/subString
No comments:
Post a Comment