Добрый день, уважаемые форумчане! Необходима функция, которая будет переводить текст в изображение, а изображение в base64 с целью дальнейшей вставки в базу данных MySQL. Ну и т.к. исходники изображений будут удаляться, нужна еще, на всякий случай, функция отмены, т.е. возврата к изначальному тексту, т.е. перевода ячейки Excel с base64 кодом в изображение. Задачка непростая, но я так понимаю тут есть люди, которые любят головоломки )
Добрый день, уважаемые форумчане! Необходима функция, которая будет переводить текст в изображение, а изображение в base64 с целью дальнейшей вставки в базу данных MySQL. Ну и т.к. исходники изображений будут удаляться, нужна еще, на всякий случай, функция отмены, т.е. возврата к изначальному тексту, т.е. перевода ячейки Excel с base64 кодом в изображение. Задачка непростая, но я так понимаю тут есть люди, которые любят головоломки )OnaHa
ну даж ненаю... с расшифровкой и записью в файл и получением base64 все просто [vba]
Код
Sub Base64ToFile(Hash$, FilePath$) 'расшифровка base64 и запись в файл Dim ByteArr() As Byte With CreateObject("MSXML2.DOMDocument").createElement("b64") .DataType = "bin.base64" .Text = Hash ByteArr = .nodeTypedValue End With Open FilePath For Binary Access Write As #1 Put #1, 1, ByteArr Close #1 End Sub
[/vba] [vba]
Код
Function Base64FromFile$(FilePath$) 'получение base64 файла Dim ByteArr() As Byte Open FilePath For Binary Access Read As #1 ReDim ByteArr(LOF(1)) Get #1, 1, ByteArr Close #1 With CreateObject("MSXML2.DOMDocument").createElement("b64") .DataType = "bin.base64" .nodeTypedValue = ByteArr Base64FromFile = .Text End With End Function
ну даж ненаю... с расшифровкой и записью в файл и получением base64 все просто [vba]
Код
Sub Base64ToFile(Hash$, FilePath$) 'расшифровка base64 и запись в файл Dim ByteArr() As Byte With CreateObject("MSXML2.DOMDocument").createElement("b64") .DataType = "bin.base64" .Text = Hash ByteArr = .nodeTypedValue End With Open FilePath For Binary Access Write As #1 Put #1, 1, ByteArr Close #1 End Sub
[/vba] [vba]
Код
Function Base64FromFile$(FilePath$) 'получение base64 файла Dim ByteArr() As Byte Open FilePath For Binary Access Read As #1 ReDim ByteArr(LOF(1)) Get #1, 1, ByteArr Close #1 With CreateObject("MSXML2.DOMDocument").createElement("b64") .DataType = "bin.base64" .nodeTypedValue = ByteArr Base64FromFile = .Text End With End Function
Мне нужно функцию в экселе, т.е. есть ячейка, в которой текст "89140050222", в соседней ячейке я пишу =ПЕРЕВОД_В_BASE64IMG и оно мне выдает что-то вроде:
вот это что-то вроде - итог после перевода 891400502222 в изображение, а изображения в base64
И затем обратно с помощью функции =ПЕРЕВОД_ИЗ_BASE64IMG, которая уже будет использовать сервис типа https://www.newocr.com/
В изображение можно перевести с помощью новой функции 2010 Excel-я, т.е. специальная вставка -> изображение
Мне нужно функцию в экселе, т.е. есть ячейка, в которой текст "89140050222", в соседней ячейке я пишу =ПЕРЕВОД_В_BASE64IMG и оно мне выдает что-то вроде: