sc:=rtrim(init_mem)+'IMPORT'
cFileName := cGetFile( "XML File (*.Xml)|*.Xml|","Wybierz zbiór XML",sc)
If !file(cFileName)
break
Endif
mTekst:=""
@ 100,20 SAY oTEKST var mTekst OF oDlg PIXEL SIZE 150,12
dd:=day(date())
mm:=month(date())
rr:=year(date())
// hFile := FOpen( cFileName )
oXmlDoc := TXmlDocument():new() // HBXML_TYPE_CDATA HBXML_STYLE_NOESCAPE
oXmlDoc:read( Memoread( cFileName ) )
// oXmlDoc:read( hFile )
↧