IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanýcýlarýnýn Buluþtuðu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 29 Haziran 2016, 18:30   #1
Çevrimdýþý
Gelme, burasý çok derin.

immortaL - ait Kullanýcý Resmi (Avatar)
Site Analiz TCL


Reklam

Kod:   Kodu kopyalamak için üzerine çift týklayýn!
## Site Analizi Kodlamasýdýr.. ## Sitenizin : ## Pr , Google Ýndex Sayýsý , Seo Puaný .... verir. package require http ## Komutun Çalýþacaðý kanaladý set analizkanal "#kanaladi" bind pub - .analiz analiz proc analiz {nick host hand chan text} { if {[string match $chan $::analizkanal]} { set seo [http::geturl "https://ucretsizseoanalizi.com/tr/www/$text"] set seodata [http::data $seo] http::cleanup $seo catch { exec wget -O reklam.html "https://www.worthofweb.com/website-value/$text" } set index [http::geturl "https://siteanalizi.gen.tr/$text"] set analizdata [http::data $index] http::cleanup $index set doviz [http::geturl "https://kur.doviz.com/serbest-piyasa/amerikan-dolari"] set dovizdata [http::data $doviz] http::cleanup $doviz set aciklama [string map {"<h2>" "" "</h2>" "" "<p class=\"desc\">" "" "<em>" "" "</em>" "" "</p>" "" "<p>" ""} [string range $analizdata [expr [string first "<h2>$text</h2>" $analizdata]] [expr [string last "<div class=\"buttons\">" $analizdata]-26]]] set x 0 foreach ozet [split $aciklama \n] { if { $x == 8 } { break } if { $x eq 0 } { putquick "privmsg $chan :\0030,4 [strupr [string trimleft $ozet " "]] ANALÝZ AÇIKLAMASI \003" } elseif { $x > 0 } { largetext privmsg $chan "\0030,1 [string trimleft [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $ozet] " "] \003" } incr x } while { [regexp -- {<strong>Google PageRank</strong><br />(.*)$} $analizdata -> analizdata] } { regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> googlerank analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> alexarank analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> yas analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> google analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> tweet analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> - analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> - analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> stumble analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> begeni analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> paylas analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> yorum analizdata regexp -- {<td>Google Backlink:</td>(.*)$} $analizdata -> analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> goback analizdata regexp -- {<td>Bing Backlink:</td>(.*)$} $analizdata -> analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> biback analizdata regexp -- {<td>Dmoz</td>(.*)$} $analizdata -> analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> dmoz analizdata regexp -- {<td>Yahoo Dizini</td>(.*)$} $analizdata -> analizdata regexp -- {<td><a href=".*?">(.*?)</a></td>(.*)$} $analizdata -> yahoo analizdata regexp -- {<td>Google Ýndeksli Sayfa Sayýsý</td>(.*)$} $analizdata -> analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> - analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> page analizdata } if {![info exists begeni]} { putquick "privmsg $chan :\0034,1 ! \003\0031 Bu domainin analizi yapýlamýyor" putquick "privmsg $chan :\0034,1 ! \003\0031 Lütfen baþka bir alanadý deneyiniz.." return 0 } putquick "privmsg $chan :\003" putquick "privmsg $chan :\0030,4 SOSYAL BÝLGÝLER \003" foreach se0 [split $seodata \n] { if {[string match "*<strong>Seo*" $se0]} { regexp -- {<strong>Seo Skoru(.*?)</strong>(.*)$} $seodata -> seo seodata } } set seocut [string map {"/" " "} $seo] set advertising [open "reklam.html" r] set reklamdata [split [read $advertising] \n] close $advertising while {[regexp -- {<span class="stat_row_number">\$ (.*?)</span>(.*)$} $reklamdata -> tdeger reklamdata] } { regexp -- {<div class="stat_row_box_title">Worth Of Web Score:</div>} $reklamdata regexp -- {<span class="stat_row_number">(.*?) \/ 100</span>} $reklamdata - tpuan1 break } regexp -- {<div class="column-row4"><span class="color-.*?">(.*?)</div>(.*)$} $dovizdata -> dolar dovizdata putquick "privmsg $chan :\00311,1 Face\0030book Ýstatis\00311tikleri\0030 : Beðeni\0030: \[\0039 $begeni \0030\] | Paylaþým\0030: \[\0039 $paylas \0030\] | Yorumla\0030r: \[\0039 $yorum \0030\] \003" putquick "privmsg $chan :\0034,1 Sosy\0030al Ýstatis\0034tikler\0030: Google\0030+ : \[\0039 $google \0030\] | Tweet : \[\0039 $tweet \0030\] | StumbleUpon : \[\0039 $stumble \0030\] \003" putquick "privmsg $chan :\003" putquick "privmsg $chan :\0030,4 SEO ÝSTATÝSTÝKLERÝ \003" putquick "privmsg $chan :\0030,1 \0038G\0039o\00311o\0037g\0030l\0034e\0030 Pagerank: \[\0039 $googlerank \0030\] | \0034A\0030l\0038e\00311x\0039a\0030 Rank: \[\0039 $alexarank \0030\] | \00311Y\00313a\0037þ\0030ý: \[\0039 [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $yas] \0030\] | \0038G\0039o\00311o\0037g\0030l\0034e\0030 Ýndex: \[\0039 $page \0030\] \003" putquick "privmsg $chan :\0030,1 \0038G\0039o\00311o\0037g\0030l\0034e\0030 Backlink: \[\0039 $goback \0030\] | \0034B\0038i\00311n\0039g\0030 Backlink: \[\0039 $biback \0030\] | \00311D\00313m\0037o\0030z: \[\0039 [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $dmoz] \0030\] | \0034Y\0030a\0034h\0030o\0034o\0030: \[\0039 [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $yahoo] \0030\] | \00311S\0037e\0039o\0030 Puaný: \[\00311 [lindex $seocut 0] \0030/\0039 [lindex $seocut 1] \0030\] " putquick "privmsg $chan :\003" putquick "privmsg $chan :\0030,4 SÝTE \& DEÐERÝ \003" if {![string match "*is an error*" $reklamdata]} { putquick "privmsg $chan :\0030,1 Tahmini Deðeri : \0039,1 \$\0030: [string map {"," "."} $tdeger] / \0039TL\0030: [expr { [string map {"," ""} $tdeger] * [string map {"</span>" "" "," "."} $dolar] } ] | Deðer Puaný: \[\00311 $tpuan1 \0030/\0039 100 \0030\] \003" } else { putquick "privmsg $chan :\0030,1 Sitenin Deðeri Bazý Nedenlerden Dolayý Hesaplanamýyor.. \003" } } } proc largetext {type target text {delims {" "•,.!?}}} { set lineLen [expr {412 - [string length ":$::botname $type [join $target] :\r\n"]}] if {[string length $text] <= $lineLen} { putquick "$type $target :[entityToChar $text]" return 0 } set _text [split [entityToChar $text] $delims] set x 0 set i 0 while {$x < $lineLen} { if {$i >= [llength $_text]} { return 0 } set wordlen [string length [lindex $_text $i]] if {$x + $wordlen > $lineLen} { break } incr x $wordlen incr x incr i } putquick "$type $target :[string range [entityToChar $text] 0 [expr {$x - 1}]]" largetext $type $target [string trimleft [string range [entityToChar $text] $x end]] $delims } proc entityToChar {text {char utf-8}} { if {![string match *&* $text]} {return $text} set escapes { &nbsp; \xa0 &iexcl; \xa1 &cent; \xa2 &pound; \xa3 &curren; \xa4 &yen; \xa5 &brvbar; \xa6 &sect; \xa7 &uml; \xa8 &copy; \xa9 &ordf; \xaa &laquo; \xab &not; \xac * \xad &reg; \xae &macr; \xaf &deg; \xb0 &plusmn; \xb1 ² \xb2 ³ \xb3 &acute; \xb4 &micro; \xb5 &para; \xb6 &middot; \xb7 &cedil; \xb8 ¹ \xb9 &ordm; \xba &raquo; \xbb ¼ \xbc ½ \xbd ¾ \xbe &iquest; \xbf &Agrave; \xc0 &Aacute; \xc1 &Acirc; \xc2 &Atilde; \xc3 &Auml; \xc4 &Aring; \xc5 &AElig; \xc6 &Ccedil; \xc7 &Egrave; \xc8 &Eacute; \xc9 &Ecirc; \xca &Euml; \xcb &Igrave; \xcc &Iacute; \xcd &Icirc; \xce &Iuml; \xcf &ETH; \xd0 &Ntilde; \xd1 &Ograve; \xd2 &Oacute; \xd3 &Ocirc; \xd4 &Otilde; \xd5 &Ouml; \xd6 &times; \xd7 &Oslash; \xd8 &Ugrave; \xd9 &Uacute; \xda &Ucirc; \xdb &Uuml; \xdc &Yacute; \xdd &THORN; \xde &szlig; \xdf &agrave; \xe0 &aacute; \xe1 &acirc; \xe2 &atilde; \xe3 &auml; \xe4 &aring; \xe5 &aelig; \xe6 &ccedil; \xe7 &egrave; \xe8 &eacute; \xe9 &ecirc; \xea &euml; \xeb &igrave; \xec &iacute; \xed &icirc; \xee &iuml; \xef &eth; \xf0 &ntilde; \xf1 &ograve; \xf2 &oacute; \xf3 &ocirc; \xf4 &otilde; \xf5 &ouml; \xf6 &divide; \xf7 &oslash; \xf8 &ugrave; \xf9 &uacute; \xfa &ucirc; \xfb &uuml; \xfc &yacute; \xfd &thorn; \xfe &yuml; \xff &fnof; \u192 &Alpha; \u391 &Beta; \u392 &Gamma; \u393 &Delta; \u394 &Epsilon; \u395 &Zeta; \u396 &Eta; \u397 &Theta; \u398 &Iota; \u399 &Kappa; \u39A &Lambda; \u39B &Mu; \u39C &Nu; \u39D &Xi; \u39E &Omicron; \u39F &Pi; \u3A0 &Rho; \u3A1 &Sigma; \u3A3 &Tau; \u3A4 &Upsilon; \u3A5 &Phi; \u3A6 &Chi; \u3A7 &Psi; \u3A8 &Omega; \u3A9 &alpha; \u3B1 &beta; \u3B2 &gamma; \u3B3 &delta; \u3B4 &epsilon; \u3B5 &zeta; \u3B6 &eta; \u3B7 &theta; \u3B8 &iota; \u3B9 &kappa; \u3BA &lambda; \u3BB &mu; \u3BC &nu; \u3BD &xi; \u3BE &omicron; \u3BF &pi; \u3C0 &rho; \u3C1 &sigmaf; \u3C2 &sigma; \u3C3 &tau; \u3C4 &upsilon; \u3C5 &phi; \u3C6 &chi; \u3C7 &psi; \u3C8 &omega; \u3C9 &thetasym; \u3D1 &upsih; \u3D2 &piv; \u3D6 &bull; \u2022 &hellip; \u2026 &prime; \u2032 &Prime; \u2033 &oline; \u203E &frasl; \u2044 &weierp; \u2118 &image; \u2111 &real; \u211C &trade; \u2122 &alefsym; \u2135 &larr; \u2190 &uarr; \u2191 &rarr; \u2192 &darr; \u2193 &harr; \u2194 &crarr; \u21B5 &lArr; \u21D0 &uArr; \u21D1 &rArr; \u21D2 &dArr; \u21D3 &hArr; \u21D4 &forall; \u2200 &part; \u2202 &exist; \u2203 &empty; \u2205 &nabla; \u2207 &isin; \u2208 &notin; \u2209 &ni; \u220B &prod; \u220F &sum; \u2211 &minus; \u2212 &lowast; \u2217 &radic; \u221A &prop; \u221D &infin; \u221E &ang; \u2220 &and; \u2227 &or; \u2228 &cap; \u2229 &cup; \u222A &int; \u222B &there4; \u2234 &sim; \u223C &cong; \u2245 &asymp; \u2248 &ne; \u2260 &equiv; \u2261 &le; \u2264 &ge; \u2265 &sub; \u2282 &sup; \u2283 &nsub; \u2284 &sube; \u2286 &supe; \u2287 &oplus; \u2295 &otimes; \u2297 &perp; \u22A5 &sdot; \u22C5 &lceil; \u2308 &rceil; \u2309 &lfloor; \u230A &rfloor; \u230B &lang; \u2329 &rang; \u232A &loz; \u25CA &spades; \u2660 &clubs; \u2663 &hearts; \u2665 &diams; \u2666 &quot; \x22 &amp; \x26 &lt; \x3C &gt; \x3E O&Elig; \u152 &oelig; \u153 &Scaron; \u160 &scaron; \u161 &Yuml; \u178 &circ; \u2C6 &tilde; \u2DC &ensp; \u2002 &emsp; \u2003 &thinsp; \u2009 &zwnj; \u200C &zwj; \u200D &lrm; \u200E &rlm; \u200F &ndash; \u2013 &mdash; \u2014 &lsquo; \u2018 &rsquo; \u2019 &sbquo; \u201A &ldquo; \u201C &rdquo; \u201D &bdquo; \u201E &dagger; \u2020 &Dagger; \u2021 &permil; \u2030 &lsaquo; \u2039 &rsaquo; \u203A &euro; \u20AC &apos; \u0027 &lrm; "" &rlm; "" ? "" * "" * "" }; set text [string map[list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] [string map $escapes $text]] regsub -all -- {&#([[:digit:]]{1,5});} $text {[format %c [string trimleft "\1" "0"]]} text regsub -all -- {&#x([[:xdigit:]]{1,4});} $text {[format %c [scan "\1" %x]]} text return [subst "$text"] } putlog "analiz.tcl coding by rascoLn"

Kod:   Kodu kopyalamak için üzerine çift týklayýn!
## Site Analizi Kodlamasýdýr.. ## Sitenizin : ## Pr , Google Ýndex Sayýsý , Seo Puaný .... verir. package require http ## Komutun Çalýþacaðý kanaladý set analizkanal "#kanaladi" bind pub - .analiz analiz proc analiz {nick host hand chan text} { if {[string match $chan $::analizkanal]} { set seo [http::geturl "https://ucretsizseoanalizi.com/tr/www/$text"] set seodata [http::data $seo] http::cleanup $seo catch { exec wget -O reklam.html "https://www.worthofweb.com/website-value/$text" } set index [http::geturl "https://siteanalizi.gen.tr/$text"] set analizdata [http::data $index] http::cleanup $index set doviz [http::geturl "https://kur.doviz.com/serbest-piyasa/amerikan-dolari"] set dovizdata [http::data $doviz] http::cleanup $doviz set aciklama [string map {"<h2>" "" "</h2>" "" "<p class=\"desc\">" "" "<em>" "" "</em>" "" "</p>" "" "<p>" ""} [string range $analizdata [expr [string first "<h2>$text</h2>" $analizdata]] [expr [string last "<div class=\"buttons\">" $analizdata]-26]]] set x 0 foreach ozet [split $aciklama \n] { if { $x == 8 } { break } if { $x eq 0 } { putquick "privmsg $chan :\0030,4 [strupr [string trimleft $ozet " "]] ANALÝZ AÇIKLAMASI \003" } elseif { $x > 0 } { largetext privmsg $chan "\0030,1 [string trimleft [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $ozet] " "] \003" } incr x } while { [regexp -- {<strong>Google PageRank</strong><br />(.*)$} $analizdata -> analizdata] } { regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> googlerank analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> alexarank analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> yas analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> google analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> tweet analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> - analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> - analizdata regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> stumble analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> begeni analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> paylas analizdata regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> yorum analizdata regexp -- {<td>Google Backlink:</td>(.*)$} $analizdata -> analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> goback analizdata regexp -- {<td>Bing Backlink:</td>(.*)$} $analizdata -> analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> biback analizdata regexp -- {<td>Dmoz</td>(.*)$} $analizdata -> analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> dmoz analizdata regexp -- {<td>Yahoo Dizini</td>(.*)$} $analizdata -> analizdata regexp -- {<td><a href=".*?">(.*?)</a></td>(.*)$} $analizdata -> yahoo analizdata regexp -- {<td>Google Ýndeksli Sayfa Sayýsý</td>(.*)$} $analizdata -> analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> - analizdata regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> page analizdata } if {![info exists begeni]} { putquick "privmsg $chan :\0034,1 ! \003\0031 Bu domainin analizi yapýlamýyor" putquick "privmsg $chan :\0034,1 ! \003\0031 Lütfen baþka bir alanadý deneyiniz.." return 0 } putquick "privmsg $chan :\003" putquick "privmsg $chan :\0030,4 SOSYAL BÝLGÝLER \003" foreach se0 [split $seodata \n] { if {[string match "*<strong>Seo*" $se0]} { regexp -- {<strong>Seo Skoru(.*?)</strong>(.*)$} $seodata -> seo seodata } } set seocut [string map {"/" " "} $seo] set advertising [open "reklam.html" r] set reklamdata [split [read $advertising] \n] close $advertising while {[regexp -- {<span class="stat_row_number">\$ (.*?)</span>(.*)$} $reklamdata -> tdeger reklamdata] } { regexp -- {<div class="stat_row_box_title">Worth Of Web Score:</div>} $reklamdata regexp -- {<span class="stat_row_number">(.*?) \/ 100</span>} $reklamdata - tpuan1 break } regexp -- {<div class="column-row4"><span class="color-.*?">(.*?)</div>(.*)$} $dovizdata -> dolar dovizdata putquick "privmsg $chan :\00311,1 Face\0030book Ýstatis\00311tikleri\0030 : Beðeni\0030: \[\0039 $begeni \0030\] | Paylaþým\0030: \[\0039 $paylas \0030\] | Yorumla\0030r: \[\0039 $yorum \0030\] \003" putquick "privmsg $chan :\0034,1 Sosy\0030al Ýstatis\0034tikler\0030: Google\0030+ : \[\0039 $google \0030\] | Tweet : \[\0039 $tweet \0030\] | StumbleUpon : \[\0039 $stumble \0030\] \003" putquick "privmsg $chan :\003" putquick "privmsg $chan :\0030,4 SEO ÝSTATÝSTÝKLERÝ \003" putquick "privmsg $chan :\0030,1 \0038G\0039o\00311o\0037g\0030l\0034e\0030 Pagerank: \[\0039 $googlerank \0030\] | \0034A\0030l\0038e\00311x\0039a\0030 Rank: \[\0039 $alexarank \0030\] | \00311Y\00313a\0037þ\0030ý: \[\0039 [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $yas] \0030\] | \0038G\0039o\00311o\0037g\0030l\0034e\0030 Ýndex: \[\0039 $page \0030\] \003" putquick "privmsg $chan :\0030,1 \0038G\0039o\00311o\0037g\0030l\0034e\0030 Backlink: \[\0039 $goback \0030\] | \0034B\0038i\00311n\0039g\0030 Backlink: \[\0039 $biback \0030\] | \00311D\00313m\0037o\0030z: \[\0039 [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $dmoz] \0030\] | \0034Y\0030a\0034h\0030o\0034o\0030: \[\0039 [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $yahoo] \0030\] | \00311S\0037e\0039o\0030 Puaný: \[\00311 [lindex $seocut 0] \0030/\0039 [lindex $seocut 1] \0030\] " putquick "privmsg $chan :\003" putquick "privmsg $chan :\0030,4 SÝTE \& DEÐERÝ \003" if {![string match "*is an error*" $reklamdata]} { putquick "privmsg $chan :\0030,1 Tahmini Deðeri : \0039,1 \$\0030: [string map {"," "."} $tdeger] / \0039TL\0030: [expr { [string map {"," ""} $tdeger] * [string map {"</span>" "" "," "."} $dolar] } ] | Deðer Puaný: \[\00311 $tpuan1 \0030/\0039 100 \0030\] \003" } else { putquick "privmsg $chan :\0030,1 Sitenin Deðeri Bazý Nedenlerden Dolayý Hesaplanamýyor.. \003" } } } proc largetext {type target text {delims {" "•,.!?}}} { set lineLen [expr {412 - [string length ":$::botname $type [join $target] :\r\n"]}] if {[string length $text] <= $lineLen} { putquick "$type $target :[entityToChar $text]" return 0 } set _text [split [entityToChar $text] $delims] set x 0 set i 0 while {$x < $lineLen} { if {$i >= [llength $_text]} { return 0 } set wordlen [string length [lindex $_text $i]] if {$x + $wordlen > $lineLen} { break } incr x $wordlen incr x incr i } putquick "$type $target :[string range [entityToChar $text] 0 [expr {$x - 1}]]" largetext $type $target [string trimleft [string range [entityToChar $text] $x end]] $delims } proc entityToChar {text {char utf-8}} { if {![string match *&* $text]} {return $text} set escapes { &nbsp; \xa0 &iexcl; \xa1 &cent; \xa2 &pound; \xa3 &curren; \xa4 &yen; \xa5 &brvbar; \xa6 &sect; \xa7 &uml; \xa8 &copy; \xa9 &ordf; \xaa &laquo; \xab &not; \xac * \xad &reg; \xae &macr; \xaf &deg; \xb0 &plusmn; \xb1 ² \xb2 ³ \xb3 &acute; \xb4 &micro; \xb5 &para; \xb6 &middot; \xb7 &cedil; \xb8 ¹ \xb9 &ordm; \xba &raquo; \xbb ¼ \xbc ½ \xbd ¾ \xbe &iquest; \xbf &Agrave; \xc0 &Aacute; \xc1 &Acirc; \xc2 &Atilde; \xc3 &Auml; \xc4 &Aring; \xc5 &AElig; \xc6 &Ccedil; \xc7 &Egrave; \xc8 &Eacute; \xc9 &Ecirc; \xca &Euml; \xcb &Igrave; \xcc &Iacute; \xcd &Icirc; \xce &Iuml; \xcf &ETH; \xd0 &Ntilde; \xd1 &Ograve; \xd2 &Oacute; \xd3 &Ocirc; \xd4 &Otilde; \xd5 &Ouml; \xd6 &times; \xd7 &Oslash; \xd8 &Ugrave; \xd9 &Uacute; \xda &Ucirc; \xdb &Uuml; \xdc &Yacute; \xdd &THORN; \xde &szlig; \xdf &agrave; \xe0 &aacute; \xe1 &acirc; \xe2 &atilde; \xe3 &auml; \xe4 &aring; \xe5 &aelig; \xe6 &ccedil; \xe7 &egrave; \xe8 &eacute; \xe9 &ecirc; \xea &euml; \xeb &igrave; \xec &iacute; \xed &icirc; \xee &iuml; \xef &eth; \xf0 &ntilde; \xf1 &ograve; \xf2 &oacute; \xf3 &ocirc; \xf4 &otilde; \xf5 &ouml; \xf6 &divide; \xf7 &oslash; \xf8 &ugrave; \xf9 &uacute; \xfa &ucirc; \xfb &uuml; \xfc &yacute; \xfd &thorn; \xfe &yuml; \xff &fnof; \u192 &Alpha; \u391 &Beta; \u392 &Gamma; \u393 &Delta; \u394 &Epsilon; \u395 &Zeta; \u396 &Eta; \u397 &Theta; \u398 &Iota; \u399 &Kappa; \u39A &Lambda; \u39B &Mu; \u39C &Nu; \u39D &Xi; \u39E &Omicron; \u39F &Pi; \u3A0 &Rho; \u3A1 &Sigma; \u3A3 &Tau; \u3A4 &Upsilon; \u3A5 &Phi; \u3A6 &Chi; \u3A7 &Psi; \u3A8 &Omega; \u3A9 &alpha; \u3B1 &beta; \u3B2 &gamma; \u3B3 &delta; \u3B4 &epsilon; \u3B5 &zeta; \u3B6 &eta; \u3B7 &theta; \u3B8 &iota; \u3B9 &kappa; \u3BA &lambda; \u3BB &mu; \u3BC &nu; \u3BD &xi; \u3BE &omicron; \u3BF &pi; \u3C0 &rho; \u3C1 &sigmaf; \u3C2 &sigma; \u3C3 &tau; \u3C4 &upsilon; \u3C5 &phi; \u3C6 &chi; \u3C7 &psi; \u3C8 &omega; \u3C9 &thetasym; \u3D1 &upsih; \u3D2 &piv; \u3D6 &bull; \u2022 &hellip; \u2026 &prime; \u2032 &Prime; \u2033 &oline; \u203E &frasl; \u2044 &weierp; \u2118 &image; \u2111 &real; \u211C &trade; \u2122 &alefsym; \u2135 &larr; \u2190 &uarr; \u2191 &rarr; \u2192 &darr; \u2193 &harr; \u2194 &crarr; \u21B5 &lArr; \u21D0 &uArr; \u21D1 &rArr; \u21D2 &dArr; \u21D3 &hArr; \u21D4 &forall; \u2200 &part; \u2202 &exist; \u2203 &empty; \u2205 &nabla; \u2207 &isin; \u2208 &notin; \u2209 &ni; \u220B &prod; \u220F &sum; \u2211 &minus; \u2212 &lowast; \u2217 &radic; \u221A &prop; \u221D &infin; \u221E &ang; \u2220 &and; \u2227 &or; \u2228 &cap; \u2229 &cup; \u222A &int; \u222B &there4; \u2234 &sim; \u223C &cong; \u2245 &asymp; \u2248 &ne; \u2260 &equiv; \u2261 &le; \u2264 &ge; \u2265 &sub; \u2282 &sup; \u2283 &nsub; \u2284 &sube; \u2286 &supe; \u2287 &oplus; \u2295 &otimes; \u2297 &perp; \u22A5 &sdot; \u22C5 &lceil; \u2308 &rceil; \u2309 &lfloor; \u230A &rfloor; \u230B &lang; \u2329 &rang; \u232A &loz; \u25CA &spades; \u2660 &clubs; \u2663 &hearts; \u2665 &diams; \u2666 &quot; \x22 &amp; \x26 &lt; \x3C &gt; \x3E O&Elig; \u152 &oelig; \u153 &Scaron; \u160 &scaron; \u161 &Yuml; \u178 &circ; \u2C6 &tilde; \u2DC &ensp; \u2002 &emsp; \u2003 &thinsp; \u2009 &zwnj; \u200C &zwj; \u200D &lrm; \u200E &rlm; \u200F &ndash; \u2013 &mdash; \u2014 &lsquo; \u2018 &rsquo; \u2019 &sbquo; \u201A &ldquo; \u201C &rdquo; \u201D &bdquo; \u201E &dagger; \u2020 &Dagger; \u2021 &permil; \u2030 &lsaquo; \u2039 &rsaquo; \u203A &euro; \u20AC &apos; \u0027 &lrm; "" &rlm; "" ? "" * "" * "" }; set text [string map[list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] [string map $escapes $text]] regsub -all -- {&#([[:digit:]]{1,5});} $text {[format %c [string trimleft "\1" "0"]]} text regsub -all -- {&#x([[:xdigit:]]{1,4});} $text {[format %c [scan "\1" %x]]} text return [subst "$text"] } putlog "analiz.tcl coding by rascoLn"

  Alýntý ile Cevapla

IRCForumu.Net - Reklam Alaný

Cevapla

Etiketler
analiz, site, tcl
IRCForumu.Net - Sponsor Baðlantýlar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajýnýzý Deðiþtirme Yetkiniz Yok

BB code is Açýk
Smileler Açýk
[IMG] Kodlarý Açýk
HTML-Kodu Kapalý
Trackbacks are Açýk
Pingbacks are Açýk
Refbacks are Açýk


Benzer Konular
Konu Konuyu Baþlatan Forum Cevaplar Son Mesaj
ChatTR.ORG Web Site Tanýtýmý. Pentagram Web Site Tanýtýmý 0 25 Ekim 2021 20:31