字典到字符串

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：和stream，你可以这样：

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

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

aStream
  print: assoc key;
  ....

#print:流的方法将#printOn:发送给参数。 #printOn:是必须覆盖的#printOn:方法，以使您的对象在流上正确打印。 #asString使用#printOn:用于很多对象。

Answer 2

你也可以用keysAndValuesDo来做。 只记得一个字典没有被排序，并且没有很好的keysAndValuesDo：separatedBy：

|dict first str|
dict := OrderedIdentityDictionary 
    newFromPairs:#(#DOB Date #Name String #Salary Number).
first := true.
str := String streamContents: [  :s |
    dict keysAndValuesDo: [ :key :value |
        first ifFalse: [ s nextPutAll: ',' ]
            ifTrue: [ first := false].
        s   nextPutAll: key; space;
            nextPutAll: '';
            nextPutAll: value] ].
str

'DOB Date,Name String,Salary Number'