[求助]：如何把字符串转化为数字串

wzg · 发表于 2004-4-22 16:44:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

比如：把字符串"1500 2000 3000 "如何转化为数字串（也就是表）(1500 2000 3000)
用lisp如何实现

ll_j · 发表于 2004-4-22 17:09:01

(setq zfc "1500 2000 3000") ;文件中读出的么
(setq numl (read (strcat "(" zfc ")")))

netbee · 发表于 2004-4-22 22:02:00

呵呵。。。。。。。。
我的轴线绘制中就使用了这个函数!
http://www.xdcad.net/forum/showthread.php?s=&threadid=166187
你有兴趣可以下载来看看。最好用VLISP跟踪分析一下!

;;-----------------
;;字符串表转换至数字表函数
(DEFUN Do_resolve (l / l1 n i x s)
(FOREACH x (REVERSE l)
;;; (IF (/=
(SETQ s (ATOF x))
;;; 0.0)
;;; (progn
(IF (SETQ N (VL-STRING-POSITION (ASCII "*") x))
(SETQ I (ATOI (SUBSTR x (+ 2 n))))
(SETQ I 1)
) ;_ 结束if
(REPEAT i (SETQ l1 (CONS S l1)))
;;; )
;;; ) ;_ 结束if
) ;_ 结束foreach
l1
) ;_ 结束defun
;;-------------------------

调用形式：

(setq test(list "2500*1" 3000*2" "4500*1" ""))
(setq l(Do_resolve test))
;;l=(2500 3000 3000 4500 0.0)

注：由于是为了轴线绘制而编制的，所以每一组字符串都要表示为间距乖以个数的形式。且为了编程的方便，在字符串列表的最后要加一个空串，然后生成的数字表最后为0.0，应在使用中删除。
--------------------
其实只要你分析过上面的程序就可以修改它的，你可以让个数在前面，而间距在后面，或直接就不要个数了!

wzg · 发表于 2004-4-23 14:44:26

黄金长老：
请问：
如何把 1500*3 转化为字符串 "1500*3"
谢谢

netbee · 发表于 2004-4-23 15:15:11

不可能吧
一个数里面怎么可能有＊号呢
你说的是（1500 1500 1500）转化吧

XDSoft · 发表于 2004-4-23 15:16:11

最初由 wzg 发布
[B]黄金长老：
请问：
如何把 1500*3 转化为字符串 "1500*3"
谢谢 [/B]

你这个 1500*3 是怎么得来的，或者从哪里得来的？

wzg · 发表于 2004-4-23 15:39:12

是这样的：
比如：我在edit_box控件中输入2000 1500*3 3000,得到字符串“2000 1500*3 3000”，按照黄金长老的方法得到数字串(2000 1500*3 3000)，我想按netbee兄的方法得到（2000 1500
1500 1500 3000），但是netbee要求的格式为（“2000” “1500*3” “3000”），2000和3000容易转化，但是1500*3如何转为"1500*3"？

netbee · 发表于 2004-4-23 16:15:26

呵呵。。。。。。。。。。
我知道了
你是讲从文本框中得到的是一个字符串
如："2500 3000*3 1500"
你想转换为字符串列表：("2500*1" "3000*3" "1500*1")
然后使用我上面的函数
最后生成数字串列表：(2500 3000 3000 3000 1500)

是吧。
这一步的函数在我的轴线绘制中
http://www.xdcad.net/forum/showthread.php?s=&threadid=166187
你用VLISP加载跟踪看看吧!

;;键入文本框定义函数
(defun Do_EnterData

你在这个Do_EnterData 函数内部第一行下中断跟踪就行了。

wzg · 发表于 2004-4-23 17:13:37

netbee兄：
(substrnumber) (strparse)是什么函数，我在书上找不到它
谢谢

netbee · 发表于 2004-4-23 20:01:46

这是自定义函数
它并不是我编制的
呵呵。。。。。。。。
是[明经通道]上的

;;;==================================================================
;;; (StrParse Str Delimiter)
;;; 将具有分隔符的字符串解析为列表
;;;------------------------------------------------------------------
;;; 参数:
;;; Str 要解析的字符串
;;; Delimiter 要搜索的分隔符
;;;------------------------------------------------------------------
;;; 返回:
;;; 一个字符串列表。
;;; 示例:
;;; (setq a "Harp,Guiness,Black and Tan")
;;; (StrParse a ",")
;;; 返回:
;;; ("Harp" "Guiness" "Black and Tan")
;;;------------------------------------------------------------------
;;; 相关主题: (StringToList)
;;;------------------------------------------------------------------
(defun strParse (Str Delimiter / SearchStr StringLen return n char)
(setq SearchStr Str)
(setq StringLen (strlen SearchStr))
(setq return '())
(while (> StringLen 0)
(setq n 1)
(setq char (substr SearchStr 1 1))
(while (and (/= char Delimiter) (/= char ""))
(setq n (1+ n))
(setq char (substr SearchStr n 1))
) ;_ end of while
(setq return (cons (substr SearchStr 1 (1- n)) return))
(setq SearchStr (substr SearchStr (1+ n) StringLen))
(setq StringLen (strlen SearchStr))
) ;_ end of while
(reverse return)
) ;_ end of defun
;;;==================================================================
;;; (StrUnParse Lst Delimiter)
;;; 将一个字符串列表解析为1个具有分隔符的字符串
;;;------------------------------------------------------------------
;;; 参数:
;;; Str 要连接的列表
;;; Delimiter 使用的分隔符
;;;------------------------------------------------------------------
;;; 返回:
;;; 一个字符串。
;;; 示例:
;;; (setq a '("Harp" "Guiness" "Black and Tan"))
;;; (StrUnParse a ",")
;;; 返回:
;;; "Harp,Guiness,Black and Tan"
;;;------------------------------------------------------------------
(defun StrUnParse (Lst Delimiter / return)
(setq return "")
(foreach str Lst
(setq return (strcat return Delimiter str))
) ;_ end of foreach
(substr return 2)
) ;_ end of defun
;;;------------------------------------

;;;================================================================== 
;;; (StrParse Str Delimiter) 
;;;                将具有分隔符的字符串解析为列表 
;;;------------------------------------------------------------------ 
;;; 参数: 
;;;                Str                        要解析的字符串 
;;;                Delimiter        要搜索的分隔符 
;;;------------------------------------------------------------------ 
;;;        返回: 
;;;                一个字符串列表。 
;;;                示例: 
;;;                (setq a "Harp,Guiness,Black and Tan") 
;;;                (StrParse a ",") 
;;;                返回: 
;;;                ("Harp" "Guiness" "Black and Tan") 
;;;------------------------------------------------------------------ 
;;; 相关主题: (StringToList) 
;;;------------------------------------------------------------------ 
(defun strParse        (Str Delimiter / SearchStr StringLen return n char) 
  (setq SearchStr Str) 
  (setq StringLen (strlen SearchStr)) 
  (setq return '()) 
 
 
  (while (> StringLen 0) 
    (setq n 1) 
    (setq char (substr SearchStr 1 1)) 
    (while (and (/= char Delimiter) (/= char "")) 
      (setq n (1+ n)) 
      (setq char (substr SearchStr n 1)) 
    ) ;_ end of while 
    (setq return (cons (substr SearchStr 1 (1- n)) return)) 
    (setq SearchStr (substr SearchStr (1+ n) StringLen)) 
    (setq StringLen (strlen SearchStr)) 
  ) ;_ end of while 
  (reverse return) 
) ;_ end of defun 
;;;================================================================== 
;;; (StrUnParse Lst Delimiter) 
;;;                将一个字符串列表解析为1个具有分隔符的字符串 
;;;------------------------------------------------------------------ 
;;; 参数: 
;;;                Str                        要连接的列表 
;;;                Delimiter        使用的分隔符 
;;;------------------------------------------------------------------ 
;;;        返回: 
;;;                一个字符串。 
;;;                示例: 
;;;                (setq a '("Harp" "Guiness" "Black and Tan")) 
;;;                (StrUnParse a ",") 
;;;                返回: 
;;;                "Harp,Guiness,Black and Tan" 
;;;------------------------------------------------------------------ 
(defun StrUnParse (Lst Delimiter / return) 
  (setq return "") 
  (foreach str Lst 
    (setq return (strcat return Delimiter str)) 
  ) ;_ end of foreach 
  (substr return 2) 
) ;_ end of defun 
 
;;;------------------------------------

wzg · 发表于 2004-4-24 11:58:37

感谢netbee兄的热心教诲,希望以后能得到你的更多帮助

前生 · 发表于 2004-4-24 13:01:47

vl-prin1-to-string

wzg · 发表于 2004-4-24 15:32:24

netbee兄：
(substrnumber) 是什么函数，请继续

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何把字符串转化为数字串

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块