IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

1Beğeni(ler)
  • 1 Post By Heartbroken

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Kasım 2021, 23:06   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Çeviri .Tcl




Biri Mirc Kodundan Tcl'ye
Çevirmemi İstemişti.
Böyle Küçük-Basit Bir Kod Parçasıyla
Yapıp Göndermiştik Kendisini...


Prosedür İçerisinde :
set trdil "en"
Hedef Dili Belirler Oradan Kendiniz
Değişebilirsiniz.
Ardı Ardına Çok Fazla Kullanırsanız
Google Bundan Hoşlanmıyor!
Bir Süre Bloke Ediyor IP'den
Benden Söylemesi!...


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
package require http package require eggdrop 1.8 bind pub - .tr tr_TR proc tr_TR {nick uhost hand chan arg} { set tran [string tolower [stripcodes * $arg]] set LTxt [lindex [split $tran] 0] if {[regexp -- {^@[a-z]{2}$} $LTxt]} { set trdil [string range $LTxt 1 end] set TAra [join [lrange [split $tran] 1 end]] } else { set trdil "en" set TAra [join [lrange [split $tran] 0 end]] } catch { eval exec curl -sS https://translate.googleapis.com/translate_a/single?[http::formatQuery client gtx sl auto tl $trdil dt t q $TAra] } offsh regexp -- {\"([^\"]+)\"} $offsh - trns putmsg $chan $trns return 0 }

Kullanımı:

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Biri Mirc Kodundan Tcl'ye
Çevirmemi İstemişti.
Böyle Küçük-Basit Bir Kod Parçasıyla
Yapıp Göndermiştik Kendisini...


Prosedür İçerisinde :
set trdil "en"
Hedef Dili Belirler Oradan Kendiniz
Değişebilirsiniz.
Ardı Ardına Çok Fazla Kullanırsanız
Google Bundan Hoşlanmıyor!
Bir Süre Bloke Ediyor IP'den
Benden Söylemesi!...


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
package require http package require eggdrop 1.8 bind pub - .tr tr_TR proc tr_TR {nick uhost hand chan arg} { set tran [string tolower [stripcodes * $arg]] set LTxt [lindex [split $tran] 0] if {[regexp -- {^@[a-z]{2}$} $LTxt]} { set trdil [string range $LTxt 1 end] set TAra [join [lrange [split $tran] 1 end]] } else { set trdil "en" set TAra [join [lrange [split $tran] 0 end]] } catch { eval exec curl -sS https://translate.googleapis.com/translate_a/single?[http::formatQuery client gtx sl auto tl $trdil dt t q $TAra] } offsh regexp -- {\"([^\"]+)\"} $offsh - trns putmsg $chan $trns return 0 }

Kullanımı:

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
__________________
Beş Tas Has Hoş Hoşaf.

Konu Heartbroken tarafından (10 Kasım 2021 Saat 23:07 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 13 Kasım 2021, 21:59   #2
Çevrimiçi
Che
~ Gevezeyiz.Net ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Çeviri .Tcl




Eline emeğine sağlık.

__________________
char *adres = [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] for(int i = 0; *(adres + i); i++) { putchar(toupper(adres[i])); }
 
Alıntı ile Cevapla

Alt 07 Eylül 2022, 22:03   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Çeviri .Tcl





Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
ceviri, eggdrop, google, tcl, translate


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Ceviri Feronia Serbest Kürsü 0 06 Kasım 2009 02:30
TR-ING ING-TR Çeviri MT EkoL Projeler 3 21 Haziran 2009 19:12