Giuseppe Gargaro <giuseppe.gargaro@xxxxxxxxx> wrote: > Il giorno 01 maggio 2011 10:42, zuMi <zumikkebe@xxxxxxxxx> ha > scritto: > > > Ciao a tutti, > > > > mantengo (quasi) sempre le mie minacce quindi ecco lo script yab > > che > > sugge il glossario e da suggerimenti sui traducenti da usare, > > ovviamente occorre yab, su haikuware c'è una 1.6, mi pare! > > > > Buona domenica e buon 1° maggio, qui sembra si stia girando una > > bella > > giornata spero che tenga, vi auguro altrettanto! > > Michele > > > > Ciao Michele grazie per l'utile lavoro ho provato il programma > funziona bene > con yab 1.5 che trovate qui > > http://haikuware.com/directory/view-details/development/language/yab > > mentre con la versione 1.6 ha dei problemi vi consiglio inoltre di > scaricare > l'ide per compilarlo > > http://haikuware.com/directory/view-details/development/editors/yabide-besly-edition > in allegato nuova versione corretta dello script e diff tra le mie traduzioni e quelle prelevate dal trunk di haiku qualche gg fa OT: IMO compilare uno script yab è maligno, lega lo script all'interprete e lo rende pure nascosto, OSS forever, anche quando è scritto da un puzzone come me :P altro punto malato in quanto m'è balenata un'altra idea astrusa, se il termine RAISE ora tradotto in un adottatissimo PRIMO PIANO lo rendissimo col verbo SPICCARE o un suo sinonimo? cya gente
#! /boot/home/config/bin/yab SYSTEM ("wget -O - \"http://www.google.com/notebook/public/04405626939701509747/BDcsN3goQ2_y-8vcl\"; | sed -n \'/PubNoteContentArea/,/td>/p\' | sed \'s/<[^<>]*>/$/g\' | tr \"$\" \"\n\" | sed -e \'/^[^a-zA-Z]*$/d\' > /tmp/prova.tmp") SUB fUpdateList ( ) COLUMNBOX CLEAR "List_" DIM awk_res$ ( 1 ) n = SPLIT ( SYSTEM$ ( "sort /tmp/prova.tmp | grep -i \"" + Filter$ + "\" | awk \'{print $1}\' FS=\",\"" ) , awk_res$ () , "\n" ) FOR i = 1 TO n - 1 COLUMNBOX ADD "List_" , 1 , i , 20 , awk_res$ ( i ) NEXT i DIM awk_res$ ( 1 ) n = SPLIT ( SYSTEM$ ( "sort /tmp/prova.tmp | grep -i \"" + Filter$ + "\" | awk \'{print $2}\' FS=\",\"" ) , awk_res$ () , "\n" ) FOR i = 1 TO n - 1 COLUMNBOX ADD "List_" , 2 , i , 20 , awk_res$ ( i ) NEXT i END SUB //# //# //# win_width = 400 win_height = 160 x_pos = ( PEEK ( "DesktopWidth" ) - win_width ) / 2 y_pos = ( PEEK ( "DesktopHeight" ) - win_height ) / 2 WINDOW OPEN x_pos , y_pos TO ( x_pos + win_width ) , ( y_pos + win_height ) , "MainView1" , "Traducenti" WINDOW SET "MainView1" , "Flags" , "Not-Resizable , Not-Zoomable" VIEW 0 , 0 TO win_width , win_height , "View1" , "MainView1" TEXTEDIT 10 , 10 TO win_width - 10 , 30 , "Filter_" , 1 , "View1" TEXTEDIT SET "Filter_" , "has-autocompletion" , TRUE TEXTEDIT SET "Filter_" , "autocomplete-start" , TRUE DIM temp$ (1) n = SPLIT ( SYSTEM$ ( "awk '{print $1}' FS=\",\" /tmp/prova.tmp") , temp$() , "\n" ) FOR i = 1 TO n TEXTEDIT SET "Filter_" , "autocomplete" , LOWER$ ( temp$ ( i ) ) TEXTEDIT SET "Filter_" , "autocomplete" , UPPER$ ( temp$ ( i ) ) NEXT i COLUMNBOX 10 , 40 TO win_width - 10 , win_height - 10 , "List_" , 1 , "" , "View1" COLUMNBOX COLUMN "List_" , "Originale" , 1 , 180 , 180 , 180 , "align-left" COLUMNBOX COLUMN "List_" , "Traducente" , 2 , 180 , 180 , 180 , "align-left" COLUMNBOX COLOR "List_" , "selection" , 153 , 203 , 255 Filter$ = "" fUpdateList ( ) WHILE ( ! inloop ) msg$ = MESSAGE$ currFilter$ = Filter$ Filter$ = TEXTEDIT GET$ "Filter_" IF ( Filter$ <> currFilter$ ) fUpdateList ( ) IF ( INSTR ( msg$ , "Quit" ) ) inloop = TRUE WEND WINDOW CLOSE "MainView1" EXIT