Çevrimdışı

Selam..
ismi lazım değil yabancı bir sitede bulduğum bir snippet var bu yazılan kelimenizin yerine eklediğiniz kelimeyi atıyor diye tarif edebilirim sanırım.

Şöyleki Merhaba yazıosunuz bu kod kanala Merhaba kelimesi yerine ne gitmesini istiyorsanız onu kanala atıyor bu renkli yada süslü püslü Bold yada underline olabiliyor..

neyse kodun sorunu şu ki sadece ilk kelimede işe yarıyor mesala bir cümle yazdınız onun sadece ilk kelimesi acroya eklenmişse sadece onu değiştiriyor. mesala ben diyelim hem merhaba hem nasılsınız kelimesini önceden acroya eklemişim onun yerine yazılacak yazı tipini yani..
birine tek bir Cümlede

Merhaba nasılsınız .. yazsam her ikisini değişeceğine sadece ilk yazılan kelimeyi ''merhaba'' yı değişiyor..

özetle bu kodu cümle içindeki her kelime için çalışacak hale nasıl getirebiliriz? teşekkürler..

on *:start: {
hmake acro 5
if ($isFile(acro.hsh)) { hload acro acro.hsh }
else { hsave -o acro acro.hsh }
}

on *:exit: {
hsave -o acro acro.hsh
hfree acro
}

on *:input:#: {
if ($hget(acro, enac.c) == $true) && ($left($1,1) != /) {
if ($hget(acro, entc.c) == $true) && ($read(acro.txt, s, $1) != $null) {
say $read(acro.txt, s, $1) $2-
halt
}
if ($hget(acro, entc.c) == $false) && ($read(acro.txt, s, $1) != $null) {
say $strip($read(acro.txt, s, $1) $2-)
halt
}
}
}
on *:input:?: {
if ($hget(acro, enac.c) == $true) && ($left($1,1) != /) {
if ($hget(acro, entc.c) == $true) && ($read(acro.txt, s, $1) != $null) {
say $read(acro.txt, s, $1) $2-
halt
}
if ($hget(acro, entc.c) == $false) && ($read(acro.txt, s, $1) != $null) {
say $strip($read(acro.txt, s, $1) $2-)
halt
}
}
}

dialog acro {
title "M�ridi@� Acromancer"
size -1 -1 160 208
option dbu

button "Ok", 1, 59 191 20 12, ok
button "Cancel", 2, 81 191 20 12, cancel

box "Acromancer", 3, 5 5 150 49

check "Enable Acromancer", 4, 9 11 54 15
Check "Enable Text Codes", 5, 69 11 54 15

text "Acronym :", 6, 9 27 26 15
edit , 7, 36 26 20 10, autohs

text "Definition :", 8, 9 40 26 15
edit , 9, 36 39 87 10, autohs

button "Add", 10, 130 12 20 12
button "Edit", 11, 130 25 20 12
button "Delete", 12, 130 38 20 12

button "Acronym", 13, 5 57 49 11
list 14, 5 67 49 125

button "Definition", 15, 53 57 102 11
list 16, 53 67 102 125
}


on *:dialog:acro:*:*: {
if ($devent == init) {
refresh
if ($hget(acro, enac.c) == $true) { did -c acro 4 }
if ($hget(acro, entc.c) == $true) { did -c acro 5 }
}
if ($devent == edit) {
if ($did == 7) { hadd acro acr.e $did(7).text }
if ($did == 9) { hadd acro def.e $did(9).text }
}
if ($devent == sclick) {
if ($did == 1) {
if ($did(4).state) { hadd acro enac.c $true }
else { hadd acro enac.c $false }
if ($did(5).state) { hadd acro entc.c $true }
else { hadd acro entc.c $false }
}
if ($did == 14) {
hadd acro acr.e $did(14).seltext
hadd acro def.e $read(acro.txt, s, $hget(acro, acr.e))
did -ra acro 7 $hget(acro, acr.e)
did -ra acro 9 $hget(acro, def.e)
hadd acro txt.l $readn
}
if ($did == 10) {
write acro.txt $hget(acro, acr.e) $hget(acro, def.e)
did -r acro 7,9
refresh
}
if ($did == 11) {
write -l $+ $hget(acro, txt.l) acro.txt $hget(acro, acr.e) $hget(acro, def.e)
did -r acro 7,9
refresh
hdel acro txt.l
}
if ($did == 12) {
write -dl $+ $hget(acro, txt.l) acro.txt
did -r acro 7,9
refresh
hdel acro txt.l
}
}
}

alias refresh {
did -r acro 14,16
hadd acro line.a 1
while ($read(acro.txt,$hget(acro, line.a)) != $null) {
did -a acro 14 $gettok($read(acro.txt, nt, $hget(acro, line.a)),1,32)
did -a acro 16 $strip($gettok($read(acro.txt, nt, $hget(acro, line.a)),2-,32))
hinc acro line.a
}
}

menu channel,query,status {
Acromancer: dialog -md acro acro
}

 

Çevrimdışı

sağ olun var olun...