Trying to remove extra lines from Listbox

[AceSentinal]

I'm trying to remove the extra lines of whitespace in my listbox. Short n sweet is what I'm going for.

While 1
    $Line = FileReadLine($file)
    If StringIsSpace ( $Line )  Then $nLine = StringStripCR( $Line )
    $nLine = $Line
    If @error = -1 Then ExitLoop
    GUICtrlSetData($View, $nLine)
Wend

So, "If the line is empty, remove it." is the goal.

Edit: Sorry if I seem demanding or if I am implying someone write it for me. I'm on lunch trying to figure this out.

Thank you in advance.

Edited October 2, 2009 by AceSentinal

[Zedna]

While 1
    $Line = FileReadLine($file)
    If @error Then ExitLoop
    If StringStripWS($Line, 8) = '' Then ContinueLoop
    GUICtrlSetData($View, $Line)
Wend

[AceSentinal]

Thank you, I was trying to get it to work and I got a ton of ways to get it to work... if anyone could handle the massive refresh rate.

I appreciate it alot. My project is almost done. I have a few pieces left until I'll release it.

For now, a screen shot.