function [tp]=get_campbell_WxStat_volt(fn)

fid=fopen(fn);
if (fid~=0)
    for n=1:4
        junk=fgetl(fid);
    end
    clear junk
    cc=0;
    while (~feof(fid))
        junk=fgetl(fid);
        ix=strfind(junk,'"');
        if ~isempty(ix)
            cc=cc+1;
            DT=junk(ix(1)+1:ix(2)-1);
            if ~isempty(DT)
                tp.PC_TIME(cc,1)=str2num(DT(1:4));  tp.PC_TIME(cc,2)=str2num(DT(6:7));  tp.PC_TIME(cc,3)=str2num(DT(9:10));
                tp.PC_TIME(cc,4)=str2num(DT(12:13));tp.PC_TIME(cc,5)=str2num(DT(15:16));tp.PC_TIME(cc,6)=str2num(DT(18:19));
            else
                tp.PC_TIME(cc,:)=ones(1,6).*NaN;
            end
            
            clear ix
            ix=strfind(junk,',');
            rec=junk(ix(1)+1:ix(2)-1);
            if ~isempty(rec)
                tp.record_number(cc)=str2num(rec);
            else
                tp.record_number(cc)=NaN;
            end 
            
            PTemp=junk(ix(2)+1:ix(3)-1);
            if ((~isempty(PTemp))&(strcmp('"NAN"',PTemp)~=1))
                tp.PTemp(cc)=str2num(PTemp);
            else
                tp.PTemp(cc)=NaN;
            end
            
            Batt_V=junk(ix(3)+1:ix(4)-1);
            if ((~isempty(Batt_V))&(strcmp('"NAN"',Batt_V)~=1))
                tp.Batt_V(cc)=str2num(Batt_V);
            else
                tp.Batt_V(cc)=NaN;
            end
            
            PSP2V=junk(ix(4)+1:ix(5)-1);
            if ((~isempty(PSP2V))&(strcmp('"NAN"',PSP2V)~=1))
                tp.PSP2V(cc)=str2num(PSP2V);
            else
                tp.PSP2V(cc)=NaN;
            end
            
            PIR1V=junk(ix(5)+1:ix(6)-1);
            if ((~isempty(PIR1V))&(strcmp('"NAN"',PIR1V)~=1))
                tp.PIR1V(cc)=str2num(PIR1V);
            else
                tp.PIR1V(cc)=NaN;
            end
        
            PIR1net=junk(ix(6)+1:ix(7)-1);
            if ((~isempty(PIR1net))&(strcmp('"NAN"',PIR1net)~=1))
                tp.PIR1net(cc)=str2num(PIR1net);
            else
                tp.PIR1net(cc)=NaN;
            end
            
            PIR1T=junk(ix(7)+1:ix(8)-1);
            if ((~isempty(PIR1T))&(strcmp('"NAN"',PIR1T)~=1))
                tp.PIR1T(cc)=str2num(PIR1T);
            else
                tp.PIR1T(cc)=NaN;
            end
            
            VR1=junk(ix(8)+1:ix(9)-1);
            if ((~isempty(VR1))&(strcmp('"NAN"',VR1)~=1))
                tp.VR1(cc)=str2num(VR1);
            else
                tp.VR1(cc)=NaN;
            end
            
            R1=junk(ix(9)+1:ix(10)-1);
            if ((~isempty(R1))&(strcmp('"NAN"',R1)~=1))
                tp.R1(cc)=str2num(R1);
            else
                tp.R1(cc)=NaN;
            end
            
            PTU_TV=junk(ix(10)+1:ix(11)-1);
            if ((~isempty(PTU_TV))&(strcmp('"NAN"',PTU_TV)~=1))
                tp.PTU_TV(cc)=str2num(PTU_TV);
            else
                tp.PTU_TV(cc)=NaN;
            end
            
            PTU_RHV=junk(ix(11)+1:ix(12)-1);
            if ((~isempty(PTU_RHV))&(strcmp('"NAN"',PTU_RHV)~=1))
                tp.PTU_RHV(cc)=str2num(PTU_RHV);
            else
                tp.PTU_RHV(cc)=NaN;
            end
            
            PTU_PV=junk(ix(12)+1:ix(13)-1);
            if ((~isempty(PTU_PV))&(strcmp('"NAN"',PTU_PV)~=1))
                tp.PTU_PV(cc)=str2num(PTU_PV);
            else
                tp.PTU_PV(cc)=NaN;
            end
            
            WSPDV=junk(ix(13)+1:ix(14)-1);
            if ((~isempty(WSPDV))&(strcmp('"NAN"',WSPDV)~=1))
                tp.WSPDV(cc)=str2num(WSPDV);
            else
                tp.WSPDV(cc)=NaN;
            end
            
            WDIRV=junk(ix(14)+1:length(junk));
            if ((~isempty(WDIRV))&(strcmp('"NAN"',WDIRV)~=1))
                tp.WDIRV(cc)=str2num(WDIRV);
            else
                tp.WDIRV(cc)=NaN;
            end
           
            clear junk DT rec PTemp Batt_V PSP2V PIR1V PIR1net PIR1T VR1 
            clear R1 PTU_TV PTU_RHV PTU_PV WSPDV WDIRV 

        end
    end
else
    tp=[];
end

 fclose('all');