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

Здесь содержатся плагины, графические оболочки, наборы смайлов и другие дополнения к CommFort.
Аватара пользователя
CrazyVirus
Сообщения: 747
Зарегистрирован: 13:40, 26.05.2007

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

Сообщение CrazyVirus »

Universal писал(а):А как можно поставить несколько каналов в игнор? Через запятую или точку с запятой?
Через двоеточие (":").
Universal
Сообщения: 22
Зарегистрирован: 11:03, 02.05.2008
Контактная информация:

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

Сообщение Universal »

Не работает... Сделал - "main:картинки". Правильно?
Аватара пользователя
CrazyVirus
Сообщения: 747
Зарегистрирован: 13:40, 26.05.2007

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

Сообщение CrazyVirus »

Universal писал(а):Не работает... Сделал - "main:картинки". Правильно?
Да, правильно. Проверил - работает. Галка "<>" означает "не равно", т.е. НЕ указанные каналы.
Universal
Сообщения: 22
Зарегистрирован: 11:03, 02.05.2008
Контактная информация:

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

Сообщение Universal »

Ой, блин, я же перепутал топики! Не обратил внимания что тут обсуждение серверного плагина. Извиняюсь.
serg005
Сообщения: 57
Зарегистрирован: 16:33, 23.10.2008

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

Сообщение serg005 »

хотелось бы чтобы выложили кто нибуть свою базу виртуальных пользователей, хотябы чтобы его закинуть к себе и сразу юзеров стало пбольше.прописал учками около 40 человек припотел немного))
Чат Commfort сети FreeL@n Республика Коми г. Ухта
версия сервера: 5.80
адрес: 195.22.105.122
Аватара пользователя
ALFRED450
Сообщения: 857
Зарегистрирован: 01:00, 19.09.2007

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

Сообщение ALFRED450 »

serg005 писал(а):хотелось бы чтобы выложили кто нибуть свою базу виртуальных пользователей, хотябы чтобы его закинуть к себе и сразу юзеров стало пбольше.прописал учками около 40 человек припотел немного))
А смысл себя обманывать?
Master-peжим
Адреса сервера:
commfort.su
Аватара пользователя
CraSTI
Сообщения: 89
Зарегистрирован: 20:08, 03.02.2006
Откуда: Орехово-зуево
Контактная информация:

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

Сообщение CraSTI »

CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?
ОреЛ
Сообщения: 376
Зарегистрирован: 11:18, 11.07.2008
Откуда: Ульяновск
Контактная информация:

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

Сообщение ОреЛ »

CraSTI писал(а):CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?
Не думаю, что можно через этот плагин, но я знаю, как вытащить доску объявлений в HTML через другой плагин
Когда пишете программу, всегда думайте о том, что её может затем поддерживать психопат и насильник, который знает где вы живёте.
— Martin Golding
Аватара пользователя
CraSTI
Сообщения: 89
Зарегистрирован: 20:08, 03.02.2006
Откуда: Орехово-зуево
Контактная информация:

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

Сообщение CraSTI »

ОреЛ писал(а):
CraSTI писал(а):CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?
Не думаю, что можно через этот плагин, но я знаю, как вытащить доску объявлений в HTML через другой плагин
Каким способом?
ОреЛ
Сообщения: 376
Зарегистрирован: 11:18, 11.07.2008
Откуда: Ульяновск
Контактная информация:

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

Сообщение ОреЛ »

CraSTI писал(а): Каким способом?
Я же говорю, что есть отдельный плагин, чтобы выводить все объявления в таблицы. Это уже абсолютно не по теме и просьба по вопросам относительно данной проблемы писать мне лично, а не в этой теме.
Когда пишете программу, всегда думайте о том, что её может затем поддерживать психопат и насильник, который знает где вы живёте.
— Martin Golding
Аватара пользователя
CrazyVirus
Сообщения: 747
Зарегистрирован: 13:40, 26.05.2007

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

Сообщение CrazyVirus »

CraSTI писал(а):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
Сообщения: 89
Зарегистрирован: 20:08, 03.02.2006
Откуда: Орехово-зуево
Контактная информация:

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

Сообщение CraSTI »

Спасибо, работает!
Аватара пользователя
CraSTI
Сообщения: 89
Зарегистрирован: 20:08, 03.02.2006
Откуда: Орехово-зуево
Контактная информация:

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

Сообщение 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
Сообщения: 747
Зарегистрирован: 13:40, 26.05.2007

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

Сообщение CrazyVirus »

CraSTI писал(а): Как кодировку сменить? если я ему написал простенько для html и ничего не выходит;(
это новая строка Chr(13) а в UTF 16 кодировки показывает все слитно без переходов на новую строку, хотя все верно отображает в файле - вот так:
4-й параметр у OpenTextFile - это кодировка, -1 = юникод, 0 = ASCII. Чтобы написать кавычку в кавычках, можно сделать так "text ""text2""". Вместо Chr(13) можно использовать vbNewLine. А другие Chr вообще не нужны, можно просто написать нужные символы.
Аватара пользователя
CraSTI
Сообщения: 89
Зарегистрирован: 20:08, 03.02.2006
Откуда: Орехово-зуево
Контактная информация:

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

Сообщение CraSTI »

CrazyVirus писал(а):
CraSTI писал(а): Как кодировку сменить? если я ему написал простенько для html и ничего не выходит;(
это новая строка Chr(13) а в UTF 16 кодировки показывает все слитно без переходов на новую строку, хотя все верно отображает в файле - вот так:
4-й параметр у OpenTextFile - это кодировка, -1 = юникод, 0 = ASCII. Чтобы написать кавычку в кавычках, можно сделать так "text ""text2""". Вместо Chr(13) можно использовать vbNewLine. А другие Chr вообще не нужны, можно просто написать нужные символы.
Чтото не помогает ;( кодировка сменилась а текст все равно сплошной
Ответить