VFP 愛用者社區

sthuang66 · 註冊時間: 2014-04-27 文章: 178 第 16 樓

謝謝兩位指導!我再試試!好精簡的代碼!

perry · 註冊時間: 2014-07-20 文章: 203 第 17 樓

syntech大大的指令再多+IIF條件即可
UPDATE TBL1 SET PATH = SUBSTR(PATH,1,2*(I-1)) ; && <= 藍色那段
+ IIF(SUBSTR(PATH,2*(I-1)+1,1)=' ',' '+SUBSTR(PATH,2*(I-1)+1,1),IIF(SUBSTR(PATH,2*(I-1)+1,1)>='A',LTRIM(STR(CEILING(I/3)+4))+CHR(ASC(SUBSTR(PATH,2*(I-1)+1,1))-16),LTRIM(STR(CEILING(I/3)))+SUBSTR(PATH,2*(I-1)+1,1))) ; && <= 紅色那段
+ SUBSTR(PATH,2*I) ; && <= 綠色那段
WHERE ALLTRIM(PATH) !='FM' AND ALLTRIM(PATH) !='UL'

syntech · 發表於: 星期一四月 11, 2016 11:14 pm 文章主題:

perry · 註冊時間: 2014-07-20 文章: 203 第 19 樓

syntech · 發表於: 星期二四月 12, 2016 8:25 am 文章主題:

大家想法都一樣.

沒幾個CASE 不要多花腦筋. XD

bx1166 · 註冊時間: 2011-12-06 文章: 273 第 21 樓

我認為程式簡潔易懂是一件需要重視的事情
不曉得各位有沒有這樣的經驗
多年以後以前的客戶希望你增加一些新的功能
而你當年一時的靈感寫出一些你現在都忘記是怎麼一回事
而你當年又為了趕時間沒有寫附註說明
然後你看著這幾段程式心裡想著這是甚麼碗糕?

syntech · 發表於: 星期二四月 12, 2016 10:33 am 文章主題:

雖然我認為這是兩回事啦.

經過歸納演繹的做法不是什麼奇怪的技巧.
就跟你寫一個梯形面積求解的程式,
最基礎的就是積分的作法 ----- 用加的,
但是正常人會用 (上底+下底)*高/2

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 23 樓

perry · 註冊時間: 2014-07-20 文章: 203 第 24 樓

個人比較懶,不會去回憶= ='''
直接針對問題寫 1 只 prg 解決@@安全又保險!!

能一天絕不迤一星期...TIM ->Time Is Money,
不管對客戶或自己而言都是.

sthuang66 · 註冊時間: 2014-04-27 文章: 178 第 25 樓

我依照perry代碼改寫好了
PRIVATE P_STR,I,N_STR,J
P_STR='111222333444'
D_STR='555666777888'
SET EXCLUSIVE OFF
SELECT 0
USE D1 AGAIN
SELECT 0
SELECT *,SPACE(12) AS NEWPATH FROM D1 INTO DBF TESTD1
GO TOP
SCAN
N_STR=''
x=path
For I=1 to 12
J=UPPE(subs(x,i,1))
Do Case
*資料內容組合大概分成下列4種
Case J=' '
Case J$'FUL' and I<12
*如果有連續2英文的不會摻雜其他資料
*N_STR=CHRT(x,' ','')
*EXIT &&結束迴圈
N_STR=N_STR+J+subs(x,i+1,1)
I=I+1
Case J>='A'
N_STR=N_STR+subs(d_str,i,1)+chr(asc(J)-16) &&asc 49 ='1'
Othe
N_STR=N_STR+subs(p_str,i,1)+J
EndCase
Next
REPLACE NEWPATH WITH N_STR
ENDSCAN
GO TOP
COPY TO NEW
USE IN D1
USE IN TESTD1
ERASE TESTD1.DBF
--------------------------------------------------------------------------
只是請教您
x=path+' ' &&為何要加' '
我按照你的代碼跑與我上面我把空格去掉跑結果是相同的

N_STR=N_STR+subs(d_str,i,1)+chr(asc(J)-16) &&這個好厲害又精簡

perry · 註冊時間: 2014-07-20 文章: 203 第 26 樓

原先是想先I=12時出處理第2個字串不會出問題,
後來改好就沒理它了= ='''

sthuang66 · 註冊時間: 2014-04-27 文章: 178 第 27 樓

謝謝您的回覆

syntech · 發表於: 星期二四月 12, 2016 8:43 pm 文章主題:

sthuang66 · 註冊時間: 2014-04-27 文章: 178 第 29 樓

perry · 註冊時間: 2014-07-20 文章: 203 第 30 樓

update ... wher Not (Left(Allt(paht),1)$'FUL' and Subs(Allt(paht),2,1)>='A')
這樣看,您的資料只處理不是連續 2 英文???
SELECT *,path AS NEWPATH FROM D1 INTO DBF TESTD1
GO TOP
*用 ( ) 框起來,前面+ Not 就是相反條件了^^
Scan For Not (Left(Allt(paht),1)$'FUL' and Subs(Allt(paht),2,1)>='A')
.
.
EndScan

******
或前處理
******
SELECT *,path AS NEWPATH,IIF(LEFT(ALLT(PATH),1)$'FUL' AND SUBS(ALLT(PATH),2,1)>='A',.F.,.T.) AS CHKTF FROM D1 INTO DBF TESTD1
GO TOP
SCAN FOR CHKTF
.
.
EndScan