Question

我发现没有内置的trim (strip)方法可以从内置String类的字符串中删除开头和结尾的空格。我想用我的功能扩展它。可能吗？使用示例here，我尝试了以下代码：

String extend [
    trimleading: str [ |ch ret flag|
        ret := str.                 "make a copy of sent string"
        flag := true.
        [flag] whileTrue: [         "while first char is space"
            ch := ret first: 1.     "again test first char"
            ch = ' '                "check if space remaining" 
            ifTrue: [ ret := (ret copyFrom: 2 to: ret size)]    "copy from 2nd char"
            ifFalse: [flag := false] 
            ].
        ^ret                        "return modified string"
        ]
    trim: str [ |ret|
        ret := str. 
        ret := (self trimleading: ret).           "trim leading spaces"
        ret := (self trimleading: (ret reverse)). "reverse string and repeat trim leading"
        ^(ret reverse)                            "return re-reversed string"
        ]
].

oristr := '        this is a test  '
('>>',oristr,'<<') displayNl.
('>>',(oristr trim),'<<') displayNl.

以上代码不起作用，并出现以下错误：

$ gst string_extend_trim.st 

>>        this is a test  <<
Object: '        this is a test  ' error: did not understand #trim
MessageNotUnderstood(Exception)>>signal (ExcHandling.st:254)
String(Object)>>doesNotUnderstand: #trim (SysExcept.st:1448)
UndefinedObject>>executeStatements (string_extend_trim.st:23)

问题出在哪里，如何解决？谢谢。

编辑：以下代码有效，但不会更改原始字符串：

String extend [
    trimleading [ |ch ret flag|
        ret := self.                    "make a copy of sent string"
        flag := true.
        [flag] whileTrue: [             "while first char is space"
            ch := ret first: 1.         "again test first char"
            ch = ' '                    "check if space remaining" 
            ifTrue: [ ret := (ret copyFrom: 2 to: ret size)]    "copy from 2nd char"
            ifFalse: [flag := false] 
            ].
        ^ret                                "return modified string"
        ]
    trim [ |ret|
        ret := self.    
        ret := (self trimleading).  "trim leading spaces"
        ret := ((ret reverse) trimleading ). "reverse string and repeat trim leading"
        ^(ret reverse)                      "return re-reverse string"
        ]
].

oristr := '        this is a test  '
('>>',oristr,'<<') displayNl.
('>>',(oristr trim),'<<') displayNl.
('>>',oristr,'<<') displayNl.
oristr := (oristr trim).
('>>',oristr,'<<') displayNl.

oristr trim如何更改oristr？我不想写oristr := oristr trim。

Answer 1

您已经解决的第一个问题：最初，您定义了一个带有一个参数的方法trim:，但是发送了一个没有参数的trim。

第二个问题是在适当位置修改String。您可以使用self at: index put: aCharacter和其他一些方法来更改字符，以复制和覆盖范围，但是您将无法更改String的大小（长度）。在我所知道的Smalltalks中，对象创建后无法更改其大小。因此，我建议您坚持使用trim中的字符较少的新String。

在系统中的任何地方都有一种方法可以将一个对象交换为另一个对象。它称为become:。但是我认为您不应该在这里使用它。取决于Smalltalk的实现，您可能最终会遇到不良的副作用，例如在方法中替换String文字（因此，下一个方法调用实际上将使用其他经过修剪的字符串代替文字来运行）。

Answer 2

您的代码和所链接的示例之间的区别在于，在示例中，它们正在扩展自定义类，但是您正在扩展核心类。区别在于您应该加载代码并运行它的方式。您应该在GNU-Smalltalk中使用Packages进行构建。 @lurker how to use extened classes in gst在SO方面有一个很好的答案，请阅读并赞一下，如果您愿意，我不想在这里重复这些信息。

使代码适应String extend：

String extend [
    trimleading: str [ |ch ret flag|
        ret := str.                     "make a copy of sent string"
        flag := true.
        [flag] whileTrue: [         "while first char is space"
            ch := ret first: 1.         "again test first char"
            ch = ' '
            ifTrue: [ ret := (ret copyFrom: 2 to: ret size) ]    "copy from 2nd char"
            ifFalse:  [flag := false ] 
        ].
        ^ ret                                "value is modified string"
    ]
    trim [ | ret |
        ret := self trimleading: self.           "trim leading spaces"
        ret := self trimleading: (ret copy reverse). "reverse string and repeat trim leading"
        ^ (ret reverse)                      "return re-reverse string"
    ]
].

oristr := '        this is a test  '.
('>>',oristr,'<<') displayNl.
('>>',(oristr trim),'<<') displayNl.
('>>',oristr,'<<') displayNl.
oristr := (oristr trim).
('>>',oristr,'<<') displayNl.

您正在将消息#trim发送到origstr变量，因此必须定义时不带任何参数。但是，这不适用于#trimleading:，因此，我已将您之前的代码放入其中。

注意：您应该真正了解self关键字，并了解它的作用-您使用了错误的关键字。您分配了ret := self值，但您没有使用它，只是在下一次分配中将其覆盖。

我可以使用我的方法扩展内置String类吗

2 个答案: