Batya
|
 Posted: Mon May 21, 2007 17:36 Post subject: |
 |
|
5. Создать 3 папки (по количеству выводимых колонок) плагина Script Content. Переименовать в них файлы wdx, чтобы имена не были совпадающими. Например: script4.wdx, script5.wdx, script6.wdx.
6. В каждой из этих папок файл script.ini (не переименовывать!!!) должен содержать:
| Code: |
[Script]
Section=Content of csv
[Content of csv]
Script=csvContent.vbs
LongName=1
ParseDirs=1
|
7. В каждой из этих папок должен быть файл csvContent.vbs с содержимым:
| Code: |
Dim FSO, NumCol, csv
'==============================
NumCol = 2
csv = "Customers.csv"
'==============================
Set FSO = CreateObject("Scripting.FileSystemObject")
content = ""
If FSO.FolderExists(FileName) Then
Dim Fold, csvPath, OTF, fText, fArr, i
Set Fold = FSO.GetFolder(Filename)
csvPath = Fold.ParentFolder.Path & "\" & csv
If FSO.FileExists(csvPath) Then
Set OTF = FSO.OpenTextFile(csvPath, 1, False)
fText = OTF.ReadAll
OTF.Close
fArr = Split(fText, vbNewLine, -1, 1)
For i = 1 To UBound(fArr)
If InStr(1, "*" & Split(fArr(i), ";", -1, 1)(0) & "*", "*" & Fold.Name & "*", 1) > 0 Then
content = Split(fArr(i), ";", -1, 1)(NumCol - 1)
End If
Next
End If
End If
|
Причем, эти файлы в каждой папке будут отличаться друг от друга третьей строкой "NumCol = NNN", где NNN - номер колонки из csv-файла, содержимое которой необходимо показывать в колонках TC. Соответственно, для каждой папки это будет "NumCol = 2", "NumCol = 3" и "NumCol = 4".
8. Подключить плагины script4.wdx, script5.wdx, script6.wdx.
9. Выполнить команду TC "Конфигурация\Настройка\Наборы колонок". Нажать кнопку "Новый". Настроить набор по прилагаемому скриншоту:
10. После настройки набора и сохранения настроек выполняем команду TC "Вид\Пользовательский набор колонок\Мой набор". |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
