Hi Alastair,
I don't know if it's any more eloquent, but this would be another way of
doing it
SET VAR vVarData = (TRIM(.vVarData))
SET VAR vCount = (SLOC(.vVarData, ' '))
While vCount > 0 Then
SET VAR vVarData = (SRPL(.vVarData, ' ', ' ', 0))
SET VAR vCount = (SLOC(.vVarData, ' '))
EndWhile
...
Ben
Alastair Burr wrote:
I am trying to remove all double spaces in text in order to replace
the remaining single spaces with a comma so that I can use SSUB on the
converted string.
The target string (vVarData) may have an unknown number of spaces
between the words. There's no pattern from one string to another. In
theory there's no limit to the length of any space although, in
practice, it's likely only to be a few space "characters".
I expected to be able to come up with something rather more eloquent
than this:
SET VAR vVarData = (TRIM(.vVarData))
LABEL lSpaces
SET VAR vCount = 0
SET VAR vCount = (SLOC(.vVarData, ' '))
IF vCount <> 0 THEN
SET VAR vVarData = (SRPL(.vVarData, ' ', ' ', 0))
GOTO lSpaces
ENDIF
SET VAR vVarData = (SRPL(.vVarData, ' ', ',', 0))
SET VAR vWord3 = (SSUB(.vVarData, 3))
SET VAR vWord4 = (SSUB(.vVarData, 4))
SET VAR vWord6 = (SSUB(.vVarData, 6))
Am I missing a more obvious method to get the end result?
Regards,
Alastair
----------------------------
Alastair Burr
St. Albans, UK.
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
-----------------------------
