如何将"=if (c2>0,"是","否")"写进电子表格单元格

lht

本意是将=if (c2>0,"是","否")写入C3单元格,但结果c3单元格内只写入了=if (c2>0，不能将=if (c2>0,"是","否")完整地写入，请问有什么办法解决。

edata

完整程序。

ll_j

写成 "=if(c2>0,""是"",""否"")" 试试。

lht

    三楼方法不行,回二楼,相关部分程序如下:
(setq ffn (getfiled "选择文件" "" "csv" 1 )
          ff (open ffn "w")   
   )
    (close ff)
……………
    (setq ff (open ffn "a"))
   (princ "=if (c2>0,"是","否")" ff)
   (close ff)
目的是如果c2单元格的值大于0,c3单元格就显示"是",c2单元格的值小于0,就显示"否",因为电子表格要把"是"或"否"用引号括起来才能按字符串显示.

ll_j

lht 发表于 2014-7-31 11:41
三楼方法不行,回二楼,相关部分程序如下:
(setq ffn (getfiled "选择文件" "" "csv" 1 )
          f ...

看看这样：

1. (defun c:tt ()
   
2.   (setq ffn (getfiled "选择文件" "" "csv" 1)
   
3.         ff  (open ffn "w")
   
4.   )
   
5.   (princ 1 ff)    ;数字可以直接写入文件
   
6.   (princ "," ff)
   
7.   (princ "2" ff)  ;数字也可以当作字符写入文件
   
8.   (princ "," ff)
   
9.   (princ "\"=if(b2>0,\"\"是\"\",\"\"否\"\")\"" ff)  ;写到文件中应该包括全部的引号，即声明是字符串
   
10.   (close ff)
    
11. )

(defun c:tt ()<br />   (setq ffn (getfiled "选择文件" "" "csv" 1)<br />         ff  (open ffn "w")<br />   )<br />   (princ 1 ff)    ;数字可以直接写入文件<br />   (princ "," ff)<br />   (princ "2" ff)  ;数字也可以当作字符写入文件<br />   (princ "," ff)<br />   (princ "\"=if(b2>0,\"\"是\"\",\"\"否\"\")\"" ff)  ;写到文件中应该包括全部的引号，即声明是字符串<br />   (close ff)<br /> )

q3_2006

ll_j 发表于 2014-7-31 12:40
看看这样：

请大师解决个问题....001导入EXCEL会自动变成1....加'也没用...拜托给想点办法....谢谢了!

q3_2006

edata 发表于 2014-7-31 10:44
完整程序。

一块解决下呗.....001导入EXCEL会自动变成1....加'也没用...拜托给想点办法....谢谢了!

ll_j

q3_2006 发表于 2014-7-31 16:55
一块解决下呗.....001导入EXCEL会自动变成1....加'也没用...拜托给想点办法....谢谢了!

试了一下，没什么有效办法，有几个思路可以参考：
1.使用excel的text函数，复杂，但得到的是字符串。
2.使用excel的单元格输出格式，这要对excel单元格进行设置，用Lisp就难了（我不懂就不说了）
当然，也可以就加一个“'”，这样输出的单元格在被（点击）激活后是正确的字符串，但激活之前不正确。
对这些我也不是很精通，只是善于现学现卖而已，希望有用。

q3_2006

ll_j 发表于 2014-7-31 17:21
试了一下，没什么有效办法，有几个思路可以参考：
1.使用excel的text函数，复杂，但得到的是字符串。
2 ...

我目前的方法是导出TXT...用EXCEL打开...之外没有更好的方法....也百度不到...

q3_2006

q3_2006 发表于 2014-7-31 16:53
请大师解决个问题....001导入EXCEL会自动变成1....加'也没用...拜托给想点办法....谢谢了!

院长....如果这么简单能搞定...就不问了....