Question

我正在尝试使用代码从列表中读取要放入字段元素的值，这些元素也放在另一个列表中：

Red [needs: view]

view [
    text "N1:"
    ff: field ""
    text "N2:"
    gg: field ""

    do [fldlist: [ff gg] 
        vv: 5  ww: 10
        varlist: [vv ww]   ]

    button "Click" [
        repeat i (length? varlist) 
            [to-set-path to-word fldlist/i/text:  varlist/:i]  ] ]

但是，它不起作用。错误是：

*** Script Error: path fldlist/i/text: is not valid for none! type
*** Where: set-path
*** Stack: view do-events do-actor do-safe to-set-path to-word

我还尝试了:i (i)和(:i)而不是i，但它无效。问题出在哪里？如何解决？谢谢你的帮助。

Answer 1

使用

button "Click" [
    repeat i (length? varlist) [
        set first find words-of get fldlist/:i  'text form get varlist/:i
    ]  
]

我认为，你应该开始阅读一些关于Red和Rebol概念的文档和/或只是在控制台中调试代码。

<强>更新

我不得不承认，在这方面，Red并不像我期望的那样表现Rebol经验。但是我得到了另一个没有临时措辞的棘手解决方案。

npm

Answer 2

此答案使用地图来合并您要应用的值，循环显示值名称，并将它们与具有相应extra值的字段名称进行比较，并将其设置为该值。

values: #(foo: 5 bar: 10)
fields: #()

ui: layout [
    text "N1:"
    field 100 extra 'foo
    text "N2:"
    field 100 extra 'bar

    button "Click" [
        foreach word intersect words-of values words-of fields [
            fields/:word/text: form values/:word
        ]
    ]
]

foreach kid ui/pane [
    if kid/extra [
        put fields kid/extra kid
    ]
]

view ui

我建议this answer中的第二个例子是更好的方法。

以红色语言加载列表中的值

2 个答案: