# Tag Info

17

Declaration: This method for Windows is based on the .NET code from Todd Gayley's this wonderful answer. My .NET knowledge is absolutely ZERO, all credit goes to Todd. Code: The main idea is to extract the "Input"-style code string, convert it to the UTF-16 little endian form, which is the standard byte order in Windows, feed the bytes to system clipboard ...

6

Here is a function that copies a Unicode string to the clipboard using JLink: Needs["JLink"]; InstallJava[]; LoadJavaClass["java.awt.Toolkit", AllowShortContext -> False]; uniclip[s_String] := JavaBlock[ javaawtToolkitgetDefaultToolkit[]@getSystemClipboard[]@setContents[#, #]& @ JavaNew["java.awt.datatransfer.StringSelection", s] ...

5

Here's how to add a permanent menu item and keyboard shortcut for Silvia's solution. (This can be easily adapted to Jens' solution for Mac OS.) 1. Add Package Copy Silvia's first code block that starts with Needs["NETLink`"] to a file and save it as UniCodeCopy.m in one of the directories included in \$Path. 2. Initialize the Front End Save the ...

4

I think this is the problem you are talking about (screen shot from Word): In Mathematica 9, the line thickness was less so it looked like this: One thing you could try is to set the line thickness explicitly in Mathematica 10: Plot[Sin[x], {x, 0, 10}, PlotStyle -> AbsoluteThickness[0]] Then, it will look like this in Word: Which is closer to ...

1

try this: CopyFile[First@FileNames[ "E:\\work\\META分析\\source\\GSE28160_RAW1\\" ~~ cases[[1]] ~~"*.CEL"], "E:\\work\\1.CEL"] CopyFile on is own does not do filesystem globbing and so the way you have it its looking for a file that literally has a "*" in its name.

1

Something like... Export["C:\\Temp\\Out.txt",StringJoin[Riffle[Map[ToString[Out[#]]&,{1,2,3}],";"]]] I'd suggest you look up each of Export, StringJoin, Riffle, Map, ToString etc to work out what does what.

Only top voted, non community-wiki answers of a minimum length are eligible