Code Highlighter Beta Deneme

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    FCN
    FCN's avatar
    Kayıt Tarihi: 28/Eylül/2007
    Erkek

     

    
    
    <SCRIPT LANGUAGE="JavaScript">
    <!--
     function nameDefined(ckie,nme)
    {
       var splitValues
       var i
       for (i=0;i<ckie.length;++i)
       {
          splitValues=ckie[i].split("=")
          if (splitValues[0]==nme) return true
       }
       return false
    }
    
    function delBlanks(strng)
    {
       var result=""
       var i
       var chrn
       for (i=0;i<strng.length;++i) {
          chrn=strng.charAt(i)
          if (chrn!=" ") result += chrn
       }
       return result
    }
    function getCookieValue(ckie,nme)
    {
       var splitValues
       var i
       for(i=0;i<ckie.length;++i) {
          splitValues=ckie[i].split("=")
          if(splitValues[0]==nme) return splitValues[1]
       }
       return ""
    }
    function insertCounter() {
     readCookie()
     displayCounter()
    }
     function displayCounter() {
     document.write('<H3 ALIGN="CENTER">')
     document.write("You've visited this page ")
     if(counter==1) document.write("the first time.")
     else document.write(counter+" times.")
     document.writeln('</H3>')
     }
    function readCookie() {
     var cookie=document.cookie
     counter=0
     var chkdCookie=delBlanks(cookie)  //are on the client computer
     var nvpair=chkdCookie.split(";")
     if(nameDefined(nvpair,"pageCount"))
     counter=parseInt(getCookieValue(nvpair,"pageCount"))
     ++counter
     var futdate = new Date()
     var expdate = futdate.getTime()
     expdate += 3600000 * 24 *30  //expires in 1 hour
     futdate.setTime(expdate)
    
     var newCookie="pageCount="+counter
     newCookie += "; expires=" + futdate.toGMTString()
     window.document.cookie=newCookie
    }
    // -->
    </SCRIPT>
    

    js  kodu ekleyip tekrar düzenleyince editörde kod gözükmüyor

     


  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    O Şimdi Astek
    deja-vu
    deja-vu's avatar
    Kayıt Tarihi: 07/Aralık/2007
    Erkek

    bibok anlamıyom zaten yazılanlardan boşver:Dha kaymııış ha kaymamışş


    Almanya Fatihi
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Holyzone
    Holyzone's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 13/Ekim/2008
    Erkek

    #h1{background-color:#fff;}
    #h1 a{color:#ccc;}
    #h1 li{color:#ee;}

  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    pc_worm
    pc_worm's avatar
    Banlanmış Üye
    Kayıt Tarihi: 07/Haziran/2002
    Erkek
    Sub KATALOG()
    Application.ScreenUpdating = False
    Dim i, slu, slr, slf, k, tmp, tmb, m, l, b, u As Integer
    Dim t As String
    Dim r As Boolean
    Dim harf(28) As String
    harf(1) = "A"
    harf(2) = "B"
    harf(3) = "C"
    harf(4) = "D"
    harf(5) = "E"
    harf(6) = "F"
    harf(7) = "G"
    harf(8) = "H"
    harf(9) = "I"
    harf(10) = "J"
    harf(11) = "K"
    harf(12) = "L"
    harf(13) = "M"
    harf(14) = "N"
    harf(15) = "O"
    harf(16) = "P"
    harf(17) = "Q"
    harf(18) = "R"
    harf(19) = "S"
    harf(20) = "T"
    harf(21) = "U"
    harf(22) = "V"
    harf(23) = "W"
    harf(24) = "Y"
    harf(25) = "Z"
    harf(26) = "AA"
    harf(27) = "AB"
    harf(28) = "AC"
    Sheets("veri").Select
    t = Left(Cells(1, 1), 10)
    slu = 1
    For i = 1 To 7580
    Range("A" & i).Select
    Select Case ActiveCell.Value
    Case "ÜRÜN:"
    Range("G" & i).Select
    Selection.Copy
    Selection.Copy Destination:=Sheets("katalog").Range("D" & slu)
    slr = slu + 3
    slf = slu + 1
    
    Sheets("veri").Select
    Range("B" & i).Select
    Selection.Copy
    Selection.Copy Destination:=Sheets("katalog").Range("M" & slu)
    
    slu = slu + 19
    
    Sheets("veri").Select
    Range("O" & i).Select
    Selection.Copy
    Selection.Copy Destination:=Sheets("katalog").Range("D" & slf)
    
    Sheets("veri").Select
    Range("A" & i).Select
    Case "Renk"
    tmp = slr + 1
    tmb = slr
    k = i + 1
    m = 2
    l = i
    b = 2
    u = 2
    
    Do While Cells(k, 1) <> "TOPLAM"
    If (Range("A" & k).Value) = 0 Or (Left(Range("A" & k).Value, 10) = t) Or (Range("A" & k).Value) = "Sayfa:" Then
    k = k + 1
    Else
    Sheets("katalog").Cells(tmp, 1) = Range("A" & k).Value
    tmp = tmp + 1
    k = k + 1
    End If
    Loop
    
    Do While Cells(l, b) <> "TOPLAM"
    If Range(harf(b) & l).Value = 0 Then
    b = b + 1
    Else
    Sheets("katalog").Cells(tmb, u) = Range(harf(b) & l).Value
    b = b + 1
    u = u + 1
    End If
    Loop
    
    End Select
    Next i
    End Sub
    

    jack daniels 160 yaşında
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    pc_worm
    pc_worm's avatar
    Banlanmış Üye
    Kayıt Tarihi: 07/Haziran/2002
    Erkek
    holy hocam tahribat için operayı bıraktıracaksın bize :|

    jack daniels 160 yaşında
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NmC
    NmC's avatar
    Kayıt Tarihi: 23/Kasım/2008
    Erkek

    Ohoo...

    İyi olmuş bu ya :)

    Hangi dilleri renklendiriyo şu an?


    There are 10 types of people in the world. Those who knows binary and those who dont...
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    İnce Memed
    ComputerWolf
    ComputerWolf's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 26/Mart/2003
    Erkek

    super olmus :)


    Hep denedin. Hep yenildin. Olsun yine dene , yine yenil ama daha iyi yenil !
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    wking
    wking's avatar
    Kayıt Tarihi: 28/Mart/2010
    Erkek

    NmC bunu yazdı:
    -----------------------------

    Ohoo...

    İyi olmuş bu ya :)

    Hangi dilleri renklendiriyo şu an?


    -----------------------------

    http://i55.tinypic.com/2j13dox.jpg

  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    camarade
    ontedi
    ontedi's avatar
    Kayıt Tarihi: 04/Eylül/2005
    Erkek
    Güzel bir sistem olmuş, teşekkürler.

    Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Amd-x
    Amd-x's avatar
    Kayıt Tarihi: 29/Eylül/2009
    Erkek

    kod sanatçısı ..

Toplam Hit: 8800 Toplam Mesaj: 55