Работа с инетом в VB

[altrego]

Здравствуйте! Такое дело: в VB при помощи компонента Inet загружаю страничку из нета и сохраняю ее в файл. Затем из этого файла в комбобокс пишу нужные мне данные, но вместо нормальных букв пишется абракадабра. Как быть?

Код: Выделить всё

Inet.URL = "Здесь ссылка"
StrString$ = Inet.OpenURL           'Загружаю исходник страницы
Open "c:/temp.txt" For Output As #1
Print #1, StrString$                'Затем это в файл


Потом, когда я пытаюсь из этого файла что-нить в комбобокс вместо кириллицы фигня всякая пишется... делаю я это так:

Код: Выделить всё

Open "c:/temp.txt" For Input As #1
For i = 1 To 11                                      'Переход на нужную строчку
   Line Input #1, StrString$
Next i
cmbChanels.AddItem Mid$(StrString$, 69)     'Вырезаем нужную инфу

Итог: Викторина (2)

Да, забыл еще: В блокноте файл просматривается нормально, а в FAR`е тоже фигню пишет (Викторина (2))

[ALX_2002]

Знаю, что предлагать альтернативные пути довольно глупо, когда человек спрашивает "а как сделать именно так ?", но всё же

Код: Выделить всё

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Call URLDownloadToFile(0, "http://www.vbstreets.ru/default.asp, "c:file.asp", 0, 0)

А так пробывал ?

Или через XMLHttp ?

[altrego]

ALX_2002
Вовсе не глупо
Только что-то этот способ не работает - файл не создается...
А через XMLHttp как? Сейчас попробую в нете глянуть...

[ALX_2002]

Там после C: косая черта пропущена, чтоб в смайл не пределывалась Поэтому не работает

А на счёт XMLHTTP вот чего есть

http://bbs.vbstreets.ru/viewtopic.php?p=6583640#6583640

[altrego]

ALX_2002
На счет слеша после C: догадался
Спасибо за ссылочку.
Вообще мне вот что надо: со странички в инете загрузить некоторую инфу. Через Inet конрол все загружается намана, кроме кириллицы. Тут с кодировками проблемы... Может есть способы перекодировки win-1251 в понятную VB кодировку?

[altrego]

А, не, на счет первого варианта работает, только опять же, вместо кириллицы Викторина (2). Как это дело перекодировать? Изначально оно в win-1251 кодировке...

[ALX_2002]

Вот тут с указанием кодировки качают

http://www.relib.com/forums/Topic780722-1-1.aspx

А вообще честно скажу. Не помню как, но нужно вставить в запрос

Charset: Windows-1251

И тогда по идее норм должно всё быть.

О ! Нашёл

http://www.vbip.com/forum/topic.asp?id=5156

Вот тут надо в StrHeader добавить как раз Charset: Windows-1251 помоему.

[altrego]

Вот, нашел перекодировку http://subscribe.ru/archive/comp.design.snoozex/200105/09220023.html
Перекодирует... в другую аброкодабру

[ALX_2002]

Пробуй всё таки в хедере кодировку указывать.

Кстати, забыл те сказать

http://bbs.vbstreets.ru/viewtopic.php?t=23315

У нас тут АЦКИЕ порядки ввели, так что ныкайся, пока админов нету ))) Я тя прикрою.

[GSerg]

Опять наплыв...
Сезонное обострение, что ли...
То ни фига, то всей кучей...

altrego
Ознакомься с http://bbs.vbstreets.ru/viewtopic.php?t=23315
Приведённая в первом посте строка теста есть UTF8, пример раскодирования из UTF8 есть на форуме, но RayShade придёт в понедельник.