[编程交流] 字符串比较-不为E

(defun c:ctf (/ fil fl i mycount out1 out2 rec)
 ;; String to List  -  Lee Mac
 ;; Separates a string using a given delimiter
 ;; str - [str] String to process
 ;; del - [str] Delimiter by which to separate the string
 ;; Returns: [lst] List of strings
 (defun lm:str->lst (str del / pos)
   (if    (setq pos (vl-string-search del str))
     (cons (substr str 1 pos) (lm:str->lst (substr str (+ pos 1 (strlen del))) del))
     (list str)
   )
 )   ; End of lm:str->lst
 ; ===========================================================================================================
 ; Read File 1
 (setq fl nil)
 (setq fil nil)
 (if (setq fl (open "C:\\Users\\ggleason\\Documents\\CADWorx\\CADWorx.Projects\\Exxon.Joliet.2015-151\\IsoLayers\\ExxonMobil.Iso.Border.Acad.v.2007.dwg.txt" "r"))
   (progn 
      (setq mycount 0)
      (while (setq fil (read-line fl))
         (setq mycount (1+ mycount))
         ; SYNTAX: (princ "\nMy Name is \nJohn")(princ)
         ; (princ mycount)(princ "\n")
         (setq out1 (cons (lm:str->lst fil "\t") out1))
      )   ; End of "While" loop
      (close fl)
      (princ (strcat (itoa mycount) " records read in File 1\n"))
   )
 )   ; End of "If" statement for File 1
 ;; Reverse results to put them in correct order
 (setq out1 (reverse out1))
 ; End of File 1
 ; ===========================================================================================================
 ; Read File 2
 
 (setq fl nil)
 (setq fil nil)
 (if (setq fl (open "C:\\Users\\ggleason\\Documents\\CADWorx\\CADWorx.Projects\\Exxon.Joliet.2015-151\\IsoLayers\\ExxonMobil.Iso.Border.Acad.v.2007.dwg.txt" "r"))
   (progn 
      (setq mycount 0)
      (while (setq fil (read-line fl))
         (setq mycount (1+ mycount))
         ; SYNTAX: (princ "\nMy Name is \nJohn")(princ)
         ; (princ mycount)(princ "\n")
         (setq out2 (cons (lm:str->lst fil "\t") out2))
      )   ; End of "While" loop
      (close fl)
      (princ (strcat (itoa mycount) " records read in File 2\n"))
   )
 )   ; End of "If" statement for File 2
 ;; Reverse results to put them in correct order
 (setq out2 (reverse out2))
 ; End of File 2
 ; ===========================================================================================================
         ; SYNTAX: (if (= 1 3) "YES!!" "no.")
 (if (= out1 out2)
    (princ "\nYES!!")
    (princ "\nno.")
 )
 (princ "\n ------------------------------------------------")
 (princ "\n")
 (princ out1)
 (princ "\n ------------------------------------------------")
 (princ "\n")
 (princ out2)
 (princ "\n ------------------------------------------------")
(princ)
)                    ; End of c:ctf

_$ (= '(1 2 3) '(1 2 3))
nil

_$ (equal '("a" "b" "c") '("a" "b" "c"))
T

(vl-every '= '("a" "b" "c") '("a" "b" "c") '("a" "b" "c"))

(vl-every '= ListOfStrings1 ListOfStrings2 ListOfStrings3 ...)

7

8