Batya
|
 Posted: Mon Mar 26, 2007 11:42 Post subject: |
 |
|
Теперь по вопросу II.
Здесь уже не обойтись без Script Content Plugin.
Создаешь несколько новых папок этого плагина - по количеству параметров в файлах in4. В этих папках должно быть по 3 файла:
- script1.wdx - перименованный script.wdx - в каждой папке уникальное имя этого файла
- in4Content.vbs - исполняемый скрипт (о содержимом чуть ниже)
- script.ini - инишник плагина - переименовывать нельзя!
Содержимое script.ini:
| Code: | [Script]
Section=Content of in4
[Content of in4]
Script=in4Content.vbs
LongName=1
ParseDirs=0
|
Содержимое in4Content.vbs:
| Code: | Dim FSO, sExt, Find
'==============================
Find = "MB"
'==============================
Set FSO = CreateObject("Scripting.FileSystemObject")
sExt = LCase(FSO.GetExtensionName(Filename))
Select Case sExt
Case "in4"
Dim oFile, fText, StrBegin, StrEnd, StrLen
Set oFile = FSO.OpenTextFile(Filename, 1)
fText = oFile.ReadAll
oFile.Close
StrBegin = InStr(1, fText, Find & "=", vbTextCompare)
StrEnd = InStr(StrBegin, fText, vbNewLine, vbTextCompare)
content = Mid(fText, StrBegin + Len(Find & "="), StrEnd - StrBegin - Len(Find & "="))
Case Else
content = ""
End Select
|
При этом содержимое in4Content.vbs в различных папках будет отличаться только определением переменной Find - здесь в скрипте в каждой папке для этой переменной нужно задать свой искомый в файлах in4 параметр, т.е. "MB", "SC", "AD" или "NM".
Затем подключаем все новые контентные плагины (wdx) и создаем набор колонок с результатми этих плагинов. Колонки можно назвать, как и параметры в in4. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
