kOt Contributor
Joined: 19 Jan 2004 Posts: 89 Location: Fyffe, AL
|
Posted: Fri Oct 20, 2006 2:32 am Post subject: |
|
|
if spaces is the only separaters then you could use something like this
Code: |
# create a sample list with original layout
list create,1
list loadfile,1,sample.txt
#create a empty list
list create,2
%b = @count(1)
%y = 0
info %b - %y
repeat
%y = @succ(%y)
%z = 1
%a = 1
repeat
if @equal(@substr(@item(1),%a,%a)," ")
%%str = @substr(@item(1),%z,@fsub(%a,1))
list add,2,%%str
%z = @fadd(%a,1)
%a = @succ(%a)
elsif @equal(%a,@len(@item(1)))
%%str = @substr(@item(1),%z,%a)
list add,2,%%str
%z = @fadd(%a,1)
%a = @succ(%a)
else
%a = @succ(%a)
end
until @equal(@len(@text(1)),%a)
%p = @next(1)
until @equal(%y,%b)
list savefile,2,newlayout.txt |
_________________ Visual Dialogscript 5 |
|