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

[CrazyVirus]

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

Вместо сносов добавляй "<br>", т.к. в HTML сносы не учитываются. Да и "charset=utf-16" тогда уже.

[CraSTI]

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

Вместо сносов добавляй "<br>", т.к. в HTML сносы не учитываются. Да и "charset=utf-16" тогда уже.

ОООО пошли переходы:)

[CraSTI]

CrazyVirus: Вот что у меня вышло
Добавь в плагин дату в действие - а то как то странно время есть а даты нет:)


Вот что у меня в итоге получилось:

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

file = "D:\WebServers\home\10.224.77.7\www\board\board.php"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(file, 2, True, -0)
cat = cp.GetBulletinsCat("")

f.WriteLine "<br>"&"<b>Время обновления доски объявлений:</b> %h%:%m%:%s%"&"<br>"

For i = 0 To UBound(cat) Step 3


  f.WriteLine  "<br>"&"<b>Категория:</b> " & cat(i+1)& "<br>"
  if cat(i+2)<>"" then
    f.WriteLine "<b>Описание Категории:</b> " & cat(i+2)& "<br>"
  end if

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

    f.WriteLine "<b>Содержимое сообщения:</b> " & "<br>" & bl(4) & "<br>"& "<br>"
  Next
  f.WriteLine "------------------------------------------------------" & "<br>"
Next
f.Close

Вот так выглядит


А реально куда нить на ftp заливать доску? Просто сервак локальный я хотел бы доску выкинуть в инет

[CrazyVirus]

CrazyVirus: Вот что у меня вышло
Добавь в плагин дату в действие - а то как то странно время есть а даты нет:)

Вот так:
f.WriteLine "<br>"&"<b>Время обновления доски объявлений:</b> "&Now&"<br>"

А реально куда нить на ftp заливать доску? Просто сервак локальный я хотел бы доску выкинуть в инет

http://forum.xakep.ru/m_861206/tm.htm
Не проверял.

[NoNames34]

подскажите как исправить, добавил в крейзи плагин для севера тот код что щас указал CraSTI
поставил выполнять по таймеру каждый день. файл плагин сформировал но самих объявлений почему-то там нет только заголовок :
Время обновления доски объявлений: 30.05.2011 15:46:00


Самфайл формируется, без проблем...

ссылка на объявления http://dos74.ru/stati/alfakom/board-commfort.html

заранее благодарю за ответ

[CraSTI]

NoNames34: не делай обновление по таймеру фигня это, сделать событие по добавлению нового объявления - это снизить нагрузку малую но все же

вот мой код http://govnokod.com/4527
вот скрины
http://s1.ipicture.ru/uploads/20110530/g41T4VPT.png

[CraSTI]

CrazyVirus Ну вообще круть теперь!)))) спасибо.)

[Yaroslav]

Блин, ну почему vbs? Вирус, вернись на LUA, как в старые добрые времена.

[CrazyVirus]

Блин, ну почему vbs? Вирус, вернись на LUA, как в старые добрые времена.

В Lua нет поддержки UTF-16.

[Yaroslav]

Блин, ну почему vbs? Вирус, вернись на LUA, как в старые добрые времена.

В Lua нет поддержки UTF-16.

Бида, а в линуксе траблы с VBS

Посмотри это: http://www.gamedev.ru/code/forum/?id=139048

говорят, что вот это подерживает двухбайтовый уникод
http://luaplus.org/
Lua Core Enhancements:
16-bit wide character string support.

http://www.squirrel-lang.org/
Unicode
By default Squirrel strings are plain 8-bits ASCII characters; however if the symbol 'SQUNICODE' is defined the VM, compiler and API will use 16-bits characters.

[CrazyVirus]

говорят, что вот это подерживает двухбайтовый уникод
http://luaplus.org/
Lua Core Enhancements:
16-bit wide character string support.

http://www.squirrel-lang.org/
Unicode
By default Squirrel strings are plain 8-bits ASCII characters; however if the symbol 'SQUNICODE' is defined the VM, compiler and API will use 16-bits characters.

LuaPlus использовал, но то ли я кривой, то ли он толком недоделанный...
На счет сквирла в курсе, даже немного потренировался.

[Yaroslav]

говорят, что вот это подерживает двухбайтовый уникод
http://luaplus.org/
Lua Core Enhancements:
16-bit wide character string support.

http://www.squirrel-lang.org/
Unicode
By default Squirrel strings are plain 8-bits ASCII characters; however if the symbol 'SQUNICODE' is defined the VM, compiler and API will use 16-bits characters.

LuaPlus использовал, но то ли я кривой, то ли он толком недоделанный...
На счет сквирла в курсе, даже немного потренировался.

Я буду ждать и надеяться.

[CraSTI]

CrazyVirus: а там реально коменты от объяв вывести ?

[NoNames34]

и еще пожелание - чтобы работало даже когда сервер чата и веб сервер находятся на разных машинах.

[CrazyVirus]

CrazyVirus: а там реально коменты от объяв вывести ?

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

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)
    if bl(8)>0 then
      f.WriteLine "---"
      For u = 0 To UBound(bl(9)) Step 4
        f.WriteLine bl(9)(u+2) & " | " & bl(9)(u+1)
        f.WriteLine bl(9)(u+3)
      Next
    end if
  Next
  f.WriteLine "-------------------------------------------------"
Next
f.Close

и еще пожелание - чтобы работало даже когда сервер чата и веб сервер находятся на разных машинах.

Что работало?