Icetips Utilities Documentation 11/9/2015     Core Class: GetReplaceString

Previous  Top  Next

This method is used to retrieve the value of the ReplaceString property, which is private and should never be updated outside of the class.  This is convenient when calling the FindReplace method with the same data multiple times. 

Example:

SetCustomerData   PROCEDURE  (CUSTOMER_GROUP pCus)

ITS      ITStringClass

CS       STRING(100)

CODE

IF LEN(CLIP(pCus)) > 0

   ITS.ReadFileToString('Template.xml'))

   !! First use the FileString property:

   CS = ITS.FindReplace('##Handle_Number##', pCus.HandleNumber         , ITS.FileString)

   !! Then use the ReplaceString by calling GetReplaceString()

   CS = ITS.FindReplace('##Number##',        pCus.Number               , ITS.GetReplaceString())

   CS = ITS.FindReplace('##Group_Handle##',  pCus.GroupHandle          , ITS.GetReplaceString())

   CS = ITS.FindReplace('##Name##',          pCus.Name                 , ITS.GetReplaceString())

   CS = ITS.FindReplace('##Currency##',      pCus.CurrencyHandleCode   , ITS.GetReplaceString())

   CS = ITS.FindReplace('##Email##',         pCus.Email                , ITS.GetReplaceString())

   CS = ITS.FindReplace('##PhoneNnumber##',  pCus.TelephoneAndFaxnumber, ITS.GetReplaceString())

   CS = ITS.FindReplace('##Website##',       pCus.Website              , ITS.GetReplaceString())

   CS = ITS.FindReplace('##Address##',       pCus.Address              , ITS.GetReplaceString())

   CS = ITS.FindReplace('##PostalCode##',    pCus.PostalCode           , ITS.GetReplaceString())

   CS = ITS.FindReplace('##City##',          pCus.City                 , ITS.GetReplaceString())

   CS = ITS.FindReplace('##Country##',       pCus.Country              , ITS.GetReplaceString())

   RETURN(ITS.GetReplaceString())

ELSE

   RETURN('')

END

See also:

FindReplace