Code: Select all
Global resultsdll.s
ProcedureDLL.s removeextraspaces(str.s)
resultsdll=str
While FindString(resultsdll, " ",1) > 0
resultsdll=ReplaceString(resultsdll, " ", " ")
Wend
ProcedureReturn resultsdll
EndProcedure
Code: Select all
Debug removeextraspaces2("aa bbbbb ccc")
Debug "aa bbbbb ccc"
putting the procedure in the same file:
Code: Select all
Global resultsdll.s
Procedure.s removeextraspaces2(str.s)
resultsdll=str
While FindString(resultsdll, " ",1) > 0
resultsdll=ReplaceString(resultsdll, " ", " ")
Wend
ProcedureReturn resultsdll
EndProcedure
Debug removeextraspaces2("aa bbbbb ccc")
Debug "aa bbbbb ccc"
what's the problem?
Thank you