I wrote some code to do this awhile back. It is
===================================================
dc[file_] :=
Block[{f,len,wdt,chi,beta},
f=OpenRead[file];
len=Read[f,Number];
wdt=Read[f,Number];
chi=Read[f,Number];
beta=Read[f,Number];
x=ReadList[f,Table[Number,{wdt}]];
Close[f];
Show[
Table[
Graphics3D[ Line[ {x[[y,{2,3,4}]], x[[y+1,{2,3,4}]]} ] ],
{y,1,len-1}
], BoxRatios->{1,1,1}
]
]
===================================================
The file is expected to start with four numbers giving the length of
the list, the width of the list, and two parameters in my case.
(I was solving odes numerically.) It then should contain a list
of width columns with length rows.
Scott