smalltalk - 字典到字符串

Question

我有字典"a Dictionary(#DOB->Date #Name->String #Salary->Number )" .我需要创建一个字符串，它应该是 str:= "DOB Date,Name String,Salary Number" .我尝试使用 keysAndValuesDo : 但无法正确连接它们。

Answer 1

您可以像这样以一种很好的方式做到这一点:

(dict associations collect: [ :assoc |
  assoc key asString, ' ', assoc value asString ])
    joinUsing: $,

如果你想使用 #do: 和流，你可以这样:

dict associations
  do: [ :assoc |
    aStream
      nextPutAll: assoc key asString;
      space;
      nextPutAll: assoc value asString ]
  separatedBy: [ aStream nextPut: $, ]

请注意，如果您想将打印委托(delegate)给对象本身而不是将其转换为字符串并手动放入流中，您可以使用:

aStream
  print: assoc key;
  ....

#print:流的方法发送 #printOn:到参数。 #printOn:是您必须重写以使您的对象在流上正确打印的 defat 方法。 #asString使用 #printOn:对于很多对象。