| Автор |
|
| anonymousПон, 30.07.07, 12:21 |
Трябва ми програма с една специфична функция (предполагам някакъв текстов редактор).
Задавам примерно някакъв шаблонен израз, да кажем my_file_(*).jpg Искам програмата да ми генерира списък в текстов вид, според зададени от мен критерии, примерно:
my_file_01.jpg
my_file_02.jpg
my_file_03.jpg
........ или пък
my_file_001.jpg
my_file_002.jpg
my_file_003.jpg
........ или пък
my_file_А.jpg
my_file_B.jpg
my_file_C.jpg
и така нататък. Пробвал съм разни неща но текстов редактор с точно такава функция не съм намирал. Мога да го направя по разни "индиански" начини, но не ми се губи време. Споделете някакви идеи. |
|
| phrozencrewПон, 30.07.07, 13:35 | RE: Генериране на цифрови списъци
” Трябва ми програма с една специфична функция (предполагам някакъв текстов редактор). Задавам примерно някакъв шаблонен израз, да кажем my_file_(*).jpg Искам програмата да ми генерира списък в текстов вид, според зададени от мен критерии, примерно: my_file_01.jpg
my_file_02.jpg
my_file_03.jpg........ или пък my_file_001.jpg
my_file_002.jpg
my_file_003.jpg........ или пък my_file_А.jpg
my_file_B.jpg
my_file_C.jpgи така нататък. Пробвал съм разни неща но текстов редактор с точно такава функция не съм намирал. Мога да го направя по разни "индиански" начини, но не ми се губи време. Споделете някакви идеи. „ Най-бързо можеш да го направиш с Excel или подобните му. Става с влачене на мишката.
Ето пример:
Ето и файл:
http://instr.hit.bg/excel/formula.xls. Другия вариант е да се напише проста програмка на Batch или VBScript. Ето ти един страхотен тутор за VBScript. |
|
| anonymousПон, 30.07.07, 14:54 |
Мерси много, phrozen. Формулката си работи чудесно. Мене ми беше ясно че под ексел може да се направи, но исках нещо по като за индианци. Ей тоя ексел много хитов стана в средите на download.bg. Мерси пак и успехи. |
|
| anonymousПон, 30.07.07, 15:29 |
ако искаш обаче 17849 фаила да създадеш може да си направиш с ч реда програмка от типа цикъл стринг ; променлива неxт боб-фасъл |
|
| anonymousЧет, 09.08.07, 00:20 |
Ей, phrozen, с малко модификация, това екселско файлче дето ми го направи върши нечовешка работа. Спестява ми минути (евентуално часове) индиански изпълнения. Мерси още веднъж!!!
|
|
| electric_ccЧет, 09.08.07, 16:49 | |
|
| anonymousЧет, 09.08.07, 22:11 |
electric_cc, мерси за помощта, но не откривам никакъв макрос във файла, който си ми дал. С офис 2000 съм, ако има някакво значение.
|
|
| insecteaterЧет, 09.08.07, 23:39 |
Хм, и при мен нищо не излиза. На 2003 съм. |
|
| electric_ccПет, 10.08.07, 08:41 |
Току що изтеглих файла и го отворих, работи нормално. На ХР съм. Опитайте се да отворите VisualBasic editor. Може би липсва някоя библиотека. Процедурата е следната: Sub Numbers()
a$ = InputBox("Въветете текст")
If a$ <> "" Then
N = Val(InputBox("Въведете брой повторения"))
x = InStr(a$, ".")
If x > 0 Then
L$ = Left$(a$, x - 1)
R$ = Mid$(a$, x + 1, 4)
t$ = "."
Else
L$ = a$
R$ = ""
t$ = ""
End If
i = 1
While i <= N
a$ = L$ + CStr(i) + t$ + R$ + vbCrLf
ActiveDocument.Application.Selection.TypeText a$
i = i + 1
Wend
End If |
|
| electric_ccПет, 10.08.07, 08:47 |
Ако някой се интересува от достъп до Word документ от друга програма на www.electric-cc.com в секция Download има една статия в която са описани някои методи. |
|
| electric_ccПет, 10.08.07, 15:09 |
Уважаеми колеги, оказа се, че сте прави. За разлика от Excell макросите в Word не остават в документа, който се разпространява. Word си ги запомня някъде, не съм установил точно къде, но работят с всеки документ, който се зареди. Един вид като допълнителни функции на редактора. Същият документ на друг компютър не може да ги ползва, затова не работят при вас. Трябва да използвате комадата Create macros и да копирате процедурата там. Тогава ще заработи. От тази задачка научих още нещо, което не съм го знаел. Успех! |
|
| anonymousПет, 10.08.07, 16:30 |
electric_cc, мисля че при създаването на самия макрос може да се избере къде да се запамети той. Ако избереш да се запази в текущия документ, би трябвало да си стои там. Пробвай:
|
|
| electric_ccСъб, 11.08.07, 09:01 |
ricetek това ми е първият макрос в Word и признавам, че не съм обърнал внимание.
Както казват учените експериментът беше успешен, обаче кучето умря. На работния ми компютър имам Word-XP. Там направих макроса. След това пробах документа на друг компютър с Word2003. Security level беше на Low. Обаче макроса не ще да се стартира. Въобще при четенето на документа не пита за Enable macros. Не знам при теб има ли резултат. На работния компютър като му дам 20000 реда, създава 334 страници. Шрифтът е Arial - размер 10. |
|
| anonymousСъб, 11.08.07, 11:43 |
Така, аз взех кода който е дал electric_cc и го набих в един уърд документ, като дадох сейване на макроса в конкретния документ. При мене се получава. Това което е предложил phrozen на мене ми върши повече работа, но и начина на electric може да намери приложение. Ето какво се получи:  macro1.pngmacro2.pngmacro3.pngmacro4.png |
|
Отговор
За печат
Коментар