SELECT 0
CREATE CURSOR vr1 (pole1 c(50))

путькфайлу=GETFILE("xml")
IF EMPTY(путькфайлу)
    =MESSAGEBOX('Вы отказались от выбора файла',64,'А что так?')
    RETURN
ENDIF

    SELECT vr1
    APPEND FROM (mkmпутькфайлу) DELIMITED WITH CHARACTER ""

sele SUBSTR(pole1,6,31) as pole2 from vr1 into curs vr2 readwrite where "<КИЗ>"$upper(pole1)

sele STREXTRACT(pole1,"<КИЗ>","</КИЗ>") as pole2 from vr1 into curs vr2 readwrite

XMLTOCURSOR(путькфайлу,"vr1",512)

SELECT 0
CREATE CURSOR vr1 (pole1 c(60))

путькфайлу=GETFILE("xml") 
        SELECT vr1
    APPEND FROM (путькфайлу) DELIMITED WITH CHARACTER " "
*пробывал тут select c STREXTRACT() не выходит. Получаю пустую таблицу., а REPLACE ALL работает. Мистика...
REPLACE ALL pole1 WITH STREXTRACT(vr1.pole1,"<КИЗ>","</КИЗ>")
*DELETE ALL FOR ALLTRIM(vr1.pole1)=" " && не сработало.
DELETE ALL FOR SUBSTR(pole1,1,31)=" "
SET DELETED On
browse
*хотелось бы конечно в один заход Select ом выдернуть то что нужно, но получаю пустую таблицу.

DELETE ALL FOR " "=ALLTRIM(vr1.pole1)

DELETE ALL FOR ALLTRIM(vr1.pole1)==""

DELETE ALL FOR EMPTY(vr1.pole1)

SELECT CAST(STREXTRACT(pole1,"<КИЗ>","</КИЗ>") AS C(60)) AS kiz FROM vr1 INTO CURSOR vr2

IF FILE(lcXmlFile)
    xmlDoc = CreateObject("Msxml.DOMDocument")  
    xmlDoc.async = .F.  
    
    IF xmlDoc.Load(lcXmlFile)
        
        node_List = xmlDoc.selectNodes('*//field[@name="NAME"]/field[@name="RU"]')         
          FOR intIndex = 1 TO node_List.Length 
               ?UPPER(node_list.item(intIndex-1).text)
          ENDFOR  
      ENDIF 
ENDIF