VBS: Перекодировка текста из UTF-8

Не знаю как правильно переписать на VB, а на JS будет примерно так:

function decode(utftext) 
{
   var str = [], toS = String.fromCharCode;

   for(var i = 0, il = utftext.length, c = 0; i<il;) 
      if ((c = utftext.charCodeAt(i)) < 128) 
      {
         str.push(toS(c));
         ++i;
      }
      else if((c > 191) && (c < 224)) 
      {
         str.push(toS(((c & 31) << 6) | (utftext.charCodeAt(i+1) & 63)));
         i += 2;
      }
      else 
      {
         str.push(toS(((c & 15) << 12) | ((utftext.charCodeAt(i+1) & 63) << 6) | (utftext.charCodeAt(i+2) & 63)));
         i += 3;
      }
      
   return str.join("");
};

Дык, в VBS есть замечательная функция Asc! Вот ей в цикле строку посимвольно и преобразовать.

Кракозябры в студию.

Попробуй так:

function converter(strinput)
    Set objStream = CreateObject("ADODB.Stream")    
    objStream.Mode = 3 
    objStream.Type = 2
    objStream.Charset = "cp866"
    objStream.Open()
    objStream.WriteText(strinput)
    objStream.Position = 0
    objStream.Charset = "UTF-8"
    converter = objStream.ReadText()
    objStream.Close()
end function

2 YMP & max7 - не помогают оба варианта
Кракозябры выглядят вот так

Не взлетело, щас ещё и значки масти "буби" появились

источник

Попробуйте указать в ConnectionString кодировку - ctype=win1251(правда для ADO.NET приводится другой параметр - Charset). Если я правильно понял FAQ, необходимость в перекодировке внутри VBS отпадёт.

Не-не-не. В настройке соединения не юникод указать, а ASCII(win1251). Если интернет не обманывает, сервер будет принимать и отдавать запросы/данные в кодировке указанной при подключении, автоматически конвертируя между ней и кодировкой БД. Т.о. в vbscript ничего дополнительно перекодировать не потребуется. Теоретически .

Charset | ctype - придётся попробовать каждый, не знаю который из них будет работать. Но скорее всего ctype.

Да не нужен тот алгоритм на VBS, всё проще:

Function FC(E)
  FC = ""
  For i = 1 to Len(E)
    FC = FC & Chr(Asc(mid(E,i,1)))
  Next
End Function

Это на js извращаться приходится, в нём Asc нету.

Э-э-э... Простыми русскими словами излагать алгоритм - долго и муторно, на Васик перевести не смогу (не дружу с VBS), лучше спросить автора...
&& и || прямого аналога на васике, вероятно, не имеют: это то же, что и And (в js - &) или Or (|), но, если символов два, то второе условие не проверяется, если первое однозначно определило результат (false для &, true для |).

Вообще там пересчитываются коды символов по диапазонам: для первых 127, для русских и т.д., поскольку соответствие порядков символов несколько кривоватое. Asc использует виндовый метод перекодирования через NLS таблицы, по крайней мере я так понял.

А что, приведённая мной функция чем-то не устраивает?

С этого момента уже сложнее - Firebird я поставил(на сколько же всё проще в MSSQL... или просто привык?), а вот проприетарный и не особо дешёвый провайдер ставить не хотелось бы. Хотя не исключено что ошибка именно его(провайдера). Надо будет попробовать ODBC для сравнения.

Хотелось бы уточнить ещё пару моментов:
1. версия СУБД
2. кодировка базы(UTF-8/UNICODE_FSS/WIN1251...)

Если средствами СУБД/провайдера победить не получится, то для разборок с кодировкой лучше приложить файл с примером выводя запроса.

ссылка на базу
Спасибо большое, что всё ещё пытаетесь мне помочь )))

Firebird 2.1.5
Кодировка базы мне не известна и IBExpert её тоже не выдаёт   (по ходу дела - default)

По крайней мере в базе точно есть русский текст в UTF-8. Вопрос в том, в каком виде он попадает в переменную VBS. Содержимое переменной (до функции converter) хорошо бы сохранить в файл (юникодный) и здесь выложить.

Открыл базу в хекс-редакторе, нашёл место, где много букв P, скопировал в AkelPad и там перекодировал. Эти буквы P — характерный признак UTF-8 открытой как 1251. Так что мой вариант функции должен по идее работать. Чтобы выяснить, почему не работает, мне и нужно увидеть, что у вас в переменной, которую вы передаёте функции.

Коллеги, у кого есть возможность, можно Вас попросить, запустить на выполнение следующий код:

Set cn = CreateObject ("ADODB.Connection")
cn.Open "Provider=LCPI.IBProvider.3;Data Source=C:\VS2010\firebird\AKIS_newDB\akisdb.fdb;User Id=SYSDBA;password=masterkey;Ctype=none;auto_commit=true"
Set rs = cn.execute("select Q_MENU.MNU_NAME from Q_FIFO , Q_MENU where Q_FIFO.FHI_CLINR is null and Q_FIFO.FHI_QNR=Q_MENU.MNU_QNR")


do while not rs.EOF
       msgbox converter(rs.fields(0).Value)
rs.MoveNext
loop
rs.close
cn.close


function converter(strinput)
    adReadAll = -1
    adTypeText = 2
Set objStream = CreateObject("ADODB.Stream")    
    objStream.Open()
    objStream.Type = adTypeText
    objStream.Charset = "windows-1251"
    objStream.WriteText(strinput)
    objStream.Flush()
    objStream.Position = 0
    objStream.Charset = "utf-8"
    converter = objStream.ReadText(adReadAll)
    objStream.Close()
end function

я получаю следующую ошибку

Что ещё не так ? В чём грабли ?

25 строчка

Ссылка на базу