Re: Обработка текста из Clipborda
12/02/2008 23:36:12
#Link
типсы:
1. в ВБА слово Application. можно не использовать т.к. этот объект используется по умолчанию, т.е. можно писать Documents.Count.
2. во всех объектных массивах слово .Item тоже не обязательно - оно используется по умолчанию, например:
do while Documents.Count: Documents(1).Close: loop
Re: Обработка текста из Clipborda
13/02/2008 11:00:30
#Link
подскажите почему не работает вот такой простой код
Open "d:/text3.txt" For Output As #1
For i = 1 To ListBox1.ListCount
Print #1, "Hello"
Next i
Close #1
причем вроде
ListBox1.ListCount=2
Re: Обработка текста из Clipborda
13/02/2008 12:45:05
#Link
Нумарация элементов в массиве начинается с нуля. Т.е.:
For i = 0 To ListBox1.ListCount
И зачем тебе фаил, если как я понимаю у тебя все элементы в листе должны быть, а если не так, то зачем тебе листбокс?
Re: Обработка текста из Clipborda
13/02/2008 13:51:10
#Link
мне надо чтоб список и на экран отобразился и чтоб в файл сохранился...
Re: Обработка текста из Clipborda
13/02/2008 14:35:31
#Link
Значит надо просто три процедуры (или ф-ции)
Первая - считывает из файла в ЛистБокс
Вторая - для редактирования данных в ЛистБоксе
Третья - для записи данных листбокса в фаил обратно
Re: Обработка текста из Clipborda
14/02/2008 10:01:23
#Link
Я делаю следующее (практически готово - сорри что пишу, в основном для себя, чтоб мысли выстроить)
вообщем у мена макрос перерегистрации макетов (каждый макет имеет некий номер, например 25024000а, где 25 число, 02 месяц, 4000 порядковый номер, а - буква вариантов (иногда делается несколько вариантов макета abcde), макеты хранятся в структурированном каталоге (по годам, по месяцам, по дням)периодически старым номерам присваивается новый номер (например через полгода), номер макета также присутствует на самом макете (меленько в углу), все макеты которые должны быть в издании экспортируются в папку в формате eps - если он есть то обозначим это 1, если его в этой папке нету то 0. Часть макетов идет без перерегистрации, часть с оной - в итоге имеем следующий список:
новый____старый___метка
10020001 06091000 0 'старый макет был в сентябре 2007 г, новый сохраняется в феврале
10020002 06091001b 0
10020003 06091002 1
10020004 0
10020005 1
Там где в конце есть 1, ничего не делаем
Там где 0 и есть старый номер производим перерегистрацию (пересохранение с новым номером) и экспортируем.
Порядок такой
0) чтение строки из файла, разбиение ее на части (новый и старый номер, метка), там где метка 0 выполнять следующее
1) определяю год старого и нового макета
2) Определение издания (для разных газет - разные папки экспорта)
3) проверка на непустые поля
4) Определение путей открытия, сохранения, путей экспорта
5) Проверка на существование этих путей
6) Проверка на существование файлов (чтоб не перезатереть если они уже есть)
7) Открытие макета
8) Поиск и замена номера в макете
9) Сохранение и экспорт макета - вернуться к п.0
Re: Обработка текста из Clipborda
14/02/2008 12:33:04
#Link
Блин, сборище ботанов программистов...
По моему корел нужен, чтобы в нем рисовать а не заниматься программингом, хотя ента возможность там тоже есть, но не таким же фанатизмом?
Re: Обработка текста из Clipborda
14/02/2008 13:30:05
#Link
Это работа... на которую тратятся несколько часов в день... если немного покумекать и написать макрос, то это будет занимать несколько минут... Никакого фанатизма - просто не хочется делать мартышкину работу
Re: Обработка текста из Clipborda
14/02/2008 14:37:26
#Link
М-да... представляю что происходит у Вас под новый год )) Как я понял это для газеты все делается, так вот: тут без БД не обойтись (хотя как догадываюсь она есть), надо что бы в ней хранилась инфа по тому когда и где выходит макет, а у макета просто был свой номер.
Для нескольких вариантов для макета, то в кореле страницы для этого придуманы. И зачем дату пихать в имя файла если ее можно узнать с помощью FileDateTime() да и хранить все изменения можно тоже на страницах в файле.
Re: Обработка текста из Clipborda
14/02/2008 17:18:40
#Link
Такая структура файлов как у нас достаточно удобна, она уже длительное время работает по всей стране (Новый год тут не причем, я работаю в газете своего имени в Твери). Я не могу ломать и менять эту систему, приходится вертеться в ней - вот и придумываю выходы...
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=7038&start=10