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.

Pre pridávanie komentárov sa musíte prihlásiť.

    • Re: pokrocily parsing cisel z retazca 02.11.2011 | 14:49
      Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  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   Používateľ
      ten string ma vzdy rovnaku strukturu, alebo sa v nom ciselne data vyskytuju nahodne?
    • 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 LegacyIce-antiX  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
LinuxOS.sk © 2004-2024 | LinuxOS.sk - Team | ISSN 1337-7639 | Osobné údaje | Odber noviniek
Hosting sponzorovaný vpsFree.cz o.s.