Iniziale Maiuscola

Registrato: 27/12/05 00:47 Messaggi: 86

Ciao a tutti!!

Per scrivere ogni iniziale di frase maiuscola?
ci vuole un replace On input?
io gi? uso questo codice per sostituire alcune paroline:

	Codice:
	on *:input:#:{ if ($left($1-,1) != /) { msg $chan $replace($1-,:P,:4?,lol,USDR,xd,xD,:d,:D) \| halt } }

come faccio?

ps. non sarebbe male se si cambia l'iniziale in maiuscolo anche dopo il punto... Very Happy

Registrato: 27/12/05 00:47 Messaggi: 86

Registrato: 25/08/06 09:44 Messaggi: 182 Residenza: Urago Mella (Brescia)

Allora.. se usi il comando on *:input: puoi avere una cosa del genere:

	Codice:
	on :input::{ if ($1- == lol) { /msg $active LoooooL \| halt } }

Non saprei per il tema di questo internvento hmmmm

_________________

IRC IS A PRIVILIGE NOT A RIGHT! www.cybermirc.org

Registrato: 10/11/02 11:53 Messaggi: 684 Residenza: Roma

Potresti usare un alias del genere:

Codice:

alias repup {
if ($1) {
var %rp_txt = $upper($left($1-,1)) $+ $right($1-,$calc($len($1-) - 1))
var %rp_tot = $numtok(%rp_txt,46), %i = 1
while (%i <= %rp_tot) {
var %rp_fr = $gettok(%rp_txt,%i,46), %p = 1, %upper = 0
while (%upper == 0) {
if ($mid(%rp_fr,%p,1) != $chr(32)) {
%rp_fr = $str($chr(32),$calc(%p - 1)) $+ $upper($mid(%rp_fr,%p,1)) $+ $right(%rp_fr,$calc($len(%rp_fr) - %p))
%rp_txt = $puttok(%rp_txt,%rp_fr,%i,46)
%upper = 1
}
inc %p
}
inc %i
}
return %rp_txt
}
}

A questo punto il tuo codice dovrebbe essere:

	Codice:
	on *:input:#:{ if ($left($1-,1) != /) { msg $chan $replace($repup($1-),:P,:4?,lol,USDR,xd,xD,:d,:D) \| halt } }

Se vuoi verificare l'alias scrivi da linea di comando: //echo -a $repup(ciao. frase di prova. verifica.ok)

Bye
Guerrj

_________________
Staff TuttoIRC.it

Registrato: 27/12/05 00:47 Messaggi: 86

Grazie mille
Very Happy