#SingleInstance force

x := clipboard
StringReplace,x,x,%A_Tab%,`,,1
Loop,Parse,x,`n,`r
	y .= ((If y = "") ? "" : ",") . A_LoopField
StringReplace,y,y,`,`,,`,,1
msgbox,CTRL+T to paste text`nCTRL+E to exit script
Return

^E::
ExitApp
Return

^T::
z := ""
Loop,Parse,y,`,
{
	If (Trim(A_LoopField) = "")
		Continue
	if (z = "")
		z .= Trim(A_LoopField)
	else
		y1 .= ((If y1 = "") ? "" : ",") . A_LoopField
}
y := y1
y1 := ""
If (z = "")
{
	ToolTip, Nothing more to paste...
	Sleep,5000
	ToolTip
	Return
}
Clipboard := z
Send,^v
return