Как преобразовать текст внутри узла в дочерний узел с помощью обновления xquery?

Question

У меня есть XML-документ, как

<root> 
    <first> 
    First Level 
    <second> 
     second level 
     <third> 
     Third Level 
     </third> 
    </second> 
    <second2> 
     another second level 
    </second2> 
    </first> 
</root> 

Как преобразовать этот документ со всеми узлами, это означает, что если узел содержит text и child node преобразовать текст в дочерний узел (скажем childtext) с помощью XQuery-обновления

<root> 
    <first> 
    <childtext>First Level</childtext> 
    <second> 
     <childtext>second level</childtext> 
     <third> 
     Third Level 
     </third> 
    </second> 
    <second2> 
     another second level 
    </second2> 
    </first> 
</root> 

А вот то, что я пробовал:

let $a := 
<root> 
    <first> 
    First Level 
    <second> 
     second level 
     <third> 
     Third Level 
     </third> 
    </second> 
    <second2> 
     another second level 
    </second2> 
    </first> 
</root> 
return 
copy $i := $a 
modify (
    for $x in $i/descendant-or-self::* 
    return (
    if($x/text() and exists($x/*)) then (
     insert node <childtext> 
     {$x/text()} 
     </childtext> as first into $x 
     (: here should be some code to delete the text only:) 
    ) else() 
) 
) 
return $i 

Я не смог удалить текст с узлом сестры.

Answer 1

Как вы хотите заменить элемент, вы должны просто использовать конструкцию replace вместо того, чтобы вставлять новый элемент и удалять старый. Кажется, гораздо проще мне:

copy $i := $a 
modify (
    for $x in $i/descendant-or-self::*[exists(*)]/text() 
    return replace node $x with <childtext>{$x}</childtext> 
) 
return $i 

Answer 2

Модифицированный раствор из @dirkk здесь:

copy $i := $a 
modify (
    for $x in $i/descendant-or-self::* 
    return (
    if($x/text() and exists($x/*)) then (
     if(count($x/text())=1) then (
     replace node $x/text() with <child> {$x/text()}</child> 
    ) else (
     for $j at $pos in 1 to count($x/text()) 
     return 
     replace node $x/text()[$pos] with <child>{$x/text()[$pos]}</child> 

    ) 


    ) else() 
) 
) 
return $i 

Еще раз большое спасибо.