Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Текст в Base64 изображение - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Текст в Base64 изображение
Текст в Base64 изображение
OnaHa Дата: Пятница, 28.10.2016, 18:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день, уважаемые форумчане! Необходима функция, которая будет переводить текст в изображение, а изображение в base64 с целью дальнейшей вставки в базу данных MySQL. Ну и т.к. исходники изображений будут удаляться, нужна еще, на всякий случай, функция отмены, т.е. возврата к изначальному тексту, т.е. перевода ячейки Excel с base64 кодом в изображение. Задачка непростая, но я так понимаю тут есть люди, которые любят головоломки )
 
Ответить
СообщениеДобрый день, уважаемые форумчане! Необходима функция, которая будет переводить текст в изображение, а изображение в base64 с целью дальнейшей вставки в базу данных MySQL. Ну и т.к. исходники изображений будут удаляться, нужна еще, на всякий случай, функция отмены, т.е. возврата к изначальному тексту, т.е. перевода ячейки Excel с base64 кодом в изображение. Задачка непростая, но я так понимаю тут есть люди, которые любят головоломки )

Автор - OnaHa
Дата добавления - 28.10.2016 в 18:54
krosav4ig Дата: Суббота, 29.10.2016, 04:46 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1338
Репутация: 533 ±
Замечаний: 0% ±

Excel 2007, 2013
Здравствуйте
Задачка непростая

ну даж ненаю...
с расшифровкой и записью в файл и получением 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
[/vba]
а вот тут что-то непонятно
переводить текст в изображение


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Суббота, 29.10.2016, 23:38
 
Ответить
СообщениеЗдравствуйте
Задачка непростая

ну даж ненаю...
с расшифровкой и записью в файл и получением 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
[/vba]
а вот тут что-то непонятно
переводить текст в изображение

Автор - krosav4ig
Дата добавления - 29.10.2016 в 04:46
OnaHa Дата: Суббота, 29.10.2016, 16:45 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Мне нужно функцию в экселе, т.е. есть ячейка, в которой текст "89140050222", в соседней ячейке я пишу =ПЕРЕВОД_В_BASE64IMG и оно мне выдает что-то вроде:



вот это что-то вроде - итог после перевода 891400502222 в изображение, а изображения в base64

И затем обратно с помощью функции =ПЕРЕВОД_ИЗ_BASE64IMG, которая уже будет использовать сервис типа https://www.newocr.com/

В изображение можно перевести с помощью новой функции 2010 Excel-я, т.е. специальная вставка -> изображение
 
Ответить
СообщениеМне нужно функцию в экселе, т.е. есть ячейка, в которой текст "89140050222", в соседней ячейке я пишу =ПЕРЕВОД_В_BASE64IMG и оно мне выдает что-то вроде:



вот это что-то вроде - итог после перевода 891400502222 в изображение, а изображения в base64

И затем обратно с помощью функции =ПЕРЕВОД_ИЗ_BASE64IMG, которая уже будет использовать сервис типа https://www.newocr.com/

В изображение можно перевести с помощью новой функции 2010 Excel-я, т.е. специальная вставка -> изображение

Автор - OnaHa
Дата добавления - 29.10.2016 в 16:45
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Текст в Base64 изображение
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!