关于字符串

fanny_6

想写一个函数，将字符串中的“\”都替换成“/”
如：c：\as\dd.txt------>C:/as/dd.txt

怎么写，可否给各子程序，我没接触过lisp  谢谢

fanny_6

用

(vl-string-translate "\" "/" "c:\as\dd.txt")

为何不行

_$(vl-string-translate "\" "/" "c:\as\dd.txt")

和(vl-string-translate "\" "/" "c:\as\dd.txt")

是什么区别

 

大家看看我的程序，目的是从注册表中读取路径字符串，将路径改为lisp中可以用的路径既将字符串中的“\”都替换成“/”，打开该文件

 

 

 

fanny_6

程序

(defun GetPath (APP)
  (vl-registry-read
    (strcat
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\"
      APP
      "_is1"
    )
    "Inno Setup: App Path"
  )
)

(defun GetmylyPath () (GetPath "nfCAD"))

(vl-vbaload (findfile (vl-string-translate "\" "/" (strcat(GetmylyPath) "\nfCAD.dvb")) ))

fanny_6

错误提示

错误: 输入的字符串有缺陷

龙龙仔

(vl-string-translate "\\" "/"  (findfile "acad.exe"))

fanny_6

vl-string-translate已经解决，谢谢

新的问题：

错误: 函数错误: "D:/Program Files/nfCAD/nfCAD.dvb"

(defun GetPath (APP)
  (vl-registry-read
    (strcat
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\"
      APP
      "_is1"
    )
    "Inno Setup: App Path"
  )
)

(defun GetmylyPath () (GetPath "nfCAD"))

(vl-vbaload ((vl-string-translate "\\" "/"  (findfile (strcat(GetmylyPath) "/nfCAD.dvb")))))

(defun S::STARTUP()
  (command "_-vbarun" "textadd")
  (command "_-vbarun" "Ch6_AddButton")
)

 

哈哈就差一步程序就可以发布了，到时就把程序贴上来，

meflying

((vl-string-translate "\\" "/"  (findfile (strcat(GetmylyPath) "/nfCAD.dvb"))))

最外层括号做什么用？多余的！

((vl......))

???