Re: ** Q: HOW TO MANIPULATE STRINGS IN A FILE WITH A LISP FUNCTION **

[D . Goel]

<newsgroups restricted to g.e.help>

> My problem is very simple for an emacs guru. More than one solution is
> very welcome.
> 
> I have a list of numbers in a file as follows:
> 
> ABC98789
> DDE90898889
> FRE9090909

;; returns somethign like (("ABC" "DEF" "GGH") ("1123" "223" "332"))
(defun gnuist-contents (file)
  ""
  (let (let-num let num
                (letters nil)
                (numbers nil))
    (find-file file)
    (goto-char (point-min))
    (while (forward-word 1)
      (setq let-num (format "%S" (sexp-at-point)))
      (setq let (substring let-num 0 3))
      (setq num (substring let-num 3 (length let-num)))
      (push let letters)
      (push num numbers))
    (list (reverse letters) (reverse numbers))))