Delete all NaN (empty points) from a numeric wave or a text wave

// Handy Function to delete NaNs from TextWaves:
Function DeleteNaNTextwave(W)
Wave /T W
Duplicate /T /O W WwoNaNs
Variable Points = numpnts(WwoNaNs)
InsertPoints Points,1, WwoNaNs // Insert trailing NaN to make loop-break-condition work
Variable i=0, NOP
    Do
    NOP = numpnts(WwoNaNs)
    if((strlen(WwoNaNs [i]) == 0)||(cmpstr("",WwoNaNs [i]) == 0)||(cmpstr("NaN",WwoNaNs [i])==0))
        DeletePoints i, 1, WwoNaNs
        i = 0 // Start over again
    else
    i = i+1
    endif  
    while(strlen(WwoNaNs[NOP])==0) // see above
End

// Handy Function to delete NaNs from NumericWaves:
Function DeleteNaNNumWave(W)
Wave W
String OldName = NameofWave(W)
String NewName = OldName+"_woNaNs"
ConvertNumWvToTxtWv(W)
DeleteNaNTextwave(TxtConvert)
ConvertTxtWvToNumWv(WwoNaNs)
Duplicate /O NumConvert $NewName
End

// Handy Function to convert numeric waves into text waves
Function ConvertNumWvToTxtWv(W)
Wave W
Variable np = numpnts(W)
Make /T /O /N=(np) TxtConvert
Variable x
for(x=0;x<np;x+=1)
    TxtConvert[x] = num2str(W[x])
endfor
End

// Handy Function to convert text waves into numeric waves
Function ConvertTxtWvToNumWv(W)
Wave /T W
Variable np = numpnts(W)
Make /O /N=(np) NumConvert
Variable x
for(x=0;x<np;x+=1)
    NumConvert[x] = str2num(W[x])
endfor
End