代码之家 › 专栏 › 技术社区 › user310291

有没有办法创建一个类似ask的函数,但它在红色控制台中接受多行?

red

user310291 · 技术社区 · 7 年前

使用时

问“你的答案:”

不能粘贴多行。

可以控制控制台暂时接受多条线路吗? 或者我必须创建一个我想要避免的GUI,如果可能的话,我不想要任何GUI。

1 回复 | 直到 7 年前

sqlab 7 年前

如果您不想编写自己的红色/系统例程,则可以使用一个粗略的解决方案

ask-2line: function [quest] [
    collect/into [ 
        keep ask  quest
        keep newline
        keep ask "[  "
    ] clear ""
]

>> ask-2line "what: "
what: 1st line
[  second line
== "1st line^/second line"

当然,您必须定义如何终止输入。例如

ask-nlines: function [quest] [
    collect/into [ 
        while [
            not empty? keep  ask  quest
        ] [
            keep newline
            quest: "{  "
        ]
    ] clear ""
]

推荐文章

user310291 · 有没有办法创建一个类似ask的函数,但它在红色控制台中接受多行?

7 年前

user310291 · 有红色的解析行“”的等价物吗?

7 年前

user310291 · 将Rebol csv工具转换为红色

7 年前

user310291 · 将%%替换为<!-->

7 年前

rnso · 使用TAB在红色语言的字段之间移动

7 年前

rnso · 为什么这个简单的红色计算的答案是错误的

7 年前

rnso · 以红色语言将多个列表中的值转换为一个列表

7 年前

rnso · 从红色语言的字符串中删除特殊字符

7 年前

rnso · 以红色语言打印出所有GUI元素的文本

7 年前

rnso · 以红色语言将列表中的字符串获取到VID中

7 年前