Set the path to the file, read the data, select all the data that's not integers using a pure function construct, form the list of points {data,i*0.005}, plot the points.Code:$Path = Append[$Path, "c:\Math Help Forum"]; data = ReadList["data1.txt", Number]; newdata = Select[data, Not[Element[#, Integers]] &] points = Table[{newdata[[i]], 0.005 i}, {i, 1, Length[newdata]}] ListPlot[points, Joined -> True]