|
|
- # -*- mode: snippet -*-
- # contributor: Xah Lee (XahLee.org)
- # name: read lines of a file
- # key: x-file
- # --
- (defun read-lines (filePath)
- "Return a list of lines in FILEPATH."
- (with-temp-buffer
- (insert-file-contents filePath)
- (split-string
- (buffer-string) "\n" t)))
-
- ;; process all lines
- (mapc
- (lambda (aLine)
- (message aLine) ; do your stuff here
- )
- (read-lines "inputFilePath")
- )
|