Crazy CommFort Server Plugin v1.09 [плагин для сервера]

[CrazyVirus]

А как можно поставить несколько каналов в игнор? Через запятую или точку с запятой?

Через двоеточие (":").

[Universal]

Не работает... Сделал - "main:картинки". Правильно?

[CrazyVirus]

Не работает... Сделал - "main:картинки". Правильно?

Да, правильно. Проверил - работает. Галка "<>" означает "не равно", т.е. НЕ указанные каналы.

[Universal]

Ой, блин, я же перепутал топики! Не обратил внимания что тут обсуждение серверного плагина. Извиняюсь.

[serg005]

хотелось бы чтобы выложили кто нибуть свою базу виртуальных пользователей, хотябы чтобы его закинуть к себе и сразу юзеров стало пбольше.прописал учками около 40 человек припотел немного))

[ALFRED450]

хотелось бы чтобы выложили кто нибуть свою базу виртуальных пользователей, хотябы чтобы его закинуть к себе и сразу юзеров стало пбольше.прописал учками около 40 человек припотел немного))

А смысл себя обманывать?

[CraSTI]

CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?

[ОреЛ]

CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?

Не думаю, что можно через этот плагин, но я знаю, как вытащить доску объявлений в HTML через другой плагин

[CraSTI]

CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?

Не думаю, что можно через этот плагин, но я знаю, как вытащить доску объявлений в HTML через другой плагин

Каким способом?

[ОреЛ]

Каким способом?

Я же говорю, что есть отдельный плагин, чтобы выводить все объявления в таблицы. Это уже абсолютно не по теме и просьба по вопросам относительно данной проблемы писать мне лично, а не в этой теме.

[CrazyVirus]

CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?

Вот пример экспорта в TXT файл:

Код: Выделить всё

file = "C:\text.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(file, 2, True, -1)
cat = cp.GetBulletinsCat("")
For i = 0 To UBound(cat) Step 3
  f.WriteLine cat(i+1)
  if cat(i+2)<>"" then
    f.WriteLine cat(i+2)
  end if
  f.WriteBlankLines 1 
  bull = cp.GetBulletins(cat(i))
  For y = 0 To UBound(bull) Step 5
    f.WriteLine bull(y+3) & " | " & bull(y+2) & " | " & bull(y+1)
    bl = cp.GetBulletin(bull(y))
    f.WriteLine bl(4)
  Next
  f.WriteLine "-------------------------------------------------"
Next
f.Close

Переделать под HTML или PHP, думаю, не составит труда.

[CraSTI]

Спасибо, работает!

[CraSTI]

CrazyVirus:
Вот так отредактировал а вот что получается

Код: Выделить всё

file = "D:\WebServers\home\10.224.77.7\www\board.html"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(file, 2, True, -1)
cat = cp.GetBulletinsCat("")
f.WriteLine "<meta http-equiv="+Chr(47)+"Content-Type"+Chr(47)+"content="+Chr(47)+"text/html; charset=utf-8"+Chr(47)+">"
f.WriteLine "<А НREF="+Chr(34)+"http:"+Chr(47)+""+Chr(47)+"10.224.77.27"+Chr(34)+">Главная"+Chr(60)+""+Chr(47)+"А"+Chr(62)+"" 
For i = 0 To UBound(cat) Step 3
 

  f.WriteLine "Раздел: " & cat(i+1)
  if cat(i+2)<>"" then
    f.WriteLine "Описание раздела: " & cat(i+2)
  end if

  f.WriteBlankLines 1 
  bull = cp.GetBulletins(cat(i))
  For y = 0 To UBound(bull) Step 5
   
f.WriteLine "Раздел: " & bull(y+3) & Chr(13) & "Автор: "  & bull(y+2) & Chr(13) & "Дата\Время: " & bull(y+1) & Chr(13) 
    bl = cp.GetBulletin(bull(y))

    f.WriteLine "Содержимое сообщения: " & Chr(13) & bl(4)
  Next
  f.WriteLine "-------------------------------------------------"
Next
f.Close

Как кодировку сменить? если я ему написал простенько для html и ничего не выходит;(
это новая строка Chr(13) а в UTF 16 кодировки показывает все слитно без переходов на новую строку, хотя все верно отображает в файле - вот так:

Код: Выделить всё

<meta http-equiv=/Content-Type/content=/text/html; charset=utf-8/>
<А НREF="http://10.224.77.27">Главная</А>
Раздел: Новости
Описание раздела: Новости

Раздел: Новые тарифы
Автор: Пряничек
Дата\Время: 24.05.2011 19:52:19

Содержимое сообщения: 
Новые тарифы по ссылке

http://www.ozmatrix.ru/ozprice_tz1

[CrazyVirus]

Как кодировку сменить? если я ему написал простенько для html и ничего не выходит;(
это новая строка Chr(13) а в UTF 16 кодировки показывает все слитно без переходов на новую строку, хотя все верно отображает в файле - вот так:

4-й параметр у OpenTextFile - это кодировка, -1 = юникод, 0 = ASCII. Чтобы написать кавычку в кавычках, можно сделать так "text ""text2""". Вместо Chr(13) можно использовать vbNewLine. А другие Chr вообще не нужны, можно просто написать нужные символы.

[CraSTI]

Как кодировку сменить? если я ему написал простенько для html и ничего не выходит;(
это новая строка Chr(13) а в UTF 16 кодировки показывает все слитно без переходов на новую строку, хотя все верно отображает в файле - вот так:

4-й параметр у OpenTextFile - это кодировка, -1 = юникод, 0 = ASCII. Чтобы написать кавычку в кавычках, можно сделать так "text ""text2""". Вместо Chr(13) можно использовать vbNewLine. А другие Chr вообще не нужны, можно просто написать нужные символы.

Чтото не помогает ;( кодировка сменилась а текст все равно сплошной