Newsgroup: it.comp.software.newsreader
Titolo: Script per la data

Ho inserito un nuovo semplicissimo script di due tedeschi per formattare la
data in modo da togliere i secondi e visualizzare "oggi" se il messaggio è
della data odierna:
http://fido.altervista.org/Dialog/script.html#oalp2
-- 
Maria Luisa C - 10/05/04 12.42.59, here.
Tutorial e FAQ in italiano su Dialog:
http://fido.altervista.org/Dialog/dialog.php
http://www.lillathedog.net/dialog/faq.html

 
http://fido.altervista.org/Dialog/script.html#oalp2
[applausi]
Stendigovescion
-- 
[foobar v0.8.1 OnAir]
   - Track:   Little day revolution
   - Artist:  Crummy Stuff
   - Album:   Never trust a punk

 
http://fido.altervista.org/Dialog/script.html#oalp2
mini-appunto:
di default la data viene mostrata nel formato 
dd.mm
 e non dd/mm 
non che sia male, ma lo dico, giusto che magari tu non volessi che restasse
così -come magari lo usi tu, ecco :)
ah, qui c'è possibilità per eliminare lo zero davanti alle ore che vanno da
1 a 9? -e magari anche ai giorni ed ai mesi ;))
cia'

 1 a 9? -e magari anche ai giorni ed ai mesi ;))
Se proprio ci tieni... ;)
Basta che tutte le volte che trovi scritto dd, mm, oppure hh, sostituisci
con d, m, oppure h.
Dovrai anche riaggiustare gli spazi intorno a "oggi" per l'incolonnamento.
-- 
Maria Luisa C - 10/05/04 16.43.05, here.


 Se proprio ci tieni... ;)
Ho smanettato un po' con la formattazione, è uscita una cosa carina :)
oggi   -   [10.48]
oggi   -   [9.46]
 9/5   -   [20.15]
-- 
[foobar v0.8.1 OnAir]
 |> Michael Jackson - Billy Jean

 
http://fido.altervista.org/Dialog/script.html#oalp2
carino, ma preferisco il tuo, che fa più cose ^_^
Certo che se si potesse inserire l'idea dell' "oggi" all'interno del tuo 
script... ^_^;;

 "oggi" se il messaggio è della data odierna:
È incredibile, ci sono tutte quelle funzioni di decodifica di TDateTime
e io non ne sapevo niente... avevo decodificato «a mano» con delle copy
le varie parti di data e orario :/
Comunque ora che ho scoperto FormatDateTime è tutto più semplice (avevo
continuato a rimandare la modifica dello script per cambiare il formato
della data proprio perché temevo di dover fare tutto a mano), quindi ho
scritto in quattro e quattr'otto una «nuova versione», rubando l'idea a
questi due tedeschi, e aggiungendo una funzione che ho sempre usato nel
mio script ma senza inserirla in quello su Wiki: l'inversione di data e
ora; inoltre ho inserito anche la funzione di MLC per l'asterisco per i
messaggi contrassegnati... il tutto configurabile ovviamente ^__^
Bando alle ciance [ché è ora di andare a dormire :D], ecco lo script...
program OnArticleListPaint;
const
 
 colDate  = 3; //count your columns from left to right starting from 0
               //and write here the number of the column with the date;
 colScore = 0; //count your columns from left to right starting from 0
               //and write here the number of the column with the Score;
 
 markOddS = true;       // set this to false if you don't want odd scores
                        // to be marked with a * (see Add_1_and_Mark)
 dateFmt  = 'dd/mm';    // refer to dialog.chm::/date_timeformatstrings.htm
 timeFmt  = 'hh:mm';    // refer to dialog.chm::/date_timeformatstrings.htm
 todayStr = '(oggi)';   // "today" in your language and with your favourite formatting
 invert   = true;       // set this to false if you don't want to invert date and time
 
function OnArticleListPaint(PaintString:widestring; ColumnIndex:integer):widestring;
 
var
    fmt : String;  
begin
 case ColumnIndex of
 
 colScore:
    begin
         if ((StrToInt(PaintString) mod 2 = 1) and markOddS) then  PaintString := '*' + PaintString;
    end;
 
 colDate:
    begin
         if DateToStr(StrToDateTime(PaintString))= DateToStr(now) then
            fmt := '"'+todayStr+'"'
         else
            fmt := dateFmt;
 
         if invert then
            fmt := timeFmt + ' ' + fmt
         else
            fmt := fmt + ' ' + timeFmt;
         PaintString := FormatDateTime(fmt, StrToDateTime(PaintString));
    end;
end;
result := PaintString;
end;
begin
end.
Malù, mettilo pure su Fido, se vuoi; intanto lo invio su n.s.r, qualcuno
lo aggiornerà su Wiki ;)
-- 
Fare Well!      FIAG member | Free mail & news | 40tude Dialog v2.0.12.1
G               
www.fiag.it
 | 
www.x-planet.org
 | 
http://snurl.com/dialog
Miranda, Trillian, ICQ, MSN: news:it-alt.comp.software.instant-messaging

 messaggi contrassegnati... il tutto configurabile ovviamente ^__^
non è che in un momento di tempo e sopratutto di bontà ci integri
(sempre configurabile, ovviamente ^_^;) anche l'altro pezzo, quello per
eliminare il nome del poster tra parentesi nella colonna Subject? ^_^;;
E' l'unica cosa che mi impedisce di "upgradare" il mio
OnArticleListPaint dalla versione vecchia di MLC...  

 eliminare il nome del poster tra parentesi nella colonna Subject? ^_^;;
Volentieri, dovrebbe essere abbastanza semplice. Passa [qua o mail] :)
-- 
Fare Well!      FIAG member | Free mail & news | 40tude Dialog v2.0.12.1
G               
www.fiag.it
 | 
www.x-planet.org
 | 
http://snurl.com/dialog
Nokia: news:it.tlc.hardware.nokia news:it-alt.tlc.cellulari.nokia.n-gage

 lo aggiornerŕ su Wiki ;)
Ottimo!
Ho messo su la versione che hai pubblicato su n.s.r. (mi piace di piů: la
mia faccenda degli asterischi non mi convince piů tanto e sto pensando di
toglierla anche dal sito...) e ho tradotto i commenti in italiano.
Vedi se va bene:
http://fido.altervista.org/Dialog/script.html#oalp2
L'ho messo al posto di quello dei tedeschi perché il tuo comprende il loro
(comunque ho lasciato il riferimento alle varie idee all'interno dello
script). 
Ciao e grazie: questa tua versione č quella che preferisco :)
-- 
Maria Luisa C - 22/05/04 11.00.32

 Volentieri, dovrebbe essere abbastanza semplice. Passa [qua o mail] :)
fatto... grazie mille :)))

 eliminare il nome del poster tra parentesi nella colonna Subject? ^_^;;
Ecco qui:
program OnArticleListPaint;
// ideas from MLC, Andreas "Penny" Oeser,
// Christian Sattler, Nico Haase, myself
const
 
 colDate     = 3; //count your columns from left to right starting from 0
                  //and write here the number of the column with the date
 colSubject  = 2; //count your columns from left to right starting from 0
                  //and write here the number of the column with the Subject
 removeFrom  = true;       // set this to false if you don't want to remove the From name
 dateFmt     = 'dd/mm';    // refer to dialog.chm::/date_timeformatstrings.htm
 timeFmt     = 'hh:mm';    // refer to dialog.chm::/date_timeformatstrings.htm
 todayStr    = '(oggi)';   // "today" in your language and with your favourite formatting
 invert      = true;       // set this to false if you don't want to invert date and time
 
function OnArticleListPaint(PaintString:widestring; ColumnIndex:integer):widestring;
 
var
    fmt, tmpString, c : widestring;  
    n : Integer;
begin
  case ColumnIndex of
   colDate:
    begin
         if DateToStr(StrToDateTime(PaintString)) = DateToStr(Now) then
            fmt := '"'+todayStr+'"'
         else
            fmt := dateFmt;
 
         if invert then
            fmt := timeFmt + ' ' + fmt
         else
            fmt := fmt + ' ' + timeFmt;
         PaintString := FormatDateTime(fmt, StrToDateTime(PaintString));
    end;
 
   colSubject:
    begin
      if removeFrom then
         begin
              tmpString := PaintString;
              n := length(tmpString);
              if (n>0) then
                 begin
                      n := length(tmpString);
                      c := copy(tmpString, n, 1);
                      if c = ')' then
                          begin
                               while (n>1) do
                                     begin
                                          n:=n-1;
                                          c:=copy(tmpstring, n, 1);
                                          if c='(' then
                                             begin
                                                  result:=copy(tmpString, 1, n-2);
                                                  exit;
                                             end; //if
                               end; //while
                          end; //if
              end; //if
         PaintString:=tmpString;
         end;
    end;
 
  end;
result := PaintString;
end;
begin
end.
-- 
Fare Well!      FIAG member | Free mail & news | 40tude Dialog v2.0.12.1
G               
www.fiag.it
 | 
www.x-planet.org
 | 
http://snurl.com/dialog
Nokia: news:it.tlc.hardware.nokia news:it-alt.tlc.cellulari.nokia.n-gage

 Ciao e grazie: questa tua versione è quella che preferisco :)
Eh eh ^__^
-- 
Fare Well!      FIAG member | Free mail & news | 40tude Dialog v2.0.12.1
G               
www.fiag.it
 | 
www.x-planet.org
 | 
http://snurl.com/dialog
Programmi gratuiti, freeware e altro: news:it-alt.comp.software.gratuito

 Ecco qui:
Grazie mille ! Gran bello script (i ringraziamenti si estendono anche a
MLC, ovviamente :) )

 Gran bello script (i ringraziamenti si estendono anche a MLC,
La differenza è che lei li scrive, io li assemblo col copia&incolla ^_^;
-- 
Fare Well!      FIAG member | Free mail & news | 40tude Dialog v2.0.12.1
G               
www.fiag.it
 | 
www.x-planet.org
 | 
http://snurl.com/dialog
Dialog, Agent, Pimmy, Xnews, Gravity... news:it.comp.software.newsreader