小编Ros*_*sie的帖子

我有以下mma代码:

$ButtonOptions = {Method -> "Queued"};
Button["Get List of IDs",
  ai = ToString@Input["Please Enter ID#s", {}];
  ai = StringReplace["ai", "\[Times]" -> ","];
  Print@ai,
  Background -> Yellow, Sequence @@ $ButtonOptions
  ]

当输入窗口弹出时,我需要用户在这些括号中输入多个ID号.他们喜欢使用Excel并粘贴到一列中,但是这会为每个ID编号生成一个新段落(Mathematica将其转换为空格,然后再转换为乘法,然后将所有ID相乘).我需要一些方法来保持输入在输入时不进行评估而不Hold实际显示在输入框中,这样StringReplace操作就可以工作并在Mathematica将ID相乘之前摆脱所有换行符.