LiveCode Forums.

Code: Select all

on mouseUp
  put fld 1 into tHtml
  put 1000 into n
  --
  put the millisecs into t
  repeat n
    put ReformatHtml1(tHtml) into r1
  end repeat
  put the millisecs - t into t1
  --
  put the millisecs into t
  repeat n
    put ReformatHtml2(tHtml) into r2
  end repeat
  put the millisecs - t into t2
  --
  put "Method 1: "& (t1/n)&" ms" &cr \
        & "Method 2: "& (t2/n) &" ms" &cr \
        & "Same result?: "& (r1=r2)
end mouseUp

function ReformatHtml1 pHtml
  put the num of lines of pHtml into n1
  put numToChar(1) into c1
  put numToChar(2) into c2
  replace "<p>" with c1 in pHTml
  replace "</p>" with c2 in pHtml
  set linedel to c1; set itemdel to c2
  put line 1 of pHtml into txt2 --> we start AFTER first "<p>"
  repeat for each line L in (line 2 to -1 of pHtml)
    replace cr with space in item 1 of L
    replace c2 with "</p>" in L
    put "<p>" & L after txt2
  end repeat
  if last char of txt2 = cr then delete last char of txt2
  return txt2
end ReformatHtml1

function ReformatHtml2 pHtml
  replace cr with space in pHtml
  replace "> <" with ">"&cr&"<" in pHtml
  if last char of pHtml = space then delete last char of pHtml
  return pHTml
end ReformatHtml2