ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
11 сообщений из 11, страница 1 из 1
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #35557613
еще вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще вопрос
Гость
пишу в .vbs процедурку формирования txt с дос кодировкой,
как это написать в vb скриптах?
Код: plaintext
1.
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" _
   (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Может кто подскажет примером формирования dos кодировки при записи в txt из vbs?
...
Рейтинг: 0 / 0
24.09.2008, 17:14
| Ответить | Цитировать | Написать  
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #35557677
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Код: plaintext
1.
2.
3.
4.
5.
Set st = CreateObject("ADODB.Stream")
st.Type= 2 
st.Open
st.Charset = "cp866"
st.WriteText("тест")
st.SaveToFile("c:\1234.txt")
...
Рейтинг: 0 / 0
24.09.2008, 17:32
| Ответить | Цитировать | Написать  
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #35557754
еще вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще вопрос
Гость
спасибо!

может подскажите еще волшебный способ, вывести данные в виде:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
  840 *               0 . 00 *           19321 . 69 *               0 . 00 *
  840 *          432000 . 00 *               0 . 00 *               0 . 00 *
  840 *               0 . 00 *            9834 . 46 *               0 . 00 *
  978 *            8723 . 00 *            1674 . 00 *        - 162525 . 01 *
  978 *           46411 . 00 *               0 . 00 *               0 . 00 *
  840 *            7951 . 00 *               0 . 00 *               0 . 00 *
  840 *            2969 . 00 *               0 . 00 *               0 . 00 *
  840 *               0 . 00 *               0 . 00 *               0 . 00 *
  840 *           10000 . 00 *               0 . 00 *               0 . 00 *
т.е. каждая колонка как бы выровнена по правому краю
вывожу из адо рекордсета
...
Рейтинг: 0 / 0
24.09.2008, 17:48
| Ответить | Цитировать | Написать  
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #35557795
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
только форматированием пробелами, пишите соответствующую ф-юю
...
Рейтинг: 0 / 0
24.09.2008, 17:58
| Ответить | Цитировать | Написать  
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #35558308
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Konst_Oneтолько форматированием пробелами, пишите соответствующую ф-юю

Необязательно. Можно прямо Recordset сбросить.

Не так давно было.
...
Рейтинг: 0 / 0
25.09.2008, 00:39
| Ответить | Цитировать | Написать  
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #35558312
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Или этот примерчик: http://support.microsoft.com/kb/155512/en-us
...
Рейтинг: 0 / 0
25.09.2008, 00:49
| Ответить | Цитировать | Написать  
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #35558516
еще вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще вопрос
Гость
Konst_Oneтолько форматированием пробелами, пишите соответствующую ф-юю
подскажите какая функция, дополняет строку n символами слева?
...
Рейтинг: 0 / 0
25.09.2008, 09:19
| Ответить | Цитировать | Написать  
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #35558700
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
еще вопрос Konst_Oneтолько форматированием пробелами, пишите соответствующую ф-юю
подскажите какая функция, дополняет строку n символами слева?Самописная.
...
Рейтинг: 0 / 0
25.09.2008, 10:29
| Ответить | Цитировать | Написать  
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #35559485
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Код: plaintext
format("123", "@@@@@@@@@@@@@@@@")
I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
25.09.2008, 14:04
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #36711842
еще вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще вопрос
Гость
Antonariy
Код: plaintext
1.
2.
3.
4.
5.
Set st = CreateObject("ADODB.Stream")
st.Type= 2 
st.Open
st.Charset = "cp866"
st.WriteText("тест")
st.SaveToFile("c:\1234.txt")

коментирую строчку "st.Charset = "cp866"", тогда файл выходит в виндовс кодировке, но становится "Unicode" ... Как сделать виндовс кодировку и простой текст?
...
Рейтинг: 0 / 0
28.06.2010, 17:56
| Ответить | Цитировать | Написать  
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
    #36712068
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
еще вопросКак сделать виндовс кодировку и простой текст?

Код: plaintext
st.Charset = "Windows-1251"
...
Рейтинг: 0 / 0
28.06.2010, 21:10
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]