VFP 愛用者社區

[iddqd69]

假設有很多規格..
外徑*厚度*長度
20*15*1250L *小王使用*
15.6*11.05*20L -阿花使用-
3*1.25*500L
26.15*5*516L
要抓取外徑時我使用VAL(STR(VAL(規格)))
如果說我要抓取厚度跟長度時該怎麼用呢?
麻煩請指教..
謝謝!!

[elleryq]

這應該不難寫~~~

substr() 可以取得字串中的某一段字串...
再配合迴圈與 state machine 去處理....

大致的 code 長這樣....太久沒用 vfp.....不保證一定正確...請自己 debug 一下並確定你了解我的意思...

[BIN]

用AT()配合SUBSTR()也可以做到...

[bin1x]

完整的寫法如下
感覺起來有點笨
裡面有這支程式的想法完整過程
USE SPEC
PRIV nLENGTH
PRIV nWIDE,nLENG
DO WHILE NOT EOF()
nLENGTH = LEN(SPEC.SPEC)
*SET STEP ON
nWIDE = WIDE(SPEC.SPEC)
nLENG = LENG(SPEC.SPEC)
? nWIDE,nLENG
SKIP
ENDDO

FUNC WIDE
PARA cFIELD
*!* PRIV nLENGTH
*!* PRIV lFOUND1,nPOSI1
*!* PRIV lFOUND2,nPOSI2
*!* PRIV lFOUND3,nPOSI3
*!* PRIV I
*!* I = 1
*!* lFOUND1 = .F.
*!* lFOUND2 = .F.
*!* lFOUND3 = .F.
*!* nLENGTH = LEN(cFIELD)
*找到第一個星號,記取INDEX;回到迴轉開始,從找到的地方繼續
*!* DO WHILE I < nLENGTH
*!* IF SUBSTR(cFIELD,I,1) = '*'
*!* lFOUND1 = .T.
*!* nPOSI1 = I
*!* I = nPOSI1
*!* LOOP
*!* ENDIF
*!* *找到第二個星號,記取INDEX
*!* IF SUBSTR(cFIELD,I,1) = '*' AND lFOUND1 AND NOT lFOUND2
*!* lFOUND2 = .T.
*!* nPOSI2 = I
*!* I = nPOSI2
*!* LOOP
*!* ENDIF
*!* *找到第三個星號,記取INDEX
*!* IF SUBSTR(cFIELD,I,1) = '*' AND lFOUND2 AND NOT lFOUND3
*!* lFOUND3 = .T.
*!* nPOSI3 = I
*!* I = nPOSI3
*!* LOOP
*!* ENDIF
*!* I = I + 1
*!* ENDDO

RETU VAL(SUBSTR(cFIELD,ATC('*',cFIELD,1)+1,ATC('*',cFIELD,2)-ATC('*',cFIELD,1)))

FUNC LENG
PARA cFIELD
RETU VAL(SUBSTR(cFIELD,ATC('*',cFIELD,2)+1,ATC('L',cFIELD,1)-ATC('*',cFIELD,2)))