VPF::Сохранение WEB страницы - Форум программистов

alebronn

Дата 29.3.2012, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 29.3.2012

Репутация: нет
Всего: нет

Упёрся в такую проблемку. Необходимо залить текст с вебстраницы в файл. Планы такие:
1. сохраняю ВЕБ
2. Открываю
3. заменяю все ХТМЛ тэги на то что мне нада, Оставляю чистый текст.
4. Сохраняю
Теперь проблема,...... Если напрямую сохраняю ВЕБ в файл то всё нормально, но при открытии его любыми способами Textbox, Richtextbox, или просто в строковую переменную весть русский текст становится кракозябрами. Долблюсь уже два дня перепробовал кучу вариантов. Пока дубль/пусто. Прошу хелпа.

На данный момент имею такой код:

Код


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 Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
DownloadFile "http://ulibnu.li/", "c:\eee.txt"
End Sub

Public Property Get File(path As String) As String
Dim S As String
Dim i As Long
i = FreeFile
Open path For Input As #i
File = Input(LOF(1), #i)
Close #i
End Property
   
Public Property Let File(path As String, ByVal Value As String)
Dim i As Long
i = FreeFile
Open path For Output As #i
Print #i, Value
Close #i
End Property

Private Sub Command2_Click()
Dim S As String
Dim myStr As String
S = File("c:\eee.txt")
myStr = S
myStr = Replace(myStr, "Здесь будут тэги", ".")
File("c:\eee.txt") = myStr
End Sub

Agentsmith

Дата 31.3.2012, 09:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.4.2008

Репутация: нет
Всего: нет

Надо конвертировать после скачивания из UTF-8 в Win.
Много есть решений в поиске по форуму.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »