Untitled Document
mIRC in Italiano - Script - Forum - Imposta come Home Page - Aggiungi ai Preferiti - Home - Chat
Utenti connessi: - Visitatori oggi: - Visitatori totali: - Pagine viste oggi:


NewsLetter


localmirc
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----

-
----
-
-
-
-
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----
-
----

----
Stabilire in un file quanti eventi, identificatori, alias, alias locali, dialog sono presenti
Stabilire in un file quanti eventi,identificatori,alias,alias locali,dialog sono presenti.
stat_file {
var %f = $+(",$1-,")
;var %f contenente il path del filename compresi i ""

var %i = 0,%w = @winfile,%w1 = @work,%g = $str($chr(160),10)
;var %i = 0,%w alla prima finestra,%w1 alla finestra di lavoro,e %g contentente 10 spazi per una visualizzazione più carina delle informazioni

window -c %w | window -c %w1
; chiudo le due window
window -h %w | window -h %w1

echo -s Statistiche file $1- --- $lines($1-) linee $file($1-).size byte $bytes($file($1-).size).k kb
;inizio a scrivere con l'/echo le informazioni riguardanti file grandezza il nome del file e le linee
.filter -fp %f %w *
;inserisco tutto il contenuto del file nella prima finestra usando il comando /filter

filter -pp %w %w1 *=alias -l *
; con il comando /filter metto nella seconda finestra tutto ciò che inizia con *=alias -l * e che si trova nella prima finestra
; -p si usa per le window, in questo caso ne sono presenti due perche sia l'input che l'output usato dal comando sarà preso dalle finestre, rispettivamente
; %w e %w1

filter -ppxc %w1 %w1 [script]
;qui invece sempre usando -pp con -x escludo le linee contententi [script] e con -c cancello l'output

var %i = 0,%t = $line(%w1,0)
;var %i = 0,%t = alle linee totali della finestra di output (working) e iniziamo il conteggio
while (%i < %t) {
inc %i
var %locate_alias = $addtok(%locate_alias,$+(,$gettok($line(%w1,%i),3,32),),44)
}
echo -s %g Alias Locali -> %locate_alias
;qui visualizzo il msg con gli alias totali trovati usando il comando /filter

clear %w1
;cancello la finestra di output

;proseguo con lo stesso procedimento di prima, cercate di capire da soli

filter -ppx %w %w1 *=alias -l *
filter -ppc %w1 %w1 *=alias *
var %i = 0,%t = $line(%w1,0)
while (%i < %t) {
inc %i
if ($len(%alias) > 150) { echo -s %g Alias -> %alias | unset %alias }

;qui verifico se la lungezza della variabile supera i 150 caratteri, per una visualizzazione più carina dell'output.In alcuni casi la variabile potrebbe superare i 950 caratteri se il file
;contiene troppi aliases, è consigliato quindi, nel caso in cui si vuole cambiare la condizione, di non superare i 950 caratteri :)

var %alias = $addtok(%alias,$+(,$gettok($line(%w1,%i),2,32),),44)
}
echo -s %g Alias -> %alias

clear %w1
filter -pp %w %w1 *=on *
var %i = 0,%t = $line(%w1,0)
while (%i < %t) {
inc %i
var %events = $addtok(%events,$+(,$remove($gettok($gettok($line(%w1,%i),2-,61),1-5,58),$chr(123)),),44)
}
echo -s %g Eventi -> $line(%w1,0) -> %events

clear %w1
filter -pp %w %w1 *=*$*
var %i = 0,%t = $line(%w1,0),%id
while (%i < %t) {
inc %i
inc %id $count($line(%w1,%i),$chr(36))
}
echo -s %g Identificatori usati ->  %id

clear %w1
filter -pp %w %w1 *=dialog * $chr(123)
var %i = 0,%t = $line(%w1,0),%h = 2
while (%i < %t) {
inc %i
if ($gettok($line(%w1,%i),%h,32) == -l) { var %h = 3 }
var %dialog = $addtok(%dialog,$+(,$gettok($line(%w1,%i),%h,32),),44),%h = 2
}
echo -s %g Dialog -> $+($chr(40),$gettok(%dialog,0,44),$chr(41)) %dialog

clear %w1
filter -pp %w %w1 *=menu * $chr(123)
var %i = 0,%t = $line(%w1,0)
while (%i < %t) {
inc %i
var %menu = $addtok(%menu,$+(,$gettok($line(%w1,%i),2,32),),44)
}
echo -s %g Menu -> %menu




  Ultime dal forum mIRC Scripting

Vai al forum
Ultimi script e addon inseriti
Diablo III (14624)
Fancazzista Scr... (18764)
Sensuality scri... (7622)
Grand Theft Aut... (5154)
Stealth Script ... (8382)
-SagittarioScri... (18835)
Paradise Script (13753)
Trivia Game 200... (11882)
Ircap Script 8.... (5191)
RawScript 2.0 (8481)


 

 



Cerca nel sito

Le ultime news:



Sondaggio
Cosa vorresti di nuovo?

Risultati | Archivi

Statistiche Download
Database:
283 Files
241 Mb
Scaricati:
2659868 Files
Totale: 5615348Mb

Upload
Hai realizzato uno Script? Una addon? Una tcl? Un articolo? Qualsiasi cosa? Mandacelo ora! Utilizza il form upload per inviarci il tuo materiale e se lo riteniamo idoneo lo vedrai pubblicato nel portale!
[ Upload ]

Chat
Inserisci il tuo nick:



| Contattaci | Pubblicità | Staff |
Il presente materiale è Copyright TuttoIRC.it 2005. Leggi il Disclaimer