用户输入字符串拆分

Question

我是 Progress opensge 的新手！我想知道如何使用使用过程拆分用户输入的字符串！ 字符串的长度最大为 2000，每行最多包含 35 个字符。还必须考虑单词之间的空格。如果单行最大 > 35，则必须以另一行开头，但不是这样： ....hel 洛…………

它必须在 35.Line 切断并弹出下一行之后，但空格让我很困惑，我找不到任何算法 例如：

myfield2 =  "Many districts and landmarks in New York City are well known, and the city received a record 62.8 million tourists in 2017".

if index(myfield2,spacee) = 0 then do:

          do while ii < length(myfield2) :
           line = substring(myfield2,ii,35).
           ii = ii + 35.            
         end.
       end.
     display line.    
   else if index(myfield2,spacee) <> 0 and length(myfield2) < 35  then do: 

.......

这样吗？

谢谢！

Answer 1

您可以使用 R-INDEX 找到第 35 个字符的空格字符

R-INDEX (myfield2, " ", ii) .

Answer 2

另一种方法：

define variable t as character no-undo.
define variable x as character no-undo format "x(36)".

define variable i as integer   no-undo.
define variable n as integer   no-undo.

t = "Many districts and landmarks in New York City are well known, and the city received a record 62.8 million tourists in 2017".
n = num-entries( t, " " ).

do i = 1 to n:

  if length( x + entry( i, t, " " )) < 35 then
    do:
      x = x + entry( i, t, " " ) + " ".
      next.
    end.

  display x with frame a down.
  down 1 with frame a.

  x = entry( i, t, " " ) + " ".

end.

display x with frame a down.

或者，如果您更喜欢嵌入换行符的变量：

define variable t as character no-undo.
define variable x as character no-undo format "x(36)".

define variable i as integer   no-undo.
define variable j as integer   no-undo.
define variable n as integer   no-undo.

t = "Many districts and landmarks in New York City are well known, and the city received a record 62.8 million tourists in 2017".
n = num-entries( t, " " ).

do i = 1 to n:

  if j < 35 and
    (j + length( entry( i, t, " " )) + 1) < 35 then
    do:
      x = x + entry( i, t, " " ) + " ".
      j = j + length( entry( i, t, " " )) + 1.
      next.
    end.

  j = length( entry( i, t, " " )) + 1.
  x = x + "~n" + entry( i, t, " " ) + " ".

end.

display x view-as editor size 40 by 10.

Answer 3

类似这样的：

DEFINE VARIABLE cInput  AS CHARACTER   NO-UNDO INITIAL 
"Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et ~
dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ~
clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, ~
consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, ~
sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea ~
takimata sanctus est Lorem ipsum dolor sit amet.".

DEFINE VARIABLE cOutput AS CHARACTER   NO-UNDO.
DEFINE VARIABLE iPos    AS INTEGER     NO-UNDO.
DEFINE VARIABLE iPrev   AS INTEGER     NO-UNDO INITIAL 1 . 
DEFINE VARIABLE iLength AS INTEGER     NO-UNDO.

ASSIGN iLength = LENGTH (cInput, "CHARACTER").

repeatLoop:
REPEAT:
    iPos = R-INDEX (cInput, " ", iPrev + 35) . 

    IF iPos = 0 THEN 
        ASSIGN iPos = iLength .  

    ASSIGN cOutput = cOutput + TRIM (SUBSTRING (cInput, iPrev, iPos - iPrev, "CHARACTER")) + "|~n".

    IF iPos + 35 >= iLength THEN DO: 
        ASSIGN cOutput = cOutput + TRIM (SUBSTRING (cInput, iPos, -1, "CHARACTER")) .

        LEAVE repeatLoop. 
    END.

    ASSIGN iPrev = iPos . 
END.

MESSAGE cOutput
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

Answer 4

试试这样的。应该为你工作。它将文本分解为临时表。只需调整过程调用中的第二个参数，您就可以将文本拆分为所需的任何文本长度。

def temp-table tt-editor no-undo
    field linha      as integer
    field conteudo   as character format 'x(80)':U
    index editor-id is primary unique 
          linha.

procedure pi-print-editor:
    def input param c-editor    as char    no-undo.
    def input param i-len       as integer no-undo.

    def var i-linha  as integer no-undo.
    def var i-aux    as integer no-undo.
    def var c-aux    as char    no-undo.
    def var c-ret    as char    no-undo.

    IF c-editor = ? or i-len = ? THEN
        RETURN.

    for each tt-editor:
        delete tt-editor.
    end.

    assign c-ret = chr(255) + chr(255).

    do  while c-editor <> "":
        if  c-editor <> "" then do:
            assign i-aux = index(c-editor, chr(10)).

            IF i-aux = 0 THEN DO:
                assign i-aux = index(c-editor, chr(13)).
            END.
            if  i-aux > i-len or (i-aux = 0 and length(c-editor) > i-len) then
                assign i-aux = r-index(c-editor, " ", i-len + 1).
            if  i-aux = 0 then
                assign c-aux = substr(c-editor, 1, i-len)
                       c-editor = substr(c-editor, i-len + 1).
            else
                assign c-aux = substr(c-editor, 1, i-aux - 1)
                       c-editor = substr(c-editor, i-aux + 1).
            if  i-len = 0 then
                assign entry(1, c-ret, chr(255)) = c-aux.
            else do:
                assign i-linha = i-linha + 1.
                create tt-editor.
                assign tt-editor.linha    = i-linha
                       tt-editor.conteudo = c-aux.
            end.
        end.
        if  i-len = 0 then
            return c-ret.
    end.
    return c-ret.
end procedure.

RUN pi-print-editor ('modtemLoremipsumdolorsitametconsetetursadipscingelitrseddiamnonumyeirporinviduntutlaboreet.Commentsusedtoasforclarificationoro. i mean the text without spaces.',35).

FOR EACH tt-editor:
    DISP tt-editor.conteudo FORMAT 'x(40)' LENGTH(conteudo) WITH WIDTH 333.
END.

希望对你有帮助。