Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Lib "user32" в vbs? Запись файла в дос кодировке из vbs? / 11 сообщений из 11, страница 1 из 1
24.09.2008, 17:14
    #35557613
еще вопрос
еще вопрос
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
пишу в .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:32
    #35557677
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
Код: 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:48
    #35557754
еще вопрос
еще вопрос
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
спасибо!

может подскажите еще волшебный способ, вывести данные в виде:
Код: 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:58
    #35557795
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
только форматированием пробелами, пишите соответствующую ф-юю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 00:39
    #35558308
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
Konst_Oneтолько форматированием пробелами, пишите соответствующую ф-юю

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

Не так давно было.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 00:49
    #35558312
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
Или этот примерчик: http://support.microsoft.com/kb/155512/en-us
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 09:19
    #35558516
еще вопрос
еще вопрос
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
Konst_Oneтолько форматированием пробелами, пишите соответствующую ф-юю
подскажите какая функция, дополняет строку n символами слева?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 10:29
    #35558700
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
еще вопрос Konst_Oneтолько форматированием пробелами, пишите соответствующую ф-юю
подскажите какая функция, дополняет строку n символами слева?Самописная.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 14:04
    #35559485
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
Код: plaintext
format("123", "@@@@@@@@@@@@@@@@")
I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
28.06.2010, 17:56
    #36711842
еще вопрос
еще вопрос
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
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, 21:10
    #36712068
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lib "user32" в vbs? Запись файла в дос кодировке из vbs?
еще вопросКак сделать виндовс кодировку и простой текст?

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


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