Re: copy outline with numbers


Well, I've come up with this PowerPro script that turns an RTF
outline in the clipboard into a numbered RTF outline in the
clipboard. You need PowerPro to run this script; perhaps someone with
AutoIt experience could translate it into a stand-alone mini-app.

; TabOutline2IntOutline()
; Given ECCO outline exported as RTF text to clipboard using eccoext
; push to clipboard RTF outline modified to add outline numbers
i.j.k. etc.
; usage: copy from ECCO, run TabOutline2IntOutline, paste to RTF
editor
; --------------------------------------------------------------------
function TabOutline2IntOutline()
local srtf=clip.getrtf
local
hRE=regex.pcrecompile(?"^(\\li\d+){0,1}([^\s]*)(\s*)(.+)$","multiline")
local iCount=hRE.pcrematchcount(srtf)
local capCount=hRE.pcrecapturecount
local hVec=vec.create2D(iCount,capCount+1)
local aCount=hRE.pcrematchall(srtf,"","",0,hVec)
local nl=esc(?"\n",?"\")
local s,outline,level,i,j
outline=vec.create(32)
for (i=0;i<32;i++)
outline[i]=0
endfor
//assert: first clipboard line is rtf header; output it verbatim
srtf=hVec[0,0] // first clipboard line; x,0 is whole line
//assert: last clipboard line is rtf terminator; output it verbatim
//assert: all remaining lines are to be modified
for (i=1;i<iCount-1;i++)
s=hVec[i,1]
if(!s)do
s=?"\li0" //fake the match
endif
//else matched literal \li400 | \li800 | \li1200 ...
level=s[3,10]/400
outline[level]=1+outline[level]
s=""
for(j=0;j<32;j++)
if(j<=level)do
s ++= outline[j]++"."
else
outline[j]=0
endif
endfor
hVec[i,4]=s++" "++hVec[i,4]
//endif
s = ""
for (j=1;j<capCount+1;j++)
//win.debug("hVec["++i++","++j++"]", hVec[i,j])
s ++= hVec[i,j]
endfor
srtf ++= nl++s
endfor
srtf ++= nl++hVec[iCount-1,0] // last clipboard line; x,0 is whole
line
clip.setrtf(srtf)
quit