how about this:
menu "edit", hideable, dynamic
TableClipMenu("Transpose Paste"), TransposePaste()
end
function /s TableClipMenu(str)
string str
if(WinType("")==2)
return str
endif
return ""
end
function TransposePaste()
string clip=getScrapText(), sOut=""
variable rows=itemsinlist(clip, "\r")
variable columns=itemsinlist(stringfromlist(0,clip,"\r"), "\t")
variable i,j
for(i=0;i<columns;i+=1)
for(j=0;j<rows;j+=1)
sOut+=stringfromlist(i,stringfromlist(j, clip,"\r"), "\t")+"\t"
endfor
sOut=removeEnding(sOut,"\t")
sOut+="\r"
endfor
putscrapText sOut
doIgorMenu "Edit", "Paste"
putscrapText clip
end