'------------------------------------------------------------
'Removes Carriage Returns, spaces and leading zero's to compress file.
'------------------------------------------------------------
BindCommand "Shink", "Shrink File", "Shrink File"

Sub Shrink
	Set rgn = Selection
	startLine = rgn.FromLine
	endLine = rgn.ToLine
	lines = endLine - startLine

	rgn.FromLine = startLine
	rgn.ToLine = startLine + 1
	rgn.FromRow = 1
	rgn.ToRow = 1
	
	For i = 1 to lines
		If Not rgn.FindText("#") Is Nothing Or Not rgn.FindText("//") Is Nothing Then
			startLine = startLine + 1
			rgn.FromLine = startLine
			rgn.ToLine = startLine + 1
			rgn.FromRow = 1
			rgn.ToRow = 1
		Else
			rgn.FromRow = -1
			If Not rgn Is Nothing Then rgn.Text = " "
			rgn.ToLine = startLine + 1
			rgn.ToRow = 1

		End If
	Next

	Set rgn = Selection

	rgn.ReplaceText "([^0-z])0\." , "\1.", vpMatchRegExp 'removes all leading zero's in floating numbers

	rgn.ReplaceText "\w+([{-}])" , "\1", vpMatchRegExp 'removes all spaces before {|}
	rgn.ReplaceText "([{-}])\w+" , "\1", vpMatchRegExp 'removes all spaces after {|}

	rgn.ReplaceText "\w+\[" , "[", vpMatchRegExp 'removes all spaces before [
	rgn.ReplaceText "\[\w+" , "[", vpMatchRegExp 'removes all spaces after [

	rgn.ReplaceText "\w+\]" , "]", vpMatchRegExp 'removes all spaces before ]
	rgn.ReplaceText "\]\w+" , "]", vpMatcfshRegExp 'removes all spaces after ]

	rgn.ReplaceText "-\w+" , "-", vpMatchRegExp 'removes all spaces after -

	rgn.ReplaceText "\w+/" , "/", vpMatchRegExp 'removes all spaces before /
	rgn.ReplaceText "/\w+" , "/", vpMatchRegExp 'removes all spaces after /

	rgn.ReplaceText "\w+([(-,])" , "\1", vpMatchRegExp 'removes all spaces before ()*+,
	rgn.ReplaceText "([(-,])\w+" , "\1", vpMatchRegExp 'removes all spaces after ()*+,

	rgn.ReplaceText "\w+([:->])" , "\1", vpMatchRegExp 'removes all spaces before :;<=>
	rgn.ReplaceText "([:->])\w+" , "\1", vpMatchRegExp 'removes all spaces after :;<=>

	rgn.ReplaceText "([%-&])\w+" , "\1", vpMatchRegExp 'removes all spaces after %&

	rgn.ReplaceText "\w\w+", " ", vpMatchRegExp 'this removes all white space and replaces with one space

End Sub