Büyük Harf İle Başlama - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

JohnGalt · 27 Mayıs 2011, 06:52

Merhaba,

Ben her satırda büyük harf ile başlayan bir remote arıyorum. Bazır kodlar buldum da, ama Türkçe karakter sorunu ile karşılaştım her seferinde. ı harfi hiç çalışmıyor bazılarında, bazılarında da ı harfi de i harfi de aynı sonuca yani I harfine çıkıyor.

Bana ı harfinin I, i harfinin de İ olarak sorunsuz olarak değişebileceği bir büyük harf ile başlama remotesi önerebilir misiniz?

Teşekkürler,
/JohnGalt

brite · 27 Mayıs 2011, 12:43

cümle oluşturma diye aratsaydın bayağı örnek var:
Bunda tr karakter sorunu yok gibi duruyor: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

JohnGalt · 27 Mayıs 2011, 18:17

Forumda denemediğim hemen hemen denemediğim hiç kod kalmadı, hepsinde aynı problem var; i ve ı harfinin ikisi de İ olarak değişiyor. =/

----------

Alıntı:

on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) && ($active != status window) {
msg $active $cumlekur($1-)
halt
}
}
alias cumlekur {
if $isid {
var %x , %i = $regsub(cumlekur,$1-,/((\.|;|\:)+([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,\1,%x), %i = 1, %retval = $1-
while %i <= $regml(cumlekur,0) {
if $regex(ifcumlekur,$regml(cumlekur,%i),((\.|;|\:).| ..)) {
%setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32))
%setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($ replacecs($left(%setvar,1),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)),$ mid(%setvar,2,2))
var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x
}
inc %i 1
}
return $replace($upper($left(%x,1)),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,i,İ,ı ,$chr(73))) $+ $right(%x,-1)
}
}

Sonunda hallettim kendi çabalarımla. =D Ascii kodu ile değiştirmeyi ekledim ve yedi.

Ama bu sefer de ilk kelimemin nick olması ihtimaline karşı "nickin ilk harfini büyütmesin" satırı eklemek istiyorum ama o kadar ileriye gidemedim.

Yardımcı olabilecek birisi var mı?

L4roXyL · 27 Mayıs 2011, 21:21

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*:if ($1 != $target && $1 !ison $target && $left($1,1) != /) { say $regsubex($1-,(^.),$upper($replace(\1,i,İ,ı,I))) | haltdef }

Sır · 30 Mayıs 2011, 21:31

Peki Bu Yazının Başı Kalın Olup Diger kısımları ince olan bır kodu varsa alabılırmıyız

Misal : Örnek Bu

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

Difuzyon · 30 Mayıs 2011, 21:58

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*:{ 
  if $left($1,1) != / { 
    msg $active $regsubex($1-,/(\S+)/g,$+($replace($upper($replacecs($left(\1,1),i,İ,I,ı)),ı,I),,$mid(\1,2-),))
    halt 
  } 
}

Prens · 14 Temmuz 2012, 12:07

L4roXyL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on *:input:*:if ($1 != $target && $1 !ison $target && $left($1,1) != /) { say $regsubex($1-,(^.),$upper($replace(\1,i,İ,ı,I))) | haltdef }

• Bu kod ile her cümlenin başında ki harf büyük olarak yazıyor.

• Peki buna ilaveten, her şekilde cümle içinde yazacağımız nick'i ince yazmasını, cümlelerin ilk harflerinin de büyük olarak yazmasını nasıl sağlaya biliriz. Kanal'da ve özellerde de aynı şekilde?

Örnek;

<NICK> Merhaba. Hoş geldin. Nasıl gidiyor hayat?

Difuzyon · 14 Temmuz 2012, 13:19

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*:{ 
  if $left($1,1) != / { 
    if $window($active).type == channel { msg $active $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(<04,\1,,>),$+($upper($left(\1,1)),$mid(\1,2-)))) } 
    elseif $window($active).type == query { msg $active $regsubex($1-,/(\S+)/gi,$iif(\1 == $active,$+(<04,\1,,>),$+($upper($left(\1,1)),$mid(\1,2-)))) }
    halt
  }
}

Prens · 14 Temmuz 2012, 14:40

Kod çalışıyor sorunsuz lakin, cümle içinde ki her kelimenin ilk harfini büyük yazıyor. Sadece cümlenin baş harflerini yazdıramaz mıyız?

Örnek:

nick Selamun aleyküm, nasılsın? Hayat nasıl gidiyor?

Difuzyon · 14 Temmuz 2012, 16:13

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*:{ 
  if $left($1,1) != / { 
    if $window($active).type == channel { msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.|\?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 ison #,$+(<04,\1,,>),\1)))) } 
    elseif $window($active).type == query { msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.|\?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 == $active,$+(<04,\1,,>),\1)))) }
    halt
  }
}

Tüm satırda yazılanın 1. harfini büyük yapar.Satır içinde yer alan . ve ? işaretlerinden sonra gelen ilk harfi de büyük yapar.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
ilk harf büyük olsun	ZenqerDenq	mIRC Scripting Sorunları	4	24 Haziran 2013 04:37
Büyük Harf , Harf Uzatma Uyarı Admin Ve opları uyarmısın Yardim Edin..	eRCi	mIRC Scripting Sorunları	3	04 Kasım 2010 14:22
Büyük Harf / Uzun Harf / Tekrar Harf -Uyarı/koruma	diyorumki	mIRC Scripting Sorunları	0	06 Ekim 2010 17:22
Büyük Harf koruması Hk.	olcays	mIRC Scripting Sorunları	7	18 Nisan 2009 20:02
ilk harf büyük	lacremel	mIRC Scripting Sorunları	15	07 Şubat 2008 20:51

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.