| 发表于:2007-09-05 09:21:132楼 得分:0 |
光是提取很容易,用pos加个循环就可以。 问题是,[]有嵌套,对嵌套的你希望怎样处理? 如果只是要提取最内层的: var s : string; m,n:integer; s := 'matlab ...'; while s <> '' do begin m := pos('[',s); if m <=0 then break; s := copy(s, m+1, maxint); n := pos(']',s); if n <=0 then break; showmessage(stringreplace(copy(s,1,n-1), '[', '', [rfreplaceall])); s := copy(s, n+1, maxint); end; | | |
|