Заменяет русские буквы на аброказябры

[JWST]

Всё еще продолжаю копаться с файлами реестра (*.reg)

Работа программы простая.
1. Ссчитать весь файл в массив.
2. Заменить все встретившееся параметры на другие по такому принципу textt=replace(textt,"FirstName","Name")
3. Записать обновлённый файл

Эксперимент такой
1. я беру из regedit делаю reg файл . Условно file.reg
2. захожу в него и копирую всё в буфер.
3. Через блокнот делаю новый файл file2.reg и вписываю из буфера в него.
4. Прогоняю через прогу file.reg (оригинальный)
и файл file2.reg (свой) .

В моём созданном мной файле (file2.reg) всё нормально, а в оригинальном файле (file.reg) все русские буквы поменялись на аброказябры.

Вот пример из получившегося файла:

Windows Registry Editor Version 5.00
;@>25@:0 =0 @CAA:85 1C:2K

[HKEY_LOCAL_MACHINE\SOFTWARE\ACD Systems\22]
"UC"=dword:00000124
"UserName"="52 ;N1OI89 ?KH:8"

все советуют прочитать про StrConv. Нашёл все посты про это здесь. Запутался окончательно. Пошёл в Гуглика. Прочитал и там. Так ничего и не понял как и куда мне переводить.
Попробовал варианты. Максимум чего добился так это:

[ H K E Y _ L O C A L _ M A C H I N E \ S O F T W A R E \ A C D S y s t e m s \ 2 2 ]
" U C " = d w o r d : 0 0 0 0 0 1 2 4
" U s e r N a m e " = "   0  :  A  8  <  "

во как раскорячило, или же вообще круто:

Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!
Я идиот! Убейте меня, кто-нибудь!??

Я идиот! Убейте меня, кто-нибудь!?

Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!??
Я идиот! Убейте меня, кто-нибудь!????
Я идиот! Убейте меня, кто-нибудь!?Максим

Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!
Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!?г?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!?
Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!

вот что получается в тексте выходного файла.

А как сделать чтобы нормально было.

Только ради бога напишите пожалуйста нормально, а не почитай там или используй то-то.

[GM]

А чо там разбираться.

Код: Выделить всё

Dim s As String
s = "Тут твои крякозябры"
s = StrConv(s, vbFromUnicode)
'уже их нет
s = "Нормальный текст"
s = StrConv(s, vbUnicode)
'а тепер крякозябры


Код не тестировал, но теоретически работает.

[JWST]

Теория теорией, а практика показала, что получилось

вместо:

"UC"=dword:00000124
"UserName"="0:A8<"

Я идиот! Убейте меня, кто-нибудь!????
Я идиот! Убейте меня, кто-нибудь!?Максим

и этот вариант я пробывал и написал о нём выше, а что делать когда у меня не полностью кракозябры? Они появляются при считаывании Reg файла. Причём только там где есть РУССКИЙ ТЕКСТ.

Но как вы понимаете записи смешанне и поэтому я не могу отделить одно от другого.

Код: Выделить всё

s = "Тут твои крякозябры"
s = StrConv(s, vbFromUnicode)

вот пример привели. Так и мне понятно как сделать,а вот так то не рабоотает:

Код: Выделить всё

s = "UserName=0:A8<"
s = StrConv(s, vbFromUnicode)

а мне нужно чтобы работало!!! Ну подумайте пожалуйста. Вы же умнейшие люди...

[Alexanbar]

Записывай файл *.reg с помощью regedit в старом формате (win98/NT4)

[JWST]

Интересное предложение. Есть рег файлы, которые могут быть в каком угодно формате. Программа должна в них одни значения менять на другие. Какие это будут рег файлы неизвестно, т.к. делается под любые рег файлы. Идея программы заключается именно в работе с рег файлами.

А программа помимо замены нужной, ещё и меняет все русские значения в этих файлах на аброказябры.

И что получается средствами VB никак эту проблему не решить. Что прикажете другой язык изучить, которому посильна эта наиэлементранийшая задачка.

Вот это и всё что можете мне предложить и посоветовать?

[JWST]

Записывай файл *.reg с помощью regedit в старом формате (win98/NT4)

У меня одна программа создаёт файл автоматически. Эта программа сканирует реестр до установки проги и после. Затем определяет разницу и создаёт рег файл. Он в формате 5-том.

Я пытаюсь сделать программу, котора будет менять необходимые мне значения в такого рода файлах. И поэтому исключить этот формат я никак не могу.

Если есть идея как из одного формата рег преобразовать файлы в другой формат рег. То может быть это и выход. Но как я понимаю если нельзя элементарно преобразовать русские буквы не затронув всё остальное, то что можно говорить о полном преобразовании файлов.

[GSerg]

Фтопку программу.
Записывать разными кодировками в один файл вперемешку - это не та прога, которую можно юзать.

[Alexanbar]

И что получается средствами VB никак эту проблему не решить. Что прикажете другой язык изучить, которому посильна эта наиэлементранийшая задачка.

Вот это и всё что можете мне предложить и посоветовать?

Причём тут язык? Язык - это всего-лишь один из способов записи алгоритма. От того, что выбрать другой язык, сам по себе алгоритм не появится. Голова нужна.

Изучи специфику цепочки символов, содержащей символы Unicode, и потом ищи её и заменяй. Насколько мне известно, каждый текстовый символ кодируется двумя байтами. Один из них, наверное, содержит код языка.

Другой способ - ищи специфичные ключи, которые надо перезаписать.

Третий - второй+первый.

[JWST]

Фтопку программу.
Записывать разными кодировками в один файл вперемешку - это не та прога, которую можно юзать.

Вот и я же про то же. Я пытаюсь сделать универсальную программу под все файлы реестра, а мне советуют писать в определённом формате.

Изучи специфику цепочки символов, содержащей символы Unicode

А что никто никогда не знает какая там специфика? Неужели я первый кто столкнулся с этим Уникодом? Неужели никто никогда не работал с этим уникодом? Да ну не поверю я.

Как я понимаю можно вставить в программа маленький цикл, который будет проверять каждый символ в строке и заменять его если этот символ в формате Уникода.

Ну тогда попутный вопрос: А как определить символ в уникоде или нет?

я думаю что где-то так:

Код: Выделить всё

For xx= 1 to len(text)
if mid$(text,xx,1) = Уникод then mid$(text,xx,1) = нормалный формат(mid$(text,xx,1))
next


Какие есть мысли по этому поводу?

[GSerg]

По этому поводу нет мыслей.
Символ юникода - 2 байта, символ ascii - 1 байт. Два символа ascii - один символ юникода. И попробуй отличи.
Нет, ты можешь частотный анализ сделать, и по частоте отдельных символов определить кодировку.
Но не проще ли перестать юзать дебильную программу. и начать юзать нормальную?

[JWST]

По этому поводу нет мыслей.

...

Но не проще ли перестать юзать дебильную программу. и начать юзать нормальную?

Очень жаль что VB опять подводит.

А что касается дебильной программы это ты про ту, которая

1.делает снимок реестра
2.делает снимок столько раз, сколько нужно (вы можете устанавливать программы и делать с реестром свои преобразования)
3.сравнивать снимки между собой
4.(ЭТОГО БОЛЬШЕ Я НЕ ВСТРЕЧАЛ СРЕДИ АНАЛОГИЧНЫХ ПРОГРАММ)делать файлы реестра автоматом со значениями разницы между снимками.

Программа называется: Advanced Registry Tracer ver.2.03
почитать можно тут http://www.elcomsoft.com/art.html

так вот если ты мне предложишь что нить на замену, то предложи.

p.s.
Куча прог в инете подобных, но все либо один снимок реестра делают пол часа, либо (это все кроме ART) не делают файл реестра между снимками.

А вообще то я разочарован. Это я считаю касяк VB. Потому как в файле нормальные русские буквы, а при считвании и записи почему то становятся кракозябры, да ещё и программно их никак не убрать.
Я три дня бьюсь над элементаной задачей:
Заменять то что нужно и не трогать чего не просят
Так вот заменять-заменяет, но при этом ещё и касячит и никак при этом проблему средствами VB как оказыается не решить.

Может нужно написать не в разделе для новичков. Может просто тут не читают профи, которые могут помочь. Помогите мне пожалуйста. У меня вся работа приостановилась, а планы большие...

[GSerg]

Очень жаль что VB опять подводит.

Очень жаль, что ты не понимаешь, что язык здесь ни при чём. Любой.

(ЭТОГО БОЛЬШЕ Я НЕ ВСТРЕЧАЛ СРЕДИ АНАЛОГИЧНЫХ ПРОГРАММ)

Удивительно, как мало надо человеку для счастья...
Прикинь, я сделаю это за 10 секунд без дополнительных программ вообще.
Regedit'ом снимаю реестр до и после, через fc получаю файл различий.

так вот если ты мне предложишь что нить на замену, то предложи.

http://www.google.ru/search?hl=ru&q=regmon&lr=

А вообще то я разочарован. Это я считаю касяк VB. Потому как в файле нормальные русские буквы, а при считвании и записи почему то становятся кракозябры, да ещё и программно их никак не убрать.

Ты приводил выдержки из файлов, где нет нормальных русских букв.

касячит и никак при этом проблему средствами VB как оказыается не решить.

Вот от таких людей и появляются возгласы "VB отстой". А между тем, не VB...

[JWST]

Трудно конечно несогласится с GSerg.
Особенно потому что решений (как и предполагалось) он не дал никаких. Зато супер предложение воспользоваться Regedit
как обычно без примеров и сравнить при помощи FC что тоже непонять зверь наверное какой-то.

Но как обычно люди говоря о своём скромном профессионализме забывают о главном.

Как убрать кракозябры?

Ведь дело не в том какой программой делался Reg файл.

Задача программы которую я делаю, сделать вот что:
1. Открыть Reg файл
2. Найти значения одни и поменять их на другие
3. Закрыть обновлённый Reg файл.
И самое важное ничего больше не менять и не касячить

И не важно какой программой он был сделан этот Reg файл и не важно какими средствами и форматами он записан.
Важен результат (открыть, заменить что надо, закрыть). А результат:
Открывает, заменяет что надо, заменить все русские на аброказябры, закрывает

Что делать ума не приложу. Но ведь тот же regedit не косячит файлы.
Та же АРТ не касячит. А прога VB касячит.

Как то же они работают.

Помогите мне написать прогу пожалуйста. Делать она должна три действия. Я повторюсь:

1. Открыть Reg файл
2. Найти значения одни и поменять их на другие
3. Закрыть обновлённый Reg файл.
И самое важное ничего больше не менять и не касячить

[GSerg]

Трудно конечно несогласится с GSerg.

Да, именно с этой фразы несоглашения всегда начинаются...

Особенно потому что решений (как и предполагалось) он не дал никаких.

Психолог! Тонкий. Как узнал, нет, как узнал... а я ведь шифровался специально... но молодец... ни RegMon, ни fc не смутили... так держать.

Зато супер предложение воспользоваться Regedit

Если можно забить гвоздь молотком, я часто поступаю именно так, не прибегая для этой цели к помощи микроскопа...

как обычно без примеров

Несомненно, богатый опыт позволяет веско сказать "как обычно", опираясь на собранные за годы пребывания на форуме факты...

и сравнить при помощи FC что тоже непонять зверь наверное какой-то.

Людей, не знающих про fc, к сожалению, всё больше и больше. Обратная и печальная сторона прогресса операционных систем в сторону меньшего требуемого знания.
fc.exe, утилита File Compare. Сравнивает два файла, выдаёт различия. Блоками текста. С указанием, что где отсутствует или излишествует.

Как убрать кракозябры?

Сначала надо ответить на другой вопрос - как они появились? Примеров файлов мы так и не видели.

Ведь дело не в том какой программой делался Reg файл.

Нет, отчего же...

А прога VB касячит.

А прогу на VB писал кто?..

Помогите мне написать прогу пожалуйста. Делать она должна три действия.

Приложи наконец отрывок исходного reg-файла, не изменённого твоей прогой. А также тот же отрывок в желаемом виде.

[Alexanbar]

Опять же повторюсь:

Причём тут VB?
Попробуй-ка, скажем, тоже самое написать на Delphi или C++ и спору конец.

Кстати, а зачем делать снимок реестра в виде текстового файла? Ведь файл реестра хранится в нескольких системных файлах (не помню, в каких). Сохрани их в укромном месте.

Или, скажем, сохраняй реестр в собственном формате, с которым можешь делать всё, что заблагорассудится, и не мучать себя вопросом, где там сидит этот Unicode.

[Alexanbar]

А где это ты нарыл такой regedit, который сохраняет реестр в файл, где латинские буквы передаются, как есть, а русские - в Unicode?


Вот я взял, да и сохранил одну из ветвей. Открыв в Total Commander нужный файл в Hex-режиме, увидел, что все символы записаны в Unicode.
Для отображения содержимого использовал следующий код:

Код: Выделить всё

Private Sub Form_Load()
f$ = "c:\Проба.reg"
Open f For Binary As #1
t$ = Space(FileLen(f))
Get #1, 1, t$

Text1.Text = StrConv(t, vbFromUnicode)

End Sub


Причём текст получился полностью читаемый:

?Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\5.0\Default Settings\Recent Stationery List]
"File0"="Ясный день.htm"
"File1"="Природа.htm"
"File2"="Кукуруза.htm"
"File3"="Подсолнух.htm"
"File4"="Лимонад.htm"
"File5"="Чистый лист.htm"
"File6"="Листья.htm"

[JWST]

Вот текст программы:

Код: Выделить всё

Private Sub Form_Load()

Dim GetValues() As String
Counter = 0
NameFile = "File.reg"
'NameFile = "File2.reg"

Open NameFile For Input As #1
    Do Until EOF(1)
        Counter = Counter + 1
        ReDim Preserve GetValues(Counter)
        Line Input #1, Bufer

        Bufer = Replace(Bufer, "D:\\_INSTALL", "C:\\_INSTALL", , , vbTextCompare)

        GetValues(Counter) = Bufer

        'Чтобы не касячился весь текст (без этого не работает)
         If Counter = 1 And Mid(GetValues(Counter), 1, 2) = "яю" Then
            GetValues(Counter) = Mid(GetValues(Counter), 3)
         End If

    Loop
Close #1

MsgBox "Файл ссчитан"
'#################################
Open NameFile For Output As #2
        For yy = 1 To Counter
       
                Print #2, GetValues(yy)
        Next
Close #2
        '    MsgBox "файл записан"
          Counter = 0

MsgBox "Файл записан"

Unload Me

End Sub


вот элементарная программа которая видите как ссчитывает, как меняет и как записывает.

Файлы (File.reg и File2.reg) можно скачать здесь:
http://jawsik.com/special/files.zip

Разница между ними в том, что File.reg сделан при помощи программы RegEdit, а File2.reg сделан мной лично в блокноте.

Если вы их откроете, то увидите, что в 4-ой строке есть слово "Драйверы". Так вот прогоните через эту программу оба файла и вы увидите что будет с этим текстом.

Повторюсь ещё раз: File2.reg делал я сам в блокноте.

p.s. провто надоело объяснять. Это надо увидить и прочувствовать.
Для своих примеров можете зайти в RegEdit и экспортировать свои файлы реестра (у меня XP), там где есть русские значения. Прогоните их через прогу и смотрите что получится.

[Alexanbar]

Код: Выделить всё

Private Sub Form_Load()
Dim GetValues() As String
Counter = 0
NameFile = "c:\File2.reg"

'NameFile = "File2.reg"


Open NameFile For Binary As #1
bufer$ = Space(FileLen(NameFile))
Get #1, 1, bufer$
Close #1
bufer = Replace(bufer, "D:\\_INSTALL", "C:\\_INSTALL", , , vbTextCompare)
MsgBox "Файл ссчитан"
'#################################
NameFile = "c:\File2X.reg"



'Способ1 (в Unicode):
'Open NameFile For Binary As #2
'Put #2, 1, StrConv(bufer, vbUnicode)
'
'Close #2
       
Open NameFile For Output As #2

'Способ2:
'в обычном формате:
'Print #2, bufer;

'Способ3:
'В Unicode:
Print #2, StrConv(bufer, vbUnicode)

Close #2
       
       
MsgBox "Файл записан"

Unload Me

End Sub



Остаётся только кое-какие нюансы устранить.

САмое главное замечание.

ДлЯ ввода использовать только бинарный режим.

Если надо разбить на строки, это можно сделать спомощью ф-ции Split.

[JWST]

NameFile = "c:\File2.reg"

а зачем же вы использовали File2.reg который я сам в блокноте сделал. С ним то как раз проблем то и нету. Он нормально построчно входит заменяется и записывается благодаря моей программе.

А вот оригинальный файл - File.reg вот с ним то как раз и приключения. Именно в оригинальных файлах касяки, а не в моих.

Вот сделайте так и запустите с File.reg и увидите интересное:

Код: Выделить всё

Open NameFile For Binary As #1
bufer$ = Space(FileLen(NameFile))
Get #1, 1, bufer$
msgbox bufer$
Close #1


только попробуйте с оригинальными файлами реестра. В моём приложенном архиве это File.reg

[Alexanbar]

Код: Выделить всё

NameFile$ = "c:\file.reg"
Open NameFile For Binary As #1
bufer$ = Space(FileLen(NameFile))
Get #1, 1, bufer$
MsgBox StrConv(bufer$, vbFromUnicode)
Close #1

[JWST]

Alexanbar


Мужик...

нет! извините пожалуйста за такое дерзкое начало!

Александр Спасибо вам большое. За то что вы действительно специалист спасибо. Побольше бы вот таких людей бы было у нас вообще, жизнь бы была намного проще, а люди бы ценились за их профессионализм, а не за то кто круче скажет, что отстойная программа.

Удачи вам! Успехов и достижений. Больших побед и хороших людей на пути по всей жизни.

Конечно после этого возникла задача определять обычный это файл или же его обрабатывать при помощи vbFromUnicode . Но это для меня проблемы не составило потому как отличие отдного от другого программа состоит из одной строчки.

Ещё раз спасибо. Дай бог здоровья! И ещё вот что: Желаю жить медленно, тогда вы сможете наслаждаться этой жизнью (а не вертеться как белка в колесе и с ужасом смотреть, что ещё один год прошёл)

[GSerg]

JWST
Скажи пожалуйста, чем это отличается от кода, приведённого GM в самом начале?

[GM]

Видимо тем, что JWST читал юникодовский файл по кусочкам, что не есть гуд. О том что нужно было захватить весь целиком, я думал догадается.

[JWST]

Не обижайтесь ребята! Честное слово никого обидеть не хотел. Просмотрев ещё раз увидил, что да действительно гн.GM предложил полностью решение, но предоставил он его не зная моего подхода. В этом конечно же виноват и я тоже. Я это понимаю и признаю. Нужно было с первого поста выложить свой подход и поиск и тогда бы я думаю сразу бы нашли решение.

Mr.GSerg передаю большой привет и тоже хочу извиниться, потому как повёл себя не соответсвенно. Извиняюсь! Вспылил. Но считаю, что всё-таки и с вашей стороны был повод. Плохо с моей стороны, то, что не сдержался.

Тему можно закрывать.
Теперь у меня новая задача. Читать об этом здесь:

http://bbs.vbstreets.ru/viewtopic.php?p=6577803