Подскажите пожалуйста, загружаю с инета html страницу, сохраняю её на диск. Потом Пытаюсь программно найти в ней слово, например "Ошибка", но при загрузке текста из файла, VB грузит его в непонятной кодировке, например "Ошибка авторизац" Как вернуть нужную кодировку???
P.S. так пишутся только русские слова, английский текст воспринимается нормально

Как?

Кстати, если открыть сохранённый документ блокнотом, то весь русский текст читабелен, а если через VB, то нет ((

Да, Unicod UTF-8

и как быть?

AndreyMpstrconv

а можно поподробнее....

AndreyMphttp://www.vbnet.ru/vbguide/showfunction.asp?id=34

Спасибо, то что надо! ))

Александр888 AndreyMphttp://www.vbnet.ru/vbguide/showfunction.asp?id=34

Спасибо, то что надо! ))

Рано я обрадовался (((
Короче, делаю сию процедуру:

Private Sub Command2_Click()
Open "data\login.htm" For Input As FileNum
Do Until EOF(FileNum)
Line Input #FileNum, txt
alltxt = alltxt + txt + vbCrLf
Loop
Close #FileNum
MsgBox StrConv(alltxt, vbFromUnicode)

End Sub



и получается вот что:
?????????•???????????????????????????????????????????????????????????????????????????
??•??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????


Что неправильно я делаю?

HELP!!! Неужели никто не знает, как с этим справится??? ((

Спасибо, вещь хорошая, но можно ли этого добится средствами VB?

НастенькаНет, так дело не пойдет. вот что нашла:


вроде всё работает, но есть проблема, я заранее не знаю, какая будет кодировка - dos или win. если dos, то в win конвертирует нормально, а если win, то он win в win конвертирует неверное.
вопрос: а как заранее узнать кодировку файла?

Попытался использовать этот код, выскочило на функции MultiByteToWideChar:
---------------------------
Microsoft Visual Basic
---------------------------
Ошибка компиляции:

Constants, fixed-length strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules
---------------------------
ОК Справка
---------------------------

как это исправить?

знаю, это звучит глупо... но, не могли бы вы написать подробно, как это делать... Спасибо!

А что тогда? Можешь помочь?

Вот текст
Option Explicit

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
Public Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)

Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Else
DownloadFile = False
RaiseEvent ErrorDownload(FromPathName, ToPathName)
End If
End Function

Private Sub Form_Load()
FileNum = FreeFile
nomber = 0
nomber_data = 0
stringnomber = 0
string2 = 0
End Sub

Private Sub Command1_Click()
Call login
End Sub

Sub login()
Call DownloadFile("http://civil.wab.ru/game.php", "data\enter.htm")
temp = "data\enter.htm"
Call text_load(temp)
End Sub

Sub text_load(path As String)
Open path For Input As FileNum
Do Until EOF(FileNum)
Line Input #FileNum, txt
table_txt(nomber) = txt
alltxt = alltxt + txt
Loop
Close #FileNum
MsgBox alltxt
End Sub

Вот так я загружаю текст...

А вот так пытаюсь поменять кодировку
Dim FileNum As Integer
Dim txt As String
Dim alltxt As String

Enum idCodePage
Win = 1251
Dos = 866
Koi = 20866
Iso = 28595
Utf = 65001
End Enum

Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, _
ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, _
ByVal cchWideChar As Long) As Long
Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long,
_
ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, _
ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long

Public Function ConvertCodePage(SourseString As String, inPage As idCodePage, outPage As idCodePage) As String
Dim LenSourseString As Long
Dim strFirst As String
Dim strSecond As String
Dim RetStrLong As Long
LenSourseString = Len(SourseString)
strFirst = String(LenSourseString * 2, Chr(0))
strSecond = String(LenSourseString * 2, Chr(0))
RetStrLong = MultiByteToWideChar(inPage, &H1, SourseString, LenSourseString, StrPtr(strFirst), LenSourseString)
RetStrLong = WideCharToMultiByte(outPage, 0, StrPtr(strFirst), RetStrLong, strSecond, LenSourseString * 2, ByVal 0, 0)
ConvertCodePage = Left(strSecond, RetStrLong)
End Function



Private Sub Command1_Click()
Open "data\login.htm" For Input As FileNum
Do Until EOF(FileNum)
Line Input #FileNum, txt
alltxt = alltxt + txt
Loop
Close #FileNum
Dim strWin As String
Dim strUtf As String
Dim fsoSave As New FileSystemObject
Dim filSave As TextStream
Set filSave = fsoSave.CreateTextFile("temp.txt", True)
strWin = alltxt
strUtf = ConvertCodePage(strWin, Win, Utf)
filSave.WriteLine (strUtf)
filSave.Close
Call ConvertCodePage(alltxt, Utf, Win)
MsgBox alltxt
End Sub

запуск из VB примерно так
[/quot]

не работает. т.е. запускается, но кодировку не исправляет ))) сплошные ?????????????????????