Új hozzászólás Aktív témák

• #8627 Rimuru veterán emvy #8619

  Új Válasz 2015-05-15 17:01:04 #8627

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Rimuru

  veterán

  válasz emvy #8619 üzenetére

  Akkor hátha. Én nem értek hozzá, most kezdtem el tanulgatni, alapvetően common lisp érdekel. Pl egy ilyesmit hogy lehetne szépen megcsinálni?
  A lényeg az hogy amit beolvas egy fájlból azt szeretném egy stingbe belerakni. Ennél a példánál így működik is (és jó csúnya megoldás), de ha mondjuk olyat szeretnék aminek nem tudom előre a hosszát (pl valamilyen záró karakterig olvas be) azt hogy tudnám értelmesen elmenteni egy változóba?

  (defun get-asd ()
  (let ((v1 "0000"))
  (with-open-file (v2 "/home/valami")
  (file-position v2 (- (file-length v2) 6))
  (loop for i from 0 to 3
  do
  (setf (char v1 i) (read-char v2))))v1))

  Utóbbira példa (már ami megvan)
  (defun get-dsa()
  (with-open-file (v1 "/home/valami")
  (loop
  (let ((v2 (read-char v1)))
  (when (string= v2 ".") (return))
  () ;else ág
  )))))

  Vigyázat, csalok!

Új hozzászólás Aktív témák