Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
spartak0
0 / 0 / 0
Регистрация: 28.10.2007
Сообщений: 160
1

Функция для перекодировки txt DOS -> txt Windows

17.12.2007, 18:14. Просмотров 1509. Ответов 10
Метки нет (Все метки)

Есть ли функция вышеуказанной перекодировки строк?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2007, 18:14
Ответы с готовыми решениями:

Копирование определенных строк с одного .txt на другой *.txt
Ребзи помогите пожалуйста. Задача такая, есть текстовой файл с множ-во строк....

Как взять из файла INPUT.txt два числа, увеличить каждое из них на 1 и записать в OUTPUT.txt
Пишу последние года 2 на плюсах и C#. Сейчас появилась необходимость реализации...

txt
требуется помощь в решении задачи по работе с txt файлами в программе...

Поиск в txt
всем привет, помогите, при поиске по txt, поиск идет только в один конец, после...

Строки в TXT
У меня есть текстовый файл (например:1.TXT). как сделать так чтобы 1 строка...

10
VGooz
0 / 0 / 0
Регистрация: 09.12.2007
Сообщений: 8
18.12.2007, 10:46 2
Public Declare Function OemToChar Lib 'user32' Alias 'OemToCharA' (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Преобразование OEM to ANSI (dos->win)
Public Declare Function CharToOem Lib 'user32' Alias 'CharToOemA' (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Преобразование ANSI to OEM (win->dos)
0
spartak0
0 / 0 / 0
Регистрация: 28.10.2007
Сообщений: 160
18.12.2007, 11:06  [ТС] 3
Спасибо!
0
spartak0
0 / 0 / 0
Регистрация: 28.10.2007
Сообщений: 160
19.12.2007, 10:18  [ТС] 4
Пацаны!!!
Пишу:
Option Explicit
Private Declare Function OemToChar Lib 'user32' Alias 'OemToCharA' (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Sub cmdDelete_Click()
Dim source As String, destination As String
Dim rc As Long
source = 'R&macr;&agrave;_¤_<&iuml;_&acirc;&aacute;&iuml;'
rc = OemToChar(source, destination)
'MsgBox rc
MsgBox destination
End Sub

А в ответ - тишина. Месседж пустой.
0
VGooz
0 / 0 / 0
Регистрация: 09.12.2007
Сообщений: 8
19.12.2007, 11:47 5
Option Explicit
Private Declare Function OemToChar Lib 'user32' Alias 'OemToCharA' (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Sub cmdDelete_Click()
Dim source As String, destination As String
Dim rc As Long
source = 'R&macr;&agrave;_¤_<&iuml;_&acirc;&aacute;&iuml;'
destination=Space(Len(source)) 'собственно здесь собака зарыта
rc = OemToChar(source, destination)
'MsgBox rc
MsgBox destination
0
spartak0
0 / 0 / 0
Регистрация: 28.10.2007
Сообщений: 160
19.12.2007, 12:12  [ТС] 6
Thank
0
spartak0
0 / 0 / 0
Регистрация: 28.10.2007
Сообщений: 160
20.12.2007, 12:39  [ТС] 7
Я конечно извиняюсь, но снова есть проблема.
Перекодировать нужно только текст ДОС, а функция OemToChar, видимо, не брезгует и текстом ВИНД.
То есть, при наличии, в файле смешанного текста в итоге получается полный порожняк.
0
YURA
20.12.2007, 13:29 8
Ну, типа того, проводи предварительный анализ для определения кодировать/не кодировать - там словари всякие и все такое...
spartak0
0 / 0 / 0
Регистрация: 28.10.2007
Сообщений: 160
20.12.2007, 13:44  [ТС] 9
Тааа! Я думал это за меня сделает какой-нибудь программер из микрософта.
0
VGooz
0 / 0 / 0
Регистрация: 09.12.2007
Сообщений: 8
20.12.2007, 14:09 10
У тебя файл - полный порожняк. Ну сам подумай как можно определить в какой кодировке у тебя символ, если нигде дополнительно не указана кодировка.
0
sharig
1 / 1 / 1
Регистрация: 30.07.2007
Сообщений: 206
21.12.2007, 04:23 11
Это сообщение просто так, для информации страждущим.
Как определить кодировку текста (Dos или Win) (старый-престарый пример) - http://sharig.webzone.ru/category/work10_txt.htm
0
21.12.2007, 04:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2007, 04:23

DataGridView в .txt
Добрый вечер. Делаю програмку. В DataGridView имею пять столбцов. Как построчно...

Txt Файл
Please,Help me !!! Как сделать так ,чтобы при нажатии на кнопку текст из ...

Работа с *.txt
Подскажите пожалуйста, как реализовать поиск в текстовом файле, а после...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru