Взято отсюда

Alphabetical Forum Filtering

Description:
Add an alphabetical forum filtering on Forumdisplay.

Installation:
Import "product-alphabetical_forum_filter.xml" as a product, overwrite if it's already installed
Where to set option:
Settings-> Options-> Forum Display Options (forumdisplay)->
Forums to Enable Alphabetical Filtering

Languages:
- English

History:
25-12-10: v4.0 First Release
26-12-10: v4.0.1 Fixed css problems when storing css as files. Added a vBulletin Setting to choose forums where enable

----------
I did not add any setting or option to this mod. I would like that you decide which settings or options should be added. Please post feedback in thread.

This hack is created for your use free of charge. No payment is requested. However, if you would like to donate money for the work I put in to this hack, a donation would show your appreciation.

Ок! Огромное спасибо. Именно то что нужно!
У кого-нибудь есть идеи как прикрутить к нему русский алфавит? Пробовал менять рег. выр. \"^[a-zA-Z]\" на \"^[а-яА-Я]\" в XML - безрезультатно...

Что-ж...Настроил сам...)))
Может кому-то пригодится:
Идём в аминпанель - управление модулями - Add Alphabetical Forum Filtering(forumdisplay_complete)

Меняем код на такой:

PHP Code:

if (in_array($foruminfo['forumid'], explode(',', $vbulletin->options['forumfiltering_forums'])))
{
    $url = fetch_seo_url('forum', $foruminfo, $pageinfo_pagenav);

    $selectedletter =& $ltr;

    $currentletter = $vbphrase['reset'];
    $linkletter = urlencode('reset');
    $show['selectedletter'] = $selectedletter == 'reset' ? true : false;
    $templater = vB_Template::create('forumdisplay_letter');
    $templater->register('url', $url);
    $templater->register('currentletter', $currentletter);
    $templater->register('linkletter', $linkletter);
    $letterbits = $templater->render();

    $currentletter = '#';
    $linkletter = urlencode('#');
    $show['selectedletter'] = $selectedletter == '#' ? true : false;
    $templater = vB_Template::create('forumdisplay_letter');
    $templater->register('url', $url);
    $templater->register('currentletter', $currentletter);
    $templater->register('linkletter', $linkletter);
    $letterbits .= $templater->render();

    for ($i = 192; $i < 198; $i++)
    {
        $currentletter = chr($i);
        $linkletter =& $currentletter;
        $show['selectedletter'] = $selectedletter == $currentletter ? true : false;
        $templater = vB_Template::create('forumdisplay_letter');
        $templater->register('url', $url);
        $templater->register('currentletter', $currentletter);
        $templater->register('linkletter', $linkletter);
        $letterbits .= $templater->render();
    }
    for ($i = 198; $i < 218; $i++)
    {
        $currentletter = chr($i);
        $linkletter =& $currentletter;
        $show['selectedletter'] = $selectedletter == $currentletter ? true : false;
        $templater = vB_Template::create('forumdisplay_letter');
        $templater->register('url', $url);
        $templater->register('currentletter', $currentletter);
        $templater->register('linkletter', $linkletter);
        $letterbits .= $templater->render();
    }
        for ($i = 221; $i < 224; $i++)
    {
        $currentletter = chr($i);
        $linkletter =& $currentletter;
        $show['selectedletter'] = $selectedletter == $currentletter ? true : false;
        $templater = vB_Template::create('forumdisplay_letter');
        $templater->register('url', $url);
        $templater->register('currentletter', $currentletter);
        $templater->register('linkletter', $linkletter);
        $letterbits .= $templater->render();
    }
    $templater = vB_Template::create('forumdisplay_letters');
    $templater->register('letterbits', $letterbits);
    $template_hook['forumdisplay_above_threadlist'] .= $templater->render();
} 


Далее:
аминпанель - управление модулями - Alphabetical Forum Filtering(forumdisplay_query_threadid)

Меняем код на:

PHP Code:

if (in_array($foruminfo['forumid'], explode(',', $vbulletin->options['forumfiltering_forums'])))
{
    if (!empty($ltr))
    {
        switch($ltr)
        {
            case 'reset':
                break;
            case '#':
                $hook_query_where .= " AND thread.title NOT REGEXP(\"^[а-яА-Я]\")";
                break;
            default:
                $ltr = chr(intval(ord($ltr)));
                $hook_query_where .= " AND thread.title LIKE(\"" . $db->escape_string_like($ltr) . "%\")";
        }
    }
} 


зы Наверное криво переделал, но на 4.0.8 работает!))