Topic: Filtering strings . . .

[jbuzbee]

How would I accomplish the following:

I read in a list of strings from a text file including blank lines - the blank lines help with reading the info:

Code: [Select]

01          INTERIOR KEYNOTES

01.001    SCHEDULED DOOR
01.002    WALL PARTITION

01.100    USE PEANUT BUTTER TO CAULK WINDOW FRAME
01.101    TEMPERED GLASS

01.200    BLH, BLAH, BLAH

02          EXTERIOR KEYNOTES 

. . .
So in a listbox control I only want to show the 01 keynotes.  The code I have doesn't recognize the blank spaces so it messes up the formating.  I think I need to use a while loop to know when I've left the 01 keynotes and stop looking but can't figure it out.  I don't need code, maybe a pseudo code outline.

Thanks for any help!

[T.Willey]

Why not use ' wcmatch ' with a pattern of ' 01* '?

[CAB]

If the blank line come in as "" then use
(vl-remove "" lst-of-strings)

[JohnK]

^^ Or dont even store it in the first place (use T.Willey's idea).

[Mark]

read in a list of strings from a text file including blank lines - the blank lines help with reading the info:

The code I have doesn't recognize the blank spaces so it messes up the formating.

Sounds like they need the blank lines to me.

[CAB]

I though he meant that the blank line helped reading that data file when editing it. 

[CAB]

My file reader. Reads the entire file into a list before processing the list.

Code: [Select]

;;  return only lines that start with "01"
(defun c:frtest (/ fname fn ln AllLines lst)
  (setq fname "MyFile.txt"
        prefix "01"
        pflen  (strlen prefix))
 
  (if (setq fn (findfile fname)) ; only if the file is found
    (progn ; fn contains the full path
      (setq fn (open fn "r")) ; open file for reading
      ;;  for speed read all the lines in the file
      (while (setq ln (read-line fn))
(setq AllLines (cons ln AllLines))
      )
      (close fn) ; close the open file handle
      (foreach ln AllLines ; note AllLines is reversed
        ;;  remove leading and trailing tabs & spaces
        (setq ln (vl-string-trim " \t" ln))
        ;;  exclude empty & non numeric lines
        (if (and (/= ln "")
                 (= (substr ln 1 pflen) prefix)
            )
          (setq lst (cons ln lst)) ;  collect the line
        )
      )
    )
  )
 lst
)

[jbuzbee]

I think I'm confusing everyone 

When "filtered" I want this:

Code: [Select]

01.001    SCHEDULED DOOR
01.002    WALL PARTITION

01.100    USE PEANUT BUTTER TO CAULK WINDOW FRAME
01.101    TEMPERED GLASS

01.200    BLH, BLAH, BLAH

not this:

Code: [Select]

01.001    SCHEDULED DOOR
01.002    WALL PARTITION
01.100    USE PEANUT BUTTER TO CAULK WINDOW FRAME
01.101    TEMPERED GLASS
01.200    BLH, BLAH, BLAH

Does that make any more sense?

[Matt__W]

"Peanut butter"... silly architects.   

[JohnK]

jbuzbee , I could have sworn that i gave you a file reader once in a PM but anyways...

Code: [Select]

(defun filereader (str file)
  ;; filereader
  ;;
  ;; Reads all lines in a file into a list.
  ;;
  ;;
  ;;      ( (lambda ( / f my-list )
  ;;          (setq f (open "c:\\Example.ini" "R"))
  ;;          (setq my-list
  ;;              (apply
  ;;                'append
  ;;                   (iniread (read-line f) f)))
  ;;          (close f)
  ;;          my-list ) )
  ;;     
  ;; => ("var1=val1" "var2=val2" "var4=val4")
  ;;
  ;; By: John (7) K
  ;;
  ( (lambda (s f)
      (if s
        (cons
            (list s)
          (filereader (read-line f) f))))
   str
   file ) )

;; one example of how to read from one file and write to another.

 ( (lambda ( / f )
     (setq f (open "c:\\Test.txt" "R"))
     (setq my-list
         (apply
            'append
               (filereader (read-line f) f)))
           (close f)

         (setq f (open "c:\\Test-output.txt" "W"))
         (foreach s my-list
   (write-line s f))
     (close f)) )

[CAB]

OK, maybe this

Code: [Select]

;;  return only lines that start with "01"
(defun c:frtest (/ fname fn ln AllLines lst blank)
  (setq fname "MyFile.txt"
        prefix "01"
        pflen  (strlen prefix))
  
  (if (setq fn (findfile fname)) ; only if the file is found
    (progn ; fn contains the full path
      (setq fn (open fn "r")) ; open file for reading
      ;;  for speed read all the lines in the file
      (while (setq ln (read-line fn))
(setq AllLines (cons ln AllLines))
      )
      (close fn) ; close the open file handle
      (foreach ln (reverse AllLines)
        ;;  remove leading and trailing tabs & spaces
        (setq ln (vl-string-trim " \t" ln))
        ;;  filter
        (cond
          ((and (not blank) (= ln ""))
           (setq lst (cons " " lst)) ;  add one space line
           (setq blank t)
          )
          ((= (substr ln 1 pflen) prefix)
           (setq lst (cons ln lst)) ;  collect the line
           (setq blank nil)
          )
          (blank (setq blank t))
        )
      )
    )
  )
 (reverse lst)
)

[MP]

Perhaps I'm not understanding, but given a list of strings, perhaps harvested from a file, this is all that's needed:

Code: [Select]

(vl-remove-if-not
   '(lambda ( x ) (wcmatch (vl-string-trim " \t" x) "01`.###*"))   
   '(
        "01          INTERIOR KEYNOTES"
        ""
        "01.001    SCHEDULED DOOR"
        "01.002    WALL PARTITION"
        ""
        "01.100    USE PEANUT BUTTER TO CAULK WINDOW FRAME"
        "01.101    TEMPERED GLASS"
        ""
        "01.200    BLH, BLAH, BLAH"
        ""
        "02          EXTERIOR KEYNOTES "
        "..."
    )
)
"01.001    SCHEDULED DOOR"
"01.002    WALL PARTITION"
"01.100    USE PEANUT BUTTER TO CAULK WINDOW FRAME"
"01.101    TEMPERED GLASS"
"01.200    BLH, BLAH, BLAH"

If you want to retain the blank lines just change the wcmatch pattern to "01`.###*,".

[CAB]

Michael he wants the blank lines included, I think.
Although they need to be of one space character.

John, it is the filtering he is struggling with.

[MP]

Yep, ergo the last sentence.

But thanks for the heads up Alan.

[JohnK]

Michael he wants the blank lines included, I think.
Although they need to be of one space character.

John, it is the filtering he is struggling with.

Code: [Select]

(defun filereader (str file)
      (if str
        (cons
  (if (or (wcmatch str "01`.###*" ) (eq str ""))
            (list str))
          (filereader (read-line file) file))))Like this? ...im lost.