Batya
|
 Posted: Tue May 25, 2010 00:36 Post subject: |
 |
|
| Tol!k wrote: | | Разделителей можно заложить несколько: |
Сделал несколько разделителей:
| Code: | Dim Dlm
'========== Изменяемые параметры ===========================================
Dlm = Array(" - ", " (" , ") " , " ", "_", ".") 'Разделители
'===========================================================================
Dim Arr, F, D
F = filename
For Each D In Dlm
F = Replace(F, D, vbTab)
Next
Arr = split(F & String(10, vbTab), vbTab)
content = Arr(0)
content1 = Arr(1)
content2 = Arr(2)
content3 = Arr(3)
content4 = Arr(4)
content5 = Arr(5)
content6 = Arr(6)
content7 = Arr(7)
content8 = Arr(8)
content9 = Arr(9)
|
Добавлено: Немного упростил скрипт.
| Tol!k wrote: | | 2) при использовании Script Content плодятся его копии |
А чем наличие плагина Expander.wdx лучше копии плагина Script Content plugin?
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Wed May 26, 2010 09:38; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
