Or see if this script helps:
(Oh, the code-tag in this forum removes all the formating)
'this name must be unique !!!
const module_name = "StS2010_JoinLines_butEmpty"
const module_ver = "0.001a" 'version
' name "Init" is required, its called automatically
' during initialization to create menu items
sub Init
addMenuItem "Join non-empty lines", "Join non-empty lines" , "Main"
addMenuItem "&Open this script file to edit", "Join non-empty lines" ,
"openThisScriptFile"
end sub
'=======================================================
sub Main 'main procedure
Set editor = newEditor()
editor.assignActiveEditor() 'work with active document
AllLines = editor.Text()
LineArray = split(AllLines, vbCrlf)
For i = 1 To UBound(LineArray)
vLINE = LineArray(i)
IF vLINE > "" Then
vADD = vADD & vLINE
ELSE
vADD = vADD & vbCrlf & vbCrlf
End If
Next
'Copy found line to new doc
Dim NewEd
Set NewEd = newEditor()
NewEd.NewFile()
NewEd.appendText(vADD)
vADD= ""
End Sub
'=======================================================
Sub openThisScriptFile
editor.openFile(moduleFileName(module_name))
End Sub
'<EOF>'=================================================
.
.
_
--
<http://forum.pspad.com/read.php?4,52660,54003>
PSPad freeware editor http://www.pspad.com
