Security Lab



Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти  
Форум » Администрирование » Windows системы
Страницы: 1
RSS
преобразовать кодировку DOS->win
 
#1
Это нравится:0Да/0Нет
15.11.2007 10:58:29
Можно ли на VBScript конвертировать содержимое файла в другую кодировку? Что для этого использовать? Нагуглил функции, может кто-нибуть уже писал что-то подобное?
Цитата
Declare Function CharToOem     Lib "user32" Alias "CharToOemA" _
  (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Declare Function OemToChar     Lib "user32" Alias "OemToCharA" _
  (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" _
  (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" _
  (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
 
 
 
#2
Это нравится:0Да/0Нет
15.11.2007 11:18:48
http://www.visual.2000.ru/develop/ms-vb/tips/9801.htm
 
 
 
#3
Это нравится:0Да/0Нет
15.11.2007 11:22:23
Все верно Эти функции работают правильно, по крайней мере у меня на VB6. Будут ли работать на VBS не знаю, так как не силен. Там по моему надо что-то через Set O = CreateObject("") Вобщем где то там. ;)
 
 
 
#4
Это нравится:0Да/0Нет
15.11.2007 13:14:29
Можно при помощи батника
Код
@echo off
for /f "tokens=*" %%i in ('type text-866.txt') do (
   call:convert
   echo %%i>>text-1251.txt
   chcp 866 >nul
)
goto:eof
:convert
chcp 1251 >nul
 
 
 
#5
Это нравится:0Да/0Нет
15.11.2007 23:47:36
01MDM, отличный способ.
А в чем скрытый смысл вызова
call:convert
?
Можно же просто взять и позвать явно
chcp 1251 > nul
?
 
 
 
#6
Это нравится:0Да/0Нет
16.11.2007 04:08:18
Как передать значение из f.ReadAll  в  l_sSource?
Код
      Dim l_lReturn as Long 
Dim l_sSource as String 'исходный текст 
Dim l_sDestination as String 'возвращаемый текст 
l_lReturn = oemtochar(l_sSource, l_sDestination)


Код
   Const ForReading = 1, ForWriting = 2
   Dim fso, f 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading) 
   ReadAllTextFile =   f.ReadAll 
   f.close


Можно ли читать и писать один файл, как?
 
 
 
#7
Это нравится:0Да/0Нет
16.11.2007 09:28:56
quasitron, извиняюсь

Цитата
ksiva пишет:
А в чем скрытый смысл вызова call:convert ? Можно же просто взять и позвать явно chcp 1251 > nul ?

Сложно объяснить, т.к на интуитивном уровне. Но в цикле вызов chcp не приносит результатов. Сначала я сделал скрипт для вывода в файл "штатных" программ (ping, systeminfo, ipconfig и т.д), а потом просто адаптировал под перекодировку файла. Так что все что покажет:
Код
for /l %%i in (0,1,1361) do (chcp %%i >nul && еcho %%i >>codelist.txt)

Можно перекодировать.

Упс, конечно не 1361, а по крайней мере 28***
 
 
 
#8
Это нравится:0Да/0Нет
18.11.2007 13:25:12
Для этого есть Декомпиляторы, диссамблеры и Resouse Editors :!:
 
 
 
#9
Это нравится:0Да/0Нет
20.11.2007 16:17:41
Подскажите что не так в этом скрипте?
Код
Dim l_lReturn as Long, l_sSource as String, l_sDestination as String
  Const ForReading = 1, ForWriting = 2 
   Dim fso, f 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile("c:\print.txt", ForReading) 
   l_sSource =   f.ReadAll 
f.close 
   l_sDestination = Space(Len(l_sSource)) 
   l_lReturn = oemtochar(l_sSource, l_sDestination) 
   Set f = fso.OpenTextFile("c:\print.txt", ForWriting, True) 
   f.write l_sDestination 
'   l_sDestination = f.Write 
f.close
 
 
 
Страницы: 1
Читают тему