Re: Crazy CommFort Server Plugin v1.06 [плагин для сервера]
Добавлено: 18:14, 12.05.2011
Через двоеточие (":").Universal писал(а):А как можно поставить несколько каналов в игнор? Через запятую или точку с запятой?
форум поддержки
https://www.commfort.com/ru/forum/
Через двоеточие (":").Universal писал(а):А как можно поставить несколько каналов в игнор? Через запятую или точку с запятой?
Да, правильно. Проверил - работает. Галка "<>" означает "не равно", т.е. НЕ указанные каналы.Universal писал(а):Не работает... Сделал - "main:картинки". Правильно?
А смысл себя обманывать?serg005 писал(а):хотелось бы чтобы выложили кто нибуть свою базу виртуальных пользователей, хотябы чтобы его закинуть к себе и сразу юзеров стало пбольше.прописал учками около 40 человек припотел немного))
Не думаю, что можно через этот плагин, но я знаю, как вытащить доску объявлений в HTML через другой плагинCraSTI писал(а):CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?
Каким способом?ОреЛ писал(а):Не думаю, что можно через этот плагин, но я знаю, как вытащить доску объявлений в HTML через другой плагинCraSTI писал(а):CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?
Я же говорю, что есть отдельный плагин, чтобы выводить все объявления в таблицы. Это уже абсолютно не по теме и просьба по вопросам относительно данной проблемы писать мне лично, а не в этой теме.CraSTI писал(а): Каким способом?
Вот пример экспорта в TXT файл:CraSTI писал(а):CrazyVirus А реально вытащить доску объявлений в HTML режим или php с помощью этого плагина?
Код: Выделить всё
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Код: Выделить всё
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
Код: Выделить всё
<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
4-й параметр у OpenTextFile - это кодировка, -1 = юникод, 0 = ASCII. Чтобы написать кавычку в кавычках, можно сделать так "text ""text2""". Вместо Chr(13) можно использовать vbNewLine. А другие Chr вообще не нужны, можно просто написать нужные символы.CraSTI писал(а): Как кодировку сменить? если я ему написал простенько для html и ничего не выходит;(
это новая строка Chr(13) а в UTF 16 кодировки показывает все слитно без переходов на новую строку, хотя все верно отображает в файле - вот так:
Чтото не помогает ;( кодировка сменилась а текст все равно сплошнойCrazyVirus писал(а):4-й параметр у OpenTextFile - это кодировка, -1 = юникод, 0 = ASCII. Чтобы написать кавычку в кавычках, можно сделать так "text ""text2""". Вместо Chr(13) можно использовать vbNewLine. А другие Chr вообще не нужны, можно просто написать нужные символы.CraSTI писал(а): Как кодировку сменить? если я ему написал простенько для html и ничего не выходит;(
это новая строка Chr(13) а в UTF 16 кодировки показывает все слитно без переходов на новую строку, хотя все верно отображает в файле - вот так: