result from formula below (LASTSPACE) is to check the last position of " "(space) from word/text.
if there is no " "(space) then the result will be '-1'.
and you can create another formula (LASTWORD) in order to format as your requests (make it uppercase, etc.)
----------------------
Formula LASTSPACE:
Dim inString
inString = {ThirdParty_ItmMaster;1.ITEMDESC}
Dim i, strLen
i = len(inString)
strLen = Len (inString)
formula = -1
Do While i>0 and formula=-1
Dim c As String
if strLen<>0 then
c = Mid (inString, i, 1)
if c=" " then formula=i
end if
i = i - 1
Loop
----------------------
Formula LASTWORD:
-----------------------
hope it help.
Edited by Emir_W - 06 Jun 2010 at 9:00pm
IP Logged
