Smalltalk中的字符串到整数

Question

我想将“Prompter提示：aStringPrompt”中的输入值转换为整数值，我该怎么做？

Answer 1

两个步骤：(a) 验证输入，(b) 转换。

您可以像这样进行验证：myString isAllDigits。

转换很简单：'1' asInteger。至少在 Squeak 中，这会返回整数 1。'g1' asInteger 返回 1，'g1' asInteger 也是如此。 g asInteger 返回 nil。

总结来说：

"Given some input string s containing a decimal representation of a number, either return s in integer form, or raise an exception."
s := self getUserInput.
(s isAllDigits) ifFalse: [ Exception signal: '"', s, '" is not a (decimal) number' ].

^ s asInteger.

Answer 2

刚刚在 Dolphin 6 中尝试过：

(Prompter prompt: 'Enter a number') asInteger

运行此命令（将光标放在工作区中的上面并按 Ctrl-D），在出现的提示中输入 123，您将看到 123 显示为输出。如果删除 #asInteger 调用，它将显示“123”，表明返回了一个字符串。

至于您的“不理解#number”，这意味着您在代码中的某个位置运行消息#number，因为该消息被发送到不知道如何处理它的对象。

为了好玩，我拿了你的代码并稍微重新格式化了它：

| dir |

[ dir isNil or: [ dir isEmpty ] ] whileTrue:
    [ dir:= Prompter prompt: 'Enter your number' caption: 'Input the Number' ].

MessageBox notify: 'your inputed number is ', (dir) caption: 'Inputed'.

发现它运行得很好。然后我注意到它没有将返回的字符串转换为数字，因此我将其更改为：

| dir |

[ ( dir isNil or: [ dir isEmpty ] ) or: [ (dir select: [ :c | c isDigit not ]) size > 0 ] ]  whileTrue:
    [ dir:= Prompter prompt: 'Enter your number' caption: 'Input the Number' ].

MessageBox notify: 'your inputed number is ', (dir) caption: 'Inputed'.

这也运行良好，还有一个额外的好处，即它不接受非数字字符。

分享并享受。