подскажите , плиз , как занести текст из PictureBox в текстовой файл ?
Нужно , как бы сделать screenshot всего текста в PictureBox. Это очень срочно.
Заранее огромное спасибо за помощь
! | Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Срочно ! Нужна Ваша Помощь !!! |
| Автор: Плохая Девчонка 22.6.2003, 11:39 |
| Вопрос , может , элементарный , но подскажите , плиз , как занести текст из PictureBox в текстовой файл ? Нужно , как бы сделать screenshot всего текста в PictureBox. Это очень срочно. Заранее огромное спасибо за помощь ! |
| Автор: -Mikle- 22.6.2003, 12:17 | ||
Я не понял, как это? Объясни подробней... |
| Автор: ВПлохая Девчонка 22.6.2003, 12:36 |
| В PictureBox находится текст , его нужно скопировать в отдельный текстовой файл ( к примеру в file.txt). P.S. : Вот , например, часть кода для создания нового текст.файла Open App.Path & "\files\" & "file.txt" For Output As #1 Write #1, А что нужно писать здесь  Close #1 |
| Автор: vickr 22.6.2003, 14:08 | ||
 Ты имеешь в виду распознать текст?! Это же нетривиальная задача, ее не решишь за 5 минут. Да и за 5 дней... |
| Автор: Плохая Девчонка 22.6.2003, 15:16 |
| А нельзя просто перекатать всё содержимое picturebox в текст файл , без распознавания текста (как есть , не изменяя). Ну , может есть такой параметр ? (picture1. параметр) |
| Автор: -Mikle- 22.6.2003, 15:20 | ||||
Как он туда попадает? Ты его сама туда печатаешь, или как?
Open App.Path & "\files\" & "file.txt" For Output As #1 Write #1, a$, b$, i& Close #1 Каждая переменная запишется в файл в своем виде, т.е. строковые в кавычках, а длинные как числа. Оператор Write может быть полезен в случаях, когда сохраняемые данные структуризированы, например таблица. Для сохранения текста, лучше использовать оператор Print #1, "Текст" или Print #1, строковая_переменная |
| Автор: Плохая Девочка 22.6.2003, 15:39 |
| "Как он туда попадает? Ты его сама туда печатаешь, или как?" Его туда заносит отдельная функция , она считает , а данные выводит в picturebox , так нужно по условию задания ( это как бы финальный отчёт состоящий из слов и цифр ). |
| Автор: -Mikle- 22.6.2003, 15:42 | ||
Как понять все содержимое? Всю картинку в формате BMP? Если да то можно: SavePicture picture1.image, "c:\myimg.bmp" PS: Кстати, есть способ и для распознавания текста, если он написан всегда одним и тем же шрифтом, одного и тоже размера, и примерно одинакового цвета. |
| Автор: -Mikle- 22.6.2003, 15:51 | ||
Если это твоя функция, то зачем распознавать и сохранять из picturebox? Нужно данные, которые она выводит, запоминать в какой-нибудь переменной, а потом сохранять ее значение: Open App.Path & "\files\file.txt" For output As #1 Print #1, та_самая_переменная_с_отчетом Close #1 Или перед выполнением функции, открыть поток, прям в функции сразу печатать в файл, и закрыть поток. Короче кинь, исходник функции, я тебе добавлю то, что нужно. |
| Автор: Плохая Девчонка 22.6.2003, 16:12 |
| Mikle , ты чудо ! Всё получилось (записала данные в файл прямо из функции , просто в задании просят скопировать отчёт так , как он выводится в picturebox и я думала , что есть пераметр позволяющий скопировать из неё всё содержимое) . спасибо |
| Автор: -Mikle- 22.6.2003, 16:17 |
| Всегда рад помочь. Пиши на мыло, если что. |
| Автор: -Mikle- 22.6.2003, 16:19 |
| mic7581@mail.ru |