| Вопрос: dos кодировка текста Умоляю плизз помогите | Добавлено: 31.07.05 19:22 |
Автор вопроса:  Amor | ICQ: 1268198 |
|
В общем качаю я текстовик с сайта с помощью URLDownloadToFile
А там вместо переноса строки вот такое | а если ультра едитом открываю он говорит конвертнуть в дос или нет? То есть мне надо в дос этот текст конвертнуть или что мне зделать для нормального вида текста |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа: KIRK Вопросов: 2 Ответов: 3 |
Профиль | | #1 | Добавлено: 31.07.05 20:40 |
| если кроме переносов строки текст нормальный просто замени "|" на vbCrLf | ||
|
Номер ответа: 2 Автор ответа:  Amor ICQ: 1268198 Вопросов: 31 Ответов: 101 |
Профиль | | #2 | Добавлено: 31.07.05 21:22 |
|
При копировании этого знака после вставки образуеться перенос то есть если я копирую этот квадратик в кавычки то получаеться так
" " |
||
|
Номер ответа: 3 Автор ответа: AmorICQ: 1268198 Вопросов: 31 Ответов: 101 |
Профиль | | #3 | Добавлено: 31.07.05 21:22 |
|
При копировании этого знака после вставки образуеться перенос то есть если я копирую этот квадратик в кавычки то получаеться так
" " |
||
|
Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 31.07.05 22:58 |
|
а ты от так
Public Function LoadTextFile(path As String) As String 'Загрузка файла в переменную Dim l As Long Dim s As String n = FreeFile Open path For Binary As #n l = LOF(n) s = String(l, vbNullChar) Get n, , s Close #n LoadTextFile = s End Function Public Sub SaveToFile(Data$, PathFile As String) 'Сохранение переменной в файл n = FreeFile Open PathFile For Binary As #n Put n, , Data$ Close #n End Sub Private Sub Form_Load() File$ = "C:\1.txt" 'Путь к твоему файлу txt$ = LoadTextFile(File$) txt$ = Replace(txt$, "|", vbCrLf) SaveToFile txt$, File$ End Sub |
||
|
Номер ответа: 5 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #5 | Добавлено: 31.07.05 23:52 |
|
В общем качаю я текстовик с сайта с помощью URLDownloadToFile
А там вместо переноса строки вот такое | В чем ты просматриваешь текст, получанный вышеупомянутой функцией? Посмотри код этого символа, может, понятнее станет, в чем проблема. PS Очень в тему: - Приложение перестает нормально работать, если у пользователя нет прав администратора. - Что "ломается" в приложении? - Защита! - В чем это выражается? - Если не работать под учетной записью администратора, получаешь все время сообщения об отказе в доступе. - А вы задумывались над тем, что, может, так оно и должно быть? |
||
|
Номер ответа: 6 Автор ответа: AmorICQ: 1268198 Вопросов: 31 Ответов: 101 |
Профиль | | #6 | Добавлено: 31.07.05 23:54 |
|
Я говорю вам что у меня не | а квадратик похожий как если в текст бокс без мультилайна vbcrlf записать
Отак А мож есть способ конвертнуть в дос формат этот текст |
||
|
Номер ответа: 7 Автор ответа: AmorICQ: 1268198 Вопросов: 31 Ответов: 101 |
Профиль | | #7 | Добавлено: 31.07.05 23:55 |
| А просматриваю текст боксом | ||
|
Номер ответа: 8 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #8 | Добавлено: 01.08.05 00:01 |
| Multiline=True? | ||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 01.08.05 00:04 |
|
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long 'конвертируем строку в win-кодировку. Private Sub mnuDOSWIN_click() Dim sourcestring As String ' нужная строка Dim deststring As String ' получаемая строка Dim code As Long deststring = Space$(Len(Clipboard.GetText)) 'получаем перекодированную строку code = OemToChar(Clipboard.GetText, deststring) Clipboard.SetText (deststring) End Sub Private Sub mnuWINDOS_click() ' конвертируем строку в dos-кодировку. Dim sourcestring As String ' нужная строка Dim deststring As String ' получаемая строка Dim code As Long deststring = Space$(Len(Clipboard.GetText)) 'получаем перекодированную строку code = CharToOem(Clipboard.GetText, deststring) Clipboard.SetText (deststring) End Sub |
||
|
Номер ответа: 10 Автор ответа: AmorICQ: 1268198 Вопросов: 31 Ответов: 101 |
Профиль | | #10 | Добавлено: 01.08.05 00:05 |
| Ага! | ||
|
Номер ответа: 11 Автор ответа: AmorICQ: 1268198 Вопросов: 31 Ответов: 101 |
Профиль | | #11 | Добавлено: 01.08.05 00:06 |
|
О всё спасибо сам нашёл решение
надо на сайт в dos формате заливать Всем спасибо ух скоро доделаю програмулину |
||
Страница: 1 |