Delete all NaN (empty points) from a text wave, trailing or scattered

// 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))
        DeletePoints i, 1, WwoNaNs
        i = 0 // Start over again
    else
    i = i+1
    endif   
    while(strlen(WwoNaNs[NOP])==0) // see above
End