VB създаване на картинка

Автор	Съобщение
insecteater Чет, 28.10.10, 21:02	Нямам VB 6 за да експериментирам, но ако съдържанието е прекалено голямо за да се побере в стринга, можеш да го сцепиш на няколко части и след това да ги съединиш като ги записваш или да ги записваш една след друга.
	Отговор  За печат
anonymous Чет, 28.10.10, 21:15	RE: VB създаване на картинка Цитат на insecteater от Четвъртък, 28.10.2010 21:02 ” Нямам VB 6 за да експериментирам, но ако съдържанието е прекалено голямо за да се побере в стринга, можеш да го сцепиш на няколко части и след това да ги съединиш като ги записваш или да ги записваш една след друга. „ Опитах Hex кода да разделя на няколко реда с Enter но също се получава грешка. Ганчо ако в VBS скрипта се успее да се раздели Hex кода на няколко части то и в VB ще действа... защото в VB е използван самия VBS скрипт... Излиза че в VBS може да се използва дълъг Hex кода а в VB не но и при двата когато се раздели на няколко реда Hex кода излиза грешка...
	Отговор  За печат
insecteater Чет, 28.10.10, 21:23	Как разделяш стринга на няколко реда? Например при мен това работи: 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 Като не се занимавам с VisualBasic и не знам каква е алтернативата на heredoc синтаксиса за стрингове.
	Отговор  За печат
танясекс Чет, 28.10.10, 21:30	dreven , не се засягай. Сигурна съм, че Еди е искал да каже, че са преработили твоя VBS сорс на VB . Просто не се е изразил правилно. Не знам дали Ви е известно, че Еди е по на ти с руския, отколкото с българския. Получило се е недоразумение Мир ! редактиран от танясекс на 28.10.10 21:30
	Отговор  За печат
anonymous Чет, 28.10.10, 21:46	dreven хубаво е че ги знаеш браво но ти знаем възможностите така че не е нужно реклама така че ако имаш да казваш нещо по темата кажи помогни и ще съм ти много благодарен ако ли не пак те моля недей да удължаваш темата и да се пълни с излишни мнения. Ганчо за съжаление пак стигнахме до успех при VBS и до грешка в VB...
	Отговор  За печат
anonymous Чет, 28.10.10, 22:28	Измъдрих доста странен метод... strText1 = "89504E470D0A1A0A0000000D4948445200000027000000420803000000E3443FEE0000000C504C5445F0EEEEF95353F59393FF04047F58B0FF000000097048597300002E230" strText2 = "0002E230178A53F760000014249444154789CED955902C42008434DB8FF9DA7AD4BD9AC1C60FCAA363E10115AF38361251D404D27520242A40414290171EB0A409112F0F6AEE2E1C33A033BEA0C1CA413900374022ECE37900BF30D5494EBB380FB061AA7F6401AC41EE8CEB803D20176C007C76B1C8000D0930A5D4A208D35658D619069D28A3821E6CC60FB5E1013A2B679AB7CB7749B026F1A7ADB74157362EE49B9417D1C1349172D636DAF83F1DE7EEB3889F729E7B943EE7434B762CFA1269C81EBF74B1BC035E3B80215671DB267E14AABF523E6C57B46F3E315B6960BA16DC4B49E89A4F3282F0BD4897F1A2C7606D43BC35F57D7857A1375CF0DF9C297E87A6AF9040B3A2E9DAF48C11134575A32DD0439A0D7ADA70857846C00D4DF50349D4C55A45D5B31B2F104231269D95D2DA12F317D96ABBA0BDE5692B9A3EA847AF1794654544EBAE95AC7F103F62B06FEC580AB3F0000000049454E44AE426082" strText = strText1 & strText2
	Отговор  За печат

Коментар