|
From: | D . Goel |
Subject: | Re: ** Q: HOW TO MANIPULATE STRINGS IN A FILE WITH A LISP FUNCTION ** |
Date: | 16 Sep 2002 09:07:46 -0400 |
User-agent: | Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
<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))))
[Prev in Thread] | Current Thread | [Next in Thread] |