SetDirectory["Z:\\V2011-02-02"]

Pd8=ReadList["scan_2011-02-02_223333",{Number,Number,Number,Number,Number,Number,Number,Number,Number,Number,Number,Number,Number,Number,Number,Number}];

SlikaC=ListContourPlot[Pd8,PlotRange->{0,153050},AxesLabel->{"x","y","z"}]

Slika3=ListPlot3D[Pd8,PlotRange->{0,153050},AxesLabel->{"x","y","z"}]

Export["ProfilContura.jpg",SlikaC]

Export["Profil3D.jpg",Slika3]