(defun read-katalog-file-by-ass-list (patch-file / ass-list big-ass-list list-head n txt-list)
  (setq txt-list(file_read_to_list patch-file))
  (setq list-head (convert-string-to-list-be-delimiter (car txt-list) "\t"))
  (foreach x (cdr txt-list)
    (setq list-strings (convert-string-to-list-be-delimiter x "\t"))
    (setq ass-list nil)
    (setq n 0)
    (foreach y list-strings
      (setq ass-list (append ass-list (list (list (nth n list-head) (if (wcmatch (nth n list-head) "*X*,*Y*,*B*,*L*,*H*")(atof (vl-string-subst "." "," y))y)))))
      (setq n (1+ n))
      )
    (setq big-ass-list (append big-ass-list (list ass-list)))
    )
  big-ass-list
  )