Splitter George Script

(A George Script For Aura)

Written By Ray Foster

You can go to the bottom of the page from here and click on the link to download this script, or take a look at the acutal script, which is between the start and end George script lines.

< ---------------------------------- Start of George Script ----------------------- >
// splitter.grg
// breaks large .rtv file into smaller pieces
// each subsequent running of the script loads the next piece
// user must supply new name for each save

param none
connect "aura commands"

tv_readuserstring "splitter" "info" "Not found"
answer=result
parse answer filename segment number step
test=CMP(answer,"Not found")

if test==1

tv_reqfile
filename=result

test=CMP(filename,"Cancel")
if test==1
exit
end

tv_fileinfo filename
info=result
parse info x y number

tv_reqnum 2 1 number "There are " number "frames in this file. How many segments to load"
divisor=result
segment=trunc((number/divisor),0)
step=1
first=0
tv_writeuserstring "splitter" "info" filename segment first number step
end

tv_readuserstring "splitter" "info" "Not found"
answer=result
parse answer filename segment first number step

end=trunc((number/segment),0)
name=filename

i=1
a=len(filename)

while i test=char(name,i)
x=cmp(test,"\")

if x==1
mark=i
end

x=0
i=i+1
end

name=cut(name,mark+1,a)

tv_request "Loading segment "step" of "end" of "name " Do you want to continue|Yes|No"
answer=result

if answer==0
tv_writeuserstring "splitter" "info" "Not found"
exit
end

if step==end
segment=number-(segment*(step-1))
end

tv_loadsequence filename first segment
test=result

if test<0
tv_writeuserstring "splitter" "info" "Not found"
tv_warn "Sequence not found"
end

step=step+1
first=first+segment
if first tv_writeuserstring "splitter" "info" filename segment first number step
else
tv_writeuserstring "splitter" "info" "Not found"
end
< ---------------------------------- End of George Script ----------------------- >

Click Here to Download Splitter.zip

Well that does it for this one, till next time...

To contact Ray Foster you can E-Mail him at rfoster@idirect.com