我想從一個字符串列表中提取某些元素,從字符串「實體」開始到字符串結尾的「對象」球拍/方案列表操作
到目前爲止,我有這個給我從要素字符串實體向前,但沒有辦法從字符串「OBJECTS」向前移除元素。
(define (test-string2 lst keyword)
(member (string-upcase keyword) lst))
我也看了對功能,這是我的嘗試,但顯然行不通
(define (test-string2 lst keyword)
(cdr (member (string-upcase keyword) lst)))
;return list that matches keyword
(define (test-string3 lst keyword)
(if (string=? (car lst) (string-upcase keyword))
'()
(begin (car lst)
(test-string3 (cdr lst) keyword))))
;return elements in list until keyword is matched
(test-string3 (test-string2 list-of-strings "entities") "objects")
> list-of-strings
'("SECTION"
" 2"
"ENTITIES"
" 0"
"SPLINE"
" 5"
"F7"
"330"
"1F"
"100"
"AcDbEntity"
" 8"
"0"
" 6"
"Continuous"
" 62"
" 5"
"370"
" 0"
"100"
"AcDbSpline"
"OBJECTS"
"3"
"5"
"6"
"6"
"7"
"78")
這並不重要,我只想要「實體」和「對象」之間的元素 – KRC 2014-12-07 09:51:57