Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Срочно ! Нужна Ваша Помощь !!! text from picturebox -> to file.txt 
:(
    Опции темы
Плохая Девчонка
  Дата 22.6.2003, 11:39 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Вопрос , может , элементарный , но

подскажите , плиз , как занести текст из PictureBox в текстовой файл ?
Нужно , как бы сделать screenshot всего текста в PictureBox. Это очень срочно.

Заранее огромное спасибо за помощь smile.gif !

  Вверх
-Mikle-
Дата 22.6.2003, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59



Цитата
screenshot всего текста в PictureBox.


Я не понял, как это? Объясни подробней...


--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
ВПлохая Девчонка
Дата 22.6.2003, 12:36 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











В PictureBox находится текст , его нужно скопировать в отдельный текстовой файл ( к примеру в file.txt).

P.S. :

Вот , например, часть кода для создания нового текст.файла

Open App.Path & "\files\" & "file.txt" For Output As #1
Write #1, А что нужно писать здесь confused.gif
Close #1

  Вверх
vickr
Дата 22.6.2003, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 183
Регистрация: 13.5.2003
Где: Санкт-Петербург

Репутация: нет
Всего: нет



Цитата
Вопрос , может , элементарный , но

adv/65.gif
Ты имеешь в виду распознать текст?! Это же нетривиальная задача, ее не решишь за 5 минут. Да и за 5 дней...
--------------------
Каждую секунду, тыкая в клавиши, мы давим насмерть не менее 1000 микробов =:)
PM MAIL   Вверх
Плохая Девчонка
Дата 22.6.2003, 15:16 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











А нельзя просто перекатать всё содержимое picturebox в текст файл , без распознавания текста (как есть , не изменяя). Ну , может есть такой параметр ?
(picture1. параметр)
  Вверх
-Mikle-
Дата 22.6.2003, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59



Цитата
В PictureBox находится текст

Как он туда попадает? Ты его сама туда печатаешь, или как?

Цитата
Вот , например, часть кода для создания нового текст.файла

Open App.Path & "\files\" & "file.txt" For Output As #1
Write #1, А что нужно писать здесь
Close #1


Open App.Path & "\files\" & "file.txt" For Output As #1
Write #1, a$, b$, i&
Close #1
Каждая переменная запишется в файл в своем виде, т.е. строковые в кавычках, а длинные как числа. Оператор Write может быть полезен в случаях, когда сохраняемые данные структуризированы, например таблица. Для сохранения текста, лучше использовать оператор
Print #1, "Текст" или
Print #1, строковая_переменная



--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
Плохая Девочка
Дата 22.6.2003, 15:39 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











"Как он туда попадает? Ты его сама туда печатаешь, или как?"

Его туда заносит отдельная функция , она считает , а данные выводит в picturebox , так нужно по условию задания ( это как бы финальный отчёт состоящий из слов и цифр ).
  Вверх
-Mikle-
Дата 22.6.2003, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59



Цитата
А нельзя просто перекатать всё содержимое picturebox в текст файл , без распознавания текста


Как понять все содержимое? Всю картинку в формате BMP? Если да то можно:

SavePicture picture1.image, "c:\myimg.bmp"

PS: Кстати, есть способ и для распознавания текста, если он написан всегда одним и тем же шрифтом, одного и тоже размера, и примерно одинакового цвета.


--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
-Mikle-
Дата 22.6.2003, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59



Цитата
Его туда заносит отдельная функция , она считает , а данные выводит в picturebox , так нужно по условию задания ( это как бы финальный отчёт состоящий из слов и цифр ).


Если это твоя функция, то зачем распознавать и сохранять из picturebox? Нужно данные, которые она выводит, запоминать в какой-нибудь переменной, а потом сохранять ее значение:

Open App.Path & "\files\file.txt" For output As #1
Print #1, та_самая_переменная_с_отчетом
Close #1

Или перед выполнением функции, открыть поток, прям в функции сразу печатать в файл, и закрыть поток.

Короче кинь, исходник функции, я тебе добавлю то, что нужно.


--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
Плохая Девчонка
Дата 22.6.2003, 16:12 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Mikle , ты чудо !

Всё получилось (записала данные в файл прямо из функции , просто в задании просят скопировать отчёт так , как он выводится в picturebox и я думала , что есть пераметр позволяющий скопировать из неё всё содержимое) .

спасибо smile.gif
  Вверх
-Mikle-
Дата 22.6.2003, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59



Всегда рад помочь. smile.gif Пиши на мыло, если что.


--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
-Mikle-
Дата 22.6.2003, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59





--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0469 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.