pokrocily parsing cisel z retazca

Sekcia: Programovanie 02.11.2011 | 11:04
Guiseppe   Návštevník
zdravim nevedel by niekto spravit pars, ktory by vytiahol cisla zo stringu(aj viacciferne). napriklad: "20aag1wfegr140" by vytiahol cisla x[0]=20 x[1]=1 x[3]=140. najst jednotlive cislice viem, ale neviem ich najst tak, aby tvorili celok ako v prikalde.
    • Re: pokrocily parsing cisel z retazca 02.11.2011 | 14:49
      Avatar Samuel BWPOW Kupka CentOS, Mandriva  Používateľ
      V akom jazyku?
      Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
    • Re: pokrocily parsing cisel z retazca 02.11.2011 | 16:47
      Avatar mmatko debian 8 64bit  Používateľ
      ten string ma vzdy rovnaku strukturu, alebo sa v nom ciselne data vyskytuju nahodne?
      man cokolvek vs. sedativa (1:0)
    • Re: pokrocily parsing cisel z retazca 02.11.2011 | 20:37
      branchman   Návštevník
      Vedel, tu ho mas (netestoval som to, aj tak by to mohlo fungovat). Nevyhoda je, ze neberie same nuly, ale to si snad dokazes upravit. V pripade potreby upravy napis aj to, co si skusal.
      parsuj(Vstup,Vystup):-parsuj(Vstup,Vystup,0).
      
      parsuj([], [], 0).
      parsuj([], [A], A):-A\=0.
      
      parsuj([ZVstup|KVstup], Vystup, MedziVysl):-
        CVstup is ZVstup - "0",
        CVstup >= 0,
        CVstup =< 9,
        !,
        NovyVysl is MedziVysl * 10,
        NovyVysl2 is NovyVysl + CVstup,
        parsuj(KVstup, Vystup, NovyVysl2).
      
      
      parsuj([_|KVstup], KVystup, 0):- parsuj(KVstup, KVystup, 0).
      parsuj([_|KVstup], [MedziVysl|KVystup], MedziVysl):- MedziVysl \= 0, parsuj(KVstup, KVystup, 0).
      
      • Re: pokrocily parsing cisel z retazca 04.11.2011 | 08:34
        Juro Š   Návštevník
        :D no teda neviem ci to potrebuje prave v prologu :D
        inak pekne
        • Re: pokrocily parsing cisel z retazca 04.11.2011 | 09:49
          Avatar bedňa antiX, Devuan, LegacyIce  Administrátor
          No jedine a v čom inom, kua to je maso :D
          Táto správa neobsahuje vírus, pretože nepoužívam MS Windows. http://kernelultras.org