do while(something check or value that be true)
do while(something check)
 pos = instr("space to find") // this will find the first char that is space char
 (then)
 call a function to check if following is also space, if so, go on to check the next unlti that is false(not the space char)
  if("function return value") = "some value" then
     // you can have the value return as object, so you can check state & position value
     startpos = startpos + 1
     exit do
   elseif(("function return other value") = "some other value" then
     replace the found space char("will more than 1") to single space char
     statrtpos = new pos
    end if
loop
   here, you should have a set of variable that hold space char start and end pos. it can then be safe to use replace function to override that with a single space char or other that you easy to maintain hereafter( for building parsing tree ).
loop