Серый форум — VBS: responseText возвращает кривой текст

Re: VBS: responseText возвращает кривой текст

null@example.com (mikser) — Wed, 13 Apr 2011 08:05:10 +0000

Если так то хорошо, десктоптных вполне достаточно.

Re: VBS: responseText возвращает кривой текст

null@example.com (Xameleon) — Wed, 13 Apr 2011 05:21:51 +0000

2 mikser: "Во всех" это слишком неопределённое понятие. Начиная с Windows 95 присутствует (на сколько мне удалось выяснить). Или вас интересует Windows 3.X / Windows CE / Windows Mobile ?

Re: VBS: responseText возвращает кривой текст

null@example.com (mikser) — Tue, 12 Apr 2011 20:44:11 +0000

А ADOdb разве во всех виндах есть?

Re: VBS: responseText возвращает кривой текст

null@example.com (Xameleon) — Tue, 12 Apr 2011 10:28:09 +0000

OFF: Ура повторному открытию Америки и изобретению велосипеда !

Господа, пользуйтесь коллекцией. The gray Cardinal и другие участники форума не зря её делали.
http://forum.script-coding.com/viewtopic.php?id=997

Рекомендую начинать поиски решений именно с неё. Многое уже давно было решено и открыто.

Re: VBS: responseText возвращает кривой текст

null@example.com (mikser) — Mon, 11 Apr 2011 12:20:28 +0000

А казалось бы а причем тут DB.

Re: VBS: responseText возвращает кривой текст

null@example.com (evgennet) — Mon, 11 Apr 2011 07:36:44 +0000

Всем спасибо!
Помогло следующие решение следующего вида:

Set HTTP = CreateObject("Msxml2.ServerXMLHTTP.5.0")
HTTP.setProxy 2, "10.10.10.3:8080"
xmlString = ""
HTTP.Open "POST", "http://XXXXXXXXXXXX:8080/XXXXXXX/"
HTTP.Send(xmlString)
OTVET = HTTP.responseBody
set VStream = WScript.CreateObject("ADODB.Stream")
VStream.Type = 1
VStream.Open
VStream.Write OTVET
VStream.Position = 0
VStream.Type = 2
VStream.Charset = "windows-1251"
OTVET = VStream.ReadText
MsgBox (OTVET)

Re: VBS: responseText возвращает кривой текст

null@example.com (mikser) — Fri, 08 Apr 2011 15:55:48 +0000

evgennet
Определите тип кодировки.
Вот тут в конце есть образцы крякозябр.
Потом можете написать свои функции перекодировки. Ну или возьмите мою:


var ANSI = ("№|•|" +
"А|Б|В|Г|Д|Е|Ё|Ж|З|И|Й|" + 
"К|Л|М|Н|О|П|Р|С|Т|У|Ф|" + 
"Х|Ц|Ч|Ш|Щ|Ъ|Ы|Ь|Э|Ю|Я|" + 
"а|б|в|г|д|е|ё|ж|з|и|й|" + 
"к|л|м|н|о|п|р|с|т|у|ф|" + 
"х|ц|ч|ш|щ|ъ|ы|ь|э|ю|я").split("|");


var W1251 = ("в„–|вЂ”|" + 
"Рђ|Р‘|Р’|Р“|Р”|Р•|РЃ|Р–|Р—|Р�|Р™|" + 
"Рљ|Р›|Рњ|Рќ|Рћ|Рџ|Р |РЎ|Рў|РЈ|Р¤|" + 
"РҐ|Р¦|Р§|РЁ|Р©|РЄ|Р«|Р¬|Р|Р®|РЇ|" + 
"Р°|Р±|РІ|Рі|Рґ|Рµ|С‘|Р¶|Р·|Рё|Р№|" + 
"Рє|Р»|Рј|РЅ|Рѕ|Рї|СЂ|СЃ|С‚|Сѓ|С„|" + 
"С…|С†|С‡|С?|С‰|СЉ|С‹|СЊ|СЌ|СЋ|СЏ").split('|');
var hW1251 ={}; //хешь декодировки
for (var i in W1251)
hW1251[W1251[i]] = ANSI[i];

var reW1251 = new RegExp("(" + W1251.join('|') + ")", 'g')


function win1251_decode(s)
{
        return s.replace(reW1251, function (p)
        {
                return hW1251[p] ? hW1251[p] : p
        })
} //func

Функция win1251_decode - преобразует utf8 строку в читаемую.

PS Движок форума неправильно преобразовал некоторые символы строки скрипта в HTML сущности...

Еще можно попробовать заставить браузер это делать.
Код для HTA.

//псевдо код :) Не уверен что все правильно тут
function decode()
{
var subBrowser= document.createElement("IFRAME")
subBrowser.window.document.write('')
subBrowser.window.document.write(Ваш_текст_в_неправильной_кодировке)
subBrowser.window.document.close()

return subBrowser.window.document.body.innerText
}

Re: VBS: responseText возвращает кривой текст

null@example.com (alexii) — Fri, 08 Apr 2011 14:47:52 +0000

Конвертировать посредством «ADODB.Stream» из UTF-8, если я правильно понял о чём речь.

Re: VBS: responseText возвращает кривой текст

null@example.com (Евген) — Fri, 08 Apr 2011 13:53:08 +0000

А есть решение на клиентской стороне ?

Re: VBS: responseText возвращает кривой текст

null@example.com (Rumata) — Fri, 08 Apr 2011 12:37:43 +0000

Точнее будет так:

Content-Type: text/html; charset=<...>

Content-Type: application/xml; charset=<...>

Укажите правильное название кодировки вместо <...>

Re: VBS: responseText возвращает кривой текст

null@example.com (Евген) — Fri, 08 Apr 2011 11:51:41 +0000

Если сервер ASP, то сделай следующее...

<% Response.Charset= "win-1251" %>

ну или какую надо кодировку...

VBS: responseText возвращает кривой текст

null@example.com (evgennet) — Fri, 08 Apr 2011 11:11:58 +0000

Доброе время суток!
Два дня бьюсь, не могу решить проблему!
Post запрос возвращает XML строку в которой русские символы нечитаемые!
Помогите кто чем может!!!

Пример скрипта:

Set HTTP = CreateObject("Msxml2.ServerXMLHTTP.5.0")
HTTP.setProxy 2, "10.10.10.3:8080"
xmlString = ""
HTTP.Open "POST", "http://XXXXXXXXXXXX:8080/XXXXXXX/"
HTTP.Send(xmlString)
MsgBox (HTTP.responseText)