Серый форум — WSH: работа с бинарными данными через ADODB.Stream на VBS

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (armenxxx1) — Thu, 25 Nov 2010 21:16:34 +0000

Другой метод... *.vbs

Data = "89504E470D0A1A0A0000000D4948445200000027000000420803000000E3443FEE0000000C504C5445F0EEEEF95353F59393FF04047F58B0FF000000097048597300002E2300002E230178A53F760000014249444154789CED955902C42008434DB8FF9DA7AD4BD9AC1C60FCAA363E10115AF38361251D404D27520242A40414290171EB0A409112F0F6AEE2E1C33A033BEA0C1CA413900374022ECE37900BF30D5494EBB380FB061AA7F6401AC41EE8CEB803D20176C007C76B1C8000D0930A5D4A208D35658D619069D28A3821E6CC60FB5E1013A2B679AB7CB7749B026F1A7ADB74157362EE49B9417D1C1349172D636DAF83F1DE7EEB3889F729E7B943EE7434B762CFA1269C81EBF74B1BC035E3B80215671DB267E14AABF523E6C57B46F3E315B6960BA16DC4B49E89A4F3282F0BD4897F1A2C7606D43BC35F57D7857A1375CF0DF9C297E87A6AF9040B3A2E9DAF48C11134575A32DD0439A0D7ADA70857846C00D4DF50349D4C55A45D5B31B2F104231269D95D2DA12F317D96ABBA0BDE5692B9A3EA847AF1794654544EBAE95AC7F103F62B06FEC580AB3F0000000049454E44AE426082"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileObj = FSO.CreateTextFile("face.png", True)
For i = 1 To Len(Data) Step 2
FileObj.Write Chr(CLng("&H" & Mid(Data,i,2)))
Next

И все же я не могу сделать VB

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (alexii) — Sat, 30 Oct 2010 11:58:47 +0000

Не могу — у меня нет сейчас в наличии VB6.

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (armenxxx1) — Sat, 30 Oct 2010 11:40:28 +0000

Можете ли вы дать пример...

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (alexii) — Sat, 30 Oct 2010 06:54:28 +0000

Повторюсь: что мешает хранить бинарные файлы непосредственно в ресурсах?

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (armenxxx1) — Fri, 29 Oct 2010 15:56:15 +0000

alexii пишет:

Точно так же. Но ни WSH, ни VBА не осиливают подобную операцию (&) в заданном размере. «Отожрав» всю память, они, как правило, отваливаются по ошибке исполнения. В то же время, если хранить строку в обычном текстовом файле, считывать эту строку из текстового файла в переменную strText — никаких проблем, понятно, не возникает.
Вы можете озвучить конечную цель и необходимость именно такого решения Вашей задачи?
P.S. Почему бы для этих целей (Вы ведь пишете на «большом» языке, на VB) не использовать обычные ресурсы в проекте?!

alexii Моя идея заключается в создании несколько файлов из несколько шестнадцатеричный кодов не обязательно быть использованы скрипт выше... Глядя только на легкость без использования длинных VB кодов...

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (alexii) — Fri, 29 Oct 2010 03:03:50 +0000

Точно так же. Но ни WSH, ни VBА не осиливают подобную операцию (&) в заданном размере. «Отожрав» всю память, они, как правило, отваливаются по ошибке исполнения. В то же время, если хранить строку в обычном текстовом файле, считывать эту строку из текстового файла в переменную strText — никаких проблем, понятно, не возникает.

Вы можете озвучить конечную цель и необходимость именно такого решения Вашей задачи?

P.S. Почему бы для этих целей (Вы ведь пишете на «большом» языке, на VB) не использовать обычные ресурсы в проекте?!

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (armenxxx1) — Thu, 28 Oct 2010 18:39:25 +0000

Например так... Но я не знаю на VB как должен выглядеть...

strText="89504E470D0A1A0A0000000D4948445200000027000000420803000000E3443FEE000"&_
"0000C504C5445F0EEEEF95353F59393FF04047F58B0FF000000097048597300002E2300002E23"&_
"0178A53F760000014249444154789CED955902C42008434DB8FF9DA7AD4BD9AC1C60FCAA363E1"&_
"0115AF38361251D404D27520242A40414290171EB0A409112F0F6AEE2E1C33A033BEA0C1CA413"&_
"900374022ECE37900BF30D5494EBB380FB061AA7F6401AC41EE8CEB803D20176C007C76B1C800"&_
"0D0930A5D4A208D35658D619069D28A3821E6CC60FB5E1013A2B679AB7CB7749B026F1A7ADB74"&_
"157362EE49B9417D1C1349172D636DAF83F1DE7EEB3889F729E7B943EE7434B762CFA1269C81E"&_
"BF74B1BC035E3B80215671DB267E14AABF523E6C57B46F3E315B6960BA16DC4B49E89A4F3282F"&_
"0BD4897F1A2C7606D43BC35F57D7857A1375CF0DF9C297E87A6AF9040B3A2E9DAF48C11134575"&_
"A32DD0439A0D7ADA70857846C00D4DF50349D4C55A45D5B31B2F104231269D95D2DA12F317D96"&_
"ABBA0BDE5692B9A3EA847AF1794654544EBAE95AC7F103F62B06FEC580AB3F0000000049454E4"&_
"4AE426082"
             
With New RegExp
    .Global = True
    .Pattern = "s"
    strText = .Replace(strText, "")
    .Pattern = "(.{2})"
    strText = .Replace(strText, "%$1")
End With
     
With CreateObject("ADODB.Stream") ' text stream in ISO-8859-1 charset
    .Type = 2
    .Charset = "ISO-8859-1"
    .Open
    .WriteText Unescape(strText)
    .SaveToFile "face.png", 2
    .Close
End With

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (armenxxx1) — Thu, 28 Oct 2010 15:56:56 +0000

Не можно разделить шестнадцатеричный код...

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (alexii) — Wed, 27 Oct 2010 23:13:07 +0000

Слишком длинный текст.

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (armenxxx1) — Wed, 27 Oct 2010 20:36:17 +0000

http://zalil.ru/29880414

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (alexii) — Wed, 27 Oct 2010 20:25:33 +0000

Лучше приведите сам код.

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (armenxxx1) — Wed, 27 Oct 2010 18:41:42 +0000

Не получить то, что я хочу . Когда добавил больше код не получается создать *.png ...

видео... http://zalil.ru/29879647

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (armenxxx1) — Wed, 27 Oct 2010 16:48:26 +0000

Прекрасно работает alexii спасибо

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (alexii) — Wed, 27 Oct 2010 16:20:31 +0000

Я точно не помню, но попробуйте в самый конец, перед «End Sub», добавить:

Unload Me

P.S. В принципе, можно обойтись совсем без формы.

Re: WSH: работа с бинарными данными через ADODB.Stream на VBS

null@example.com (armenxxx1) — Wed, 27 Oct 2010 16:07:14 +0000

alexii пишет:

Ссылки оформляйте тэгом «url».
Это не VBA (Visual Basic for Application — внутренний язык Microsoft Office), а «чистый» VB (Visual Basic). Ну, и? Судя по ролику, всё работает. Что не так? Что Вы подразумеваете под:
Но после создания изображения не останавливается...
Автоматическое закрытие формы «Form1»?

Извините отредактировал...

Да, я хочу "автоматическое закрытие формы «Form1»" Буду очень признателен если вы скажете мне