您如何让用户将冗长的字符串输入变量？

Question

如何让用户输入一个长字符串到变量中？
我知道这是微不足道的，但我还没有做到。

这是我试过的方法：

DEF VAR filter AS CHAR NO-UNDO.

UPDATE filter.

该值总是被截断为只有几个字符。所以，我试过添加这样的格式。

UPDATE filter FORMAT "X(318)":U.

哪个报错

FILL-IN filter will not fit in FRAME

此程序仅供高级用户使用，因此它没有使它变得漂亮的框架。基本控制台就是所需要的。 318 个字符总比没有好，但仍然不理想，因为用户可能会复制粘贴更长的字符串。请注意，用户不会粘贴任何超过 32000 个字符的字符串。

这是用户输入的样子。

value1,value2,value3,value4,value5,value6,value7,value8,value9,value10,value11

Answer 1

我偶尔会按照这些思路使用一些东西：

/* editlong.p
 *
 */

define variable longText as character no-undo format "x(1000)"
  view-as fill-in size 40 by 1
  label "Long Text"
.

update longText "...".

格式“x(1000)”可以很容易地成为格式“x(32000)”。但无论如何，这将是对某人可以输入的内容的硬限制。

您也可以像这样进行多行输入：

define variable longText as character no-undo format "x(1000)"
  view-as editor inner-chars 30 inner-lines 5
  large no-word-wrap
  label "Long Text"
.

update longText "...".

您如何让用户将冗长的字符串输入变量？

How do you let user input a lengthy string into a variable?

progress-4gl

openedge