read 函数怎么保留字符串的大小写格式？

菜卷鱼

wharan 发表于 2024-12-2 14:37
主要用在对话框的数据保存和读取。set_tile对大小写是有区别的

setenv、getenv配合使用

wharan

菜卷鱼 发表于 2024-12-9 08:32
setenv、getenv配合使用

从文件读取保存的变量或者set_tile 、get_tile，当给tile 赋值或者取值时，大小写是不同，除非用类似strcat函数全部转换。

黄翔

你从文件读取从set_tile 、get_tile值为什么要用read.

wharan

黄翔 发表于 2024-12-9 14:01
你从文件读取从set_tile 、get_tile值为什么要用read.

那用什么呢？

黄翔

从文件读取不是用 open read-line
read-line 会保留大小写的啊.

菜卷鱼

wharan 发表于 2024-12-9 12:47
从文件读取保存的变量或者set_tile 、get_tile，当给tile 赋值或者取值时，大小写是不同，除非用类似strc ...

我一直用的setenv ,getenv ，没出过问题啊

(defun mx_tog_env ( / h z)
  (setq z (mapcar 'get_tile '("z_dh" "z_mc" "z_sl" "z_cl" "z_bz")))
  (setenv "mx_z_act" (strjoin z "-"))
  (setq h (mapcar 'get_tile '("z_dh" "h_mc" "h_sl" "h_cl" "h_bz")))
  (setenv "mx_h_act" (strjoin h "-"))
)
(defun mx_tog_init (/ zenv henv z h)
  (setq zenv (getenv "mx_z_act"))
  (setq henv (getenv "mx_h_act"))
  (if (null zenv)
    (progn
    (setq zenv "0-0-0-0-0")
    (setenv  "mx_z_act" zenv))
  )
  (if (null henv)
    (progn
    (setq henv "0-0-0-0-0")
    (setenv  "mx_h_act" henv))
  )
  (setq z (split zenv "-"))
  (setq h (split henv "-"))
  (mapcar '(lambda (x y)
             (set_tile x y)
           )
          '("z_dh" "z_mc" "z_sl" "z_cl" "z_bz")
          z
  )
  (mapcar '(lambda (x y)
             (set_tile x y)
           )
          '("h_dh" "h_mc" "h_sl" "h_cl" "h_bz")
          h
  )
)