方法来自:Mathematica Cookbook
Mma中的注释标记是"(*"和"*)",利用字符串处理函数StringReplace就可以达到这个目的:
In[2]:= code = GoodMorning(*hahahahha*)GoodNight(*BlahBlah*);
StringReplace[ToString@code,"(*" ~~ Shortest[___] ~~ "*)" -> ""] // ToExpression
Out[2]:= GoodMorning GoodNight
其中Shortest用来指定模式匹配的方式为最短,这样避免了冲突.