SetDirectory["~/Desktop"]

data = Import["getwfm.txt", "CSV"]

ListPlot[data]

Length[data]

data[[10001, 1]]
data[[10001, 2]]

shortdata = Table[{data[[i,1]], data[[i, 2]]}, {i, 1, 10^4}]

ListPlot[shortdata]

shortdata2 = Table[{data[[i,1]], data[[i, 2]]}, {i, 1, 10}]

TableForm[shortdata2]

times = Table[shortdata[[i, 1]], {i, 1, Length[shortdata]}]

ListPlot[times]

Export["times.txt", times, "List"]

ListPlot[times, PlotRange->{-0.01, 0.01}, AxesLabel->{"x", "y"}]

ListPlot[times, PlotRange->{{-1000, 11000}, {-0.01, 0.01}}, Joined->True, Frame->True, FrameLabel->{"number", "time"}]

ListPlot[shortdata2, PlotRange->{ {-5.0*10^(-3), -4.99*10^(-3)}, {0, 1}}, Joined->True, Frame->True, FrameLabel->{"number", "time"}]

mostresult = Most[data]

ListPlot[mostresult]