从smalltalk中的字符串中提取子字符串（squeak）

Question

我试图从一个字符串中提取一个子字符串，该字符串将是2个分隔符之间的子字符串，即它应该定义如下：

substring: aString delimiter: aDelimiter

并且，举个例子，如果我得到这一行：

substring: 'dddd#sss#dddd' delimiter: '#'

该函数应返回'sss'。

这是我一直在尝试的，这是行不通的：

substring: aString delimiter: aDelimiter
|index temp1 temp2 sz arr str|
      arr := aString asArray.
      sz := arr size.
      index := arr lastIndexOf: aDelimiter.
      temp1 := arr first: (sz - index +1).
      index := temp1 lastIndexOf: aDelimiter.
      sz :=temp1 size.
      temp2 := temp1 first: (sz - index).
      str := temp2 asString.
      ^str.

我不知道它是否值得一提，但它应该是一种类方法。

Answer 1

你的基本问题是参数aDelimiter是一个字符串而不是一个字符。你想用$＃代替'＃'来调用它。

现在有一些更简单的方法。可能最简单的方法是使用subStrings：方法：

('dddd#sss#dddd' subStrings: '#') at: 2

这样做的缺点是它将整个字符串提取到由＃字符分隔的子字符串中，这可能超出了你的需要。

下一个最简单的选择是使用流：

'dddd#sss#dddd' readStream upTo: $#; upTo: $#

该代码仅提取您需要的部分。

Answer 2

大卫指出，你离代码工作并不远。但我想指出这是非常程序化的。 Smalltalk和OOP的许多神奇之处在于编写美观，易于理解的代码，将有意义的消息发送给适当对象的社区。这包括依靠图像中已存在的对象。我想不出有一次我不得不为这样一个简单的任务而去这个低级别。阅读许多令人敬畏的OOP引用之一会很棒。我最喜欢的是A Mentoring Course on Smallalk

我认为大卫的解决方案是正确的。我个人喜欢second而不是at: 2，但它感觉挑剔，可能是个人喜好('dddd#sss#dddd' subStrings: '#') second

Answer 3

虽然我喜欢上面的两个答案，但您可能还想考虑另一个更接近您的初始尝试，并且比其他人更有效率，因为它只创建您正在寻找的对象（例如，没有中间流）

substringOf: aString delimitedBy: aCharacter
    | i j |
    i := aString indexOf: aCharacter.
    j := aString indexOf: aCharacter startingAt: i + 1.
    ^aString copyFrom: i + 1 to: j - 1

（注意b.t.w.我也建议选择器略有不同。）

您想要考虑的另一个方面是，如果aCharacter不在aString中，该方法应该如何反应，它只有一次或者它有三次或更多次出现。有些东西：

substringOf: aString delimitedBy: aCharacter
    | i j |
    i := aString indexOf: aCharacter.
    i = 0 ifTrue: [^''].
    j := aString indexOf: aCharacter startingAt: i + 1.
    j = 0 ifTrue: [^''].
    ^aString copyFrom: i + 1 to: j - 1

但同样，如果你的情况下性能不是一个问题，那么请去readStream upTo upTo回答，因为它可能是最好的。