Проблема собственно в чем: загружаю xml файл(кодировка windows-1251) в бинарный поток, паршу его TextReadrer'ом, но текстовая информация отображаеться в виде строки типа "#100#101#125#...". Подскажите,пожайлуста, что сделать что бы получить текст?

Игорь Сойниковпримерно так
F Q:$L(str,"#")<2 S str=$p(str,"#",1)_$c($p(str,"#",2)_$p(str,"#",3,$l(str,"#"))
где str - ваша строка
Не прокатывает в строке остаеться то же самое :(

$p(str,"#",1) возвращает всю строку а не часть ее до "#"

все в том же виде и читаеться :(

;-----------------------------------------------------------------------
;-Загрузка данных из файла в Поток--------------------------------------
;-----------------------------------------------------------------------
n gs s gs=##class(%GlobalBinaryStream).%New() ; Создаем объект типа потока
i '$$open^%pbwin85(bOS,PthFile,"R") s Err="123" q ; Открываем файл для чтения
; Считываем из фала данные и помещаем их в поток
f d q:('Err)!(Str="")
. s Err=$$read^%pbwin85(bOS,PthFile,.Str,1024)
. q:Str=""
. d gs.Write(Str)
d close^%pbwin85(bOS,PthFile) ; Закрываем файл
k Err,Str,bOS,PthFile
;-----------------------------------------------------------------------
;-Парсинг потока--------------------------------------------------------
;-----------------------------------------------------------------------
Set sc = ##class(%XML.TextReader).ParseStream(gs,.reader) ; Создаем объект типа парсер и парсим
If ($$$ISOK(sc))
{
n Nm,Nm0,Vl,n,st,st0
s n=0,b=0 ;,st("0")=""
While (reader.Read())
{
If (reader.Name'=""){
s Nm=reader.Name
If ($$SpisVlogeniy(Nm)=1) {
if (b=1) {s st(n,Nm0)=$G(st0),b=0} else { s st0="",Nm0=reader.Name,b=1}
}
}
s Vl=reader.Value
If (Vl'="")&(Nm'=""){
If (Nm="UIN") {s n=n+1}
If (b=0) {s st(n,Nm)="asd",st(n,Nm)=Vl} else {s st0=$G(st0)_Vl_"\"}
} ;If (Vl'="")&(Nm'="")
} ;While (reader.Read())
} ;If ($$$ISOK(sc))
k gs,reader,Vl,Nm,n,Nm0,Vl0