Oznámení

Sbalit
Aktuálně žádná oznámení.

ARexx

Sbalit
X
 
  • Filtr
  • Čas
  • Zobrazit
Vymazat vše
new posts

    ARexx

    Jak co nejelegantneji zjistit pocet souboru v adresari pomoci arexxu ? (Bez pouziti rexxreqtools.library)
    Muj postup je prilis hruby a nazvy souboru musi obsahovat cisla.
    Code:
     /* frejmy musi mit nazev 00001.jpg nebo 0001.jpg 001.png atd */
    options results
    l="rmh.library";if ~show("L",l) then;if ~AddLib(l,0,-30) then exit
    call RMH_System('c:requestfile pattern="#?" drawer="trans:temp" Title="Select first picture"',,'firstpic')
    parse var firstpic '"'nazev'"'
    fajl = RMH_FilePart(nazev)
    cesta = rmh_pathpart(nazev)
    parse var fajl jmeno'.'pripona
    delka = length(jmeno) /*delka jmena bez pripony*/
    call RMH_System('c:list 'cesta' quick sort rn nohead >ram:fdir',,'nil')
    call open('frameslist','ram:fdir','R')
    pocet = readch('frameslist',delka)+0
    say nazev "nazev"
    say cesta "cesta"
    say fajl  "fajl"
    say jmeno "jmeno"
    say pocet "pocet frejmu"
    call close('frameslist')
    Amiga DraCo DaMi PegasosII G4 G5

    #2
    O: Arexx

    Musel jsem na to pouzit rexxtricks.library, ale je to univerzalnejsi.
    Code:
    /* Pocet souboru */
    call addlib('rexxtricks.library',0,-30)
    l="rmh.library";if ~show("L",l) then;if ~AddLib(l,0,-30) then exit
    call RMH_System('c:requestfile pattern="#?" drawer="trans:temp" Title="Select first picture"',,'firstpic')
    parse var firstpic '"'nazev'"'
    fajl = RMH_FilePart(nazev)
    cesta = rmh_pathpart(nazev)
    parse var fajl jmeno'.'pripona
    call RMH_System('c:list 'cesta' quick sort n nohead >ram:fdir',,'nil') /* vytvori txt soubor (filelist) */
    call readfile('ram:fdir',pocet) /* readfile() rexxtricks.library */
    say pocet.0 "pocet frejmu"      /* stem.0 = pocet radku filelistu (souboru v adresari) */
    Kdo jeste dela s Arexxem ? Arexx je samozrejme bozi
    Amiga DraCo DaMi PegasosII G4 G5

    Komentovat


      #3
      O: Arexx

      Kdysi jsem ho pouzival v davnych dobach k vytvareni maker pro kompilace, nebo treba k hromadnemu vkladani komentaku k hudebnim modum, ale na takovouhle uroven jsem se nikdy nedostal.

      Komentovat


        #4
        O: Arexx

        Tak jde to i bez pouziti jakekoli library
        Code:
        /* Pocet souboru v adresari */
        address command 'c:requestfile >ram:cesta pattern="#?" drawersonly drawer="trans:temp" Title="Vyber adresar"'
        call open('adresar','ram:cesta','R')
        cesta = readln('adresar')
        address command 'c:list 'cesta' quick nohead >ram:fdir'
        pocet = 0
        call open('vystup','ram:fdir','R')
        radek = readln('vystup')
        do while ~eof('vystup')  /* delej dokud nedosahnes konce souboru */
            push radek
            pocet = pocet + 1
            radek = readln('vystup')
        end
        say "pocet souboru v adresari" pocet
        Amiga DraCo DaMi PegasosII G4 G5

        Komentovat


          #5
          Arexx je bozi

          Potreboval bych poradit, jak zjistit co je to za typ souboru (format, jde mi o obrazky). Napr jpg ma v hlavicce na urcity pozici vyraz "JFIF", iff ma na zacatku "FORM" a podobne.
          Umim teda nacist treba 100 znaku z hlavicky souboru a ty pak analyzovat, ale zatim nevim jak poznat dalsi formaty. TGA TIFF a PCX.
          Uz jsem taky narazil na ruzny odlisnosti a chtel bych to udelat tutovy. Neni to primo Arexx dotaz, tak se nebojte poradit nebo kde bych to mohl najit
          Naposledy upravil ghh; 27.06.2012, 22:50:04. Důvod: sotek
          Amiga DraCo DaMi PegasosII G4 G5

          Komentovat


            #6
            O: Arexx

            Nebude to treba ve zdrojacich Gimpu?

            Komentovat


              #7
              O: Arexx

              Hmm zajimavej smer. Prohledat zdrojaky grafickyho programu ! Predpokladam ze zdrojaky Gimpu maj hodne pismenek
              Amiga DraCo DaMi PegasosII G4 G5

              Komentovat


                #8
                O: Arexx

                Co jsem bleskem a bez zaruky koukal, tak treba libpng to ma popsane v manualu. Libjpg bude zrejme stejne.

                Komentovat


                  #9
                  O: ARexx

                  Není to co chceš práce datatypů? Na Aminetu toho bude plno.
                  Pegasos II (1266MHz), 2048MB RAM, Radeon 9250 (256MB), HDD 200GB, USB 2.0, ZIP250 USB, USB floppy, SB Live!, HP LaserJet 1100, AmigaOS 4.1 Final Edition

                  Komentovat


                    #10
                    O: ARexx

                    Komentovat


                      #11
                      O: ARexx

                      ExiE: Jo neco takovyho jsem hledal. To je presne ono dik.
                      Prober: ja to chci "zadratovat" do svyho programu, bez cehokiliv externiho. Treba deficons si umi dobre poradit, ale ten se mi nepodarilo primet ke spolupraci.
                      Prvni pokusy: (jeste poladim)
                      Code:
                          if open('lyz','ram:pokpng') then do
                              fajl = readch('lyz',100)
                              call close('lyz')
                              sl0 = left(fajl,4)      /* prvni 4 znaky zleva (od zacatku) */
                              sl1 = substr(fajl,5,4)  /* zacni na pozici 5 zleva a vypis 4 znaky */
                              sl2 = substr(fajl,9,4)  /* pozice 9 , 4 znaky */
                              sl3 = left(fajl,2)
                              sl4 = substr(fajl,7,4)
                              sl5 = substr(fajl,53,4)
                              sl6 = substr(fajl,2,3)
                              sl7 = substr(fajl,9,3)
                              ascii = xrange(' ','~')xrange('a0'x,'ff'x)'0a'x  /* seznam vsech ascii znaku */
                              select
                                  when sl0 = 'FORM' & sl2='ILBM' & sl5='CMAP'  then tp='iff cmap'
                                  when sl0 = 'FORM' & sl2='ILBM'  then tp='iff'
                                  when sl0 = 'GIF8'              then tp='gif'
                                  when sl1 = 'moov'             then tp='mov'
                                  when sl3 = '0&'                 then tp='wmv'
                                  when sl4 = 'JFIF'               then tp='mjpeg' /* jpg */
                                  when sl4 = 'Lavc'             then tp='mjpeg' /* mencoder jpg */
                                  when sl6 = 'PNG'              then tp='png'
                                  when sl7 = 'AVI'               then tp='avi'
                                  when length(compress(fajl,ascii))<10 then tp='ASCII text'
                                  otherwise
                                  tp = "Unknown"
                              end
                              g.typ = tp
                              say "Probable file type:" g.typ
                          end
                      Chci to pouzit k sofistikovanymu ffmpeg gui.
                      Amiga DraCo DaMi PegasosII G4 G5

                      Komentovat


                        #12
                        O: ARexx

                        Koukam, ze jsi se vrhl i na video, nenapadny tip:
                        Code:
                        http://mediainfo.sourceforge.net

                        Komentovat


                          #13
                          O: ARexx

                          Autorem citovaného textu je ghh Přejít na původní příspěvek
                          Prober: ja to chci "zadratovat" do svyho programu, bez cehokiliv externiho. Treba deficons si umi dobre poradit, ale ten se mi nepodarilo primet ke spolupraci.
                          Chápu, já myslel vzít datatypy a editorem z toho vytáhnout syntaxi hlavičky.
                          Pegasos II (1266MHz), 2048MB RAM, Radeon 9250 (256MB), HDD 200GB, USB 2.0, ZIP250 USB, USB floppy, SB Live!, HP LaserJet 1100, AmigaOS 4.1 Final Edition

                          Komentovat


                            #14
                            O: ARexx

                            Aha . Ted jsem na to koukal, ale neni to jednoznacny. To asi nebude ono
                            Amiga DraCo DaMi PegasosII G4 G5

                            Komentovat


                              #15
                              O: ARexx

                              Né, že bych to teď potřeboval, ale jde v Arexxu bez použití přídavné knižnice použít:

                              Test stisku klávesy, vložit obrázek, vložit zvuk?

                              V Amiga Pythonu můžu skočit do Arexxu. Bylo by fajn mít přístup k těmhle věcem.
                              Amiga - PMD 85

                              Komentovat

                              Zpracovávám...
                              X