بخصوص المنتدى .. للاستاذ رمضان

السلام عليكم ورحمة الله وبركاته

أنا من أشد المعجبين بهذا المنتدى ويهمني ظهوره بشكل ممتاز للجميع

واقترح عليك يا أستاذ رمضان إضافة Hack جديد لهذا المنتدى لإضافة أكواد الفيجوال بيسك بحيث إذا تمت كتابة

[vbcode]

..

..

code

..

..

[/vbcode]

يقوم برنامج المنتدى بتنسيق الكود وإظهاره بالالوان ولعمل ذلك ارجو ان تقوم بعمل التالي مشكورا

في الملف functions.php أضف الكود التالي في السطر 425 بعد عدة أسطر من الكود الخاص بـ $replacearray

if (!function_exists("visbasparse")) {
  global $kw;
  if ($incp) {
    include("./visbas.php");
  } else {
    include("./admin/visbas.php");
  }
}
$searcharray[] = "/([)(vbcode)(])(rn)*(.*)([/vbcode])/esiU";
$replacearray[] = "visbasparse('5')";

ثم قم بإنشاء ملف باسم visbas.php وضعه في مجلد admin وضع فيه هذا الكود

<?php
error_reporting(7);
$kw=array("#Const","#If","Abs","Add","Alias","And","Any","AppActivate","Array","As","Asc","Atn","Base","Beep",
"Boolean","Byte","ByVal","CBool","CByte","CCur","CDBl","CDate","CDec","CInt","CLng","CSng","CStr","CVErr","CVar",
"Call","Case","ChDir","ChDrive","Chr","Clear","Close","Collection","Command","Compare","Const","Cos","CreateObject",
"CurDir","Currency","DDB","Date","DateAdd","DateDiff","DatePart","DateSerial","DateValue","Day","Debug","Declare",
"DefBool","DefByte","DefCur","DefDate","DefDbl","DefDec","DefInt","DefLng","DefObj","DefSng","DefStr","DefVar",
"DeleteSetting","Dim","Dir","Do","DoEvents","Double","EOF","Each","Else","ElseIf","End","Endif","Environ","Eqv",
"Erase","Err","Error","Exit","Exp","Explicit","FV","FileAttr","FileCopy","FileDateTime","FileLen","Filelen","Fix",
"For","Format","Function","Get","GetAllSettings","GetAttr","GetObject","GetSetting","Global","GoSub","GoTo","Hex",
"Hour","IIR","IPmt","If","Imp","In","InStr","Input #","Int","Integer","Is","IsArray","IsDate","IsEmpty","IsError",
"IsMissing","IsNull","IsNumeric","IsObject","Item","Kill","LBound","LCase","LOF","LSet","LTrim","Left","Len","Let",
"Lib","Like","Line Input #","Loc","Lock","Log","Long","Loop","MIRR","Me","Mid","Minute","MkDir","Mod","Module",
"Month","MsgBox","NPV","NPer","Name","New","Next","Not","Now","Object","Oct","On","Open","Option","Or","PPmt","PV",
"Pmt","Print","Print #","Private","Property","Public","Put","QBColor","RGB","RSet","RTrim","Raise","Randomize",
"Rate","ReDim","Remove","Reset","Resume","Return","Right","RmDir","Rnd","SLN","SYD","SaveSetting","Second","Seek",
"Select","SendKeys","Set","SetAttr","Sgn","Shell","Sin","Single","Space","Spc","Sqr","Static","Step","Stop","Str",
"StrComp","StrConv","String","Sub","Switch","Tab","Tan","Then","Time","TimeSerial","TimeValue","Timer","To","Trim",
"Type","TypeName","UBound","UCase","Unlock","Until","Val","VarType","Variant","Weekday","Wend","While","Width #",
"With","Write #","Xor","Year",
"Optional","InStrRev","Replace","Split","Join");

function visbasparse($text) {
  global $kw;

  $text=str_replace("'", "'", $text);

    $lines=explode("n",$text);
    $val="";
    while (list($brr,$line)=each($lines)) {

        if (substr(trim($line),0,1)=="'" or strtolower(substr(trim($line),0,4))=="rem ") {
            $line="";
        } else {
            $quoteplace=strrpos($line,"'");
            if ($quoteplace>0) {
                $beforequote=substr($line,0,$quoteplace);
                if (countchar($beforequote,""")%2==0) {
                    $afterquote="";
                    $codebit=$beforequote;
                } else {
                    $afterquote="";
                    $codebit=$line;
                }
            } else {
                $afterquote="";
                $codebit=$line;
            }

            reset ($kw);

            $codebit=" $codebit";
            while (list($key,$keyword)=each($kw)) {

                $codebit=ereg_replace("([rn()>, .])$keyword([rn <,.$()])","12",$codebit);

            }
            $codebit=substr($codebit,1);

            if ($afterquote!="") {
                $line=$codebit.$afterquote;
            } else {
                $line=$codebit;
            }
        }
        $val.=$line;
    }

  $val=str_replace("'", "'", $val);
  $val = str_replace(""",""",$val);
  if (substr($val,0,1)=="n" or substr($val,0,1)=="r") {
    $val=substr($val,1);
  }
  return "

visual basic code:" . str_replace("
", "", $val) . "

"; } ?>

بعدها يستطيع مستخدمي المنتدى من استخدام [vbcode] لكتابة الأكواد بالالوان وبشكل جميل

أرجو أن نرى هذه الميزة في منتدانا عن قريب ان شاء الله

مع تمنياتي لكم بالتوفيق