 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
ufochen
註冊時間: 2003-09-17
文章: 166
第 1 樓
|
 發表於: 星期一 八月 21, 2017 11:04 am 文章主題: 如何傳回每個字元都不重複的字串 |
 |
|
| 如何把 "abracadabra" 轉換成 "abrcd" 即轉換後的字元都不重複,請賜教謝謝! |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
| 發表於: 星期一 八月 21, 2017 11:46 am 文章主題: |
|
|
mstr="abracadabra"
FOR i=1 TO LEN(mstr)
mfind=SUBSTR(mstr,i,1)
mstr=mfind+strt( mstr , mfind ,'' )
NEXT
RETURN mstr
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 3 樓
|
| 發表於: 星期一 八月 21, 2017 3:36 pm 文章主題: |
|
|
mstr="abracadabra"
FOR i=1 TO LEN(mstr)
mstr=SUBSTR(mstr,1,i)+strt( SUBSTR(mstr, i) , SUBSTR(mstr,i,1) ,'' )
NEXT
? mstr
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 4 樓
|
| 發表於: 星期一 八月 21, 2017 5:54 pm 文章主題: |
|
|
我比較喜歡又臭又長的程式，
mstr="abracadabra"
b=left(mstr,1)
FOR i=2 TO LEN(mstr)
c=SUBS(mstr,i,1)
b=b+iif(AT(c,b)=0,c,'')
NEXT
? b |
|
| 回頂端 |
|
|
ufochen
註冊時間: 2003-09-17
文章: 166
第 5 樓
|
| 發表於: 星期二 八月 22, 2017 1:27 pm 文章主題: |
|
|
| 謝謝諸位先進不吝指教! 謝謝 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 6 樓
|
| 發表於: 星期二 八月 22, 2017 4:39 pm 文章主題: |
|
|
應該是這樣:
| 代碼: |
mstr="abracadabra"
? master_garfield_helpme(mstr)
|
XD XD XD XD XD
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
ezpos
註冊時間: 2011-04-20
文章: 323
第 7 樓
|
| 發表於: 星期三 八月 23, 2017 10:04 am 文章主題: |
|
|
| syntech 寫到: | 應該是這樣:
| 代碼: |
mstr="abracadabra"
? master_garfield_helpme(mstr)
|
XD XD XD XD XD |
+1
_________________
ezPos收銀機 簡單好用低成本 http://www.ezpos.info
全新美觀的POS收銀機.POS軟硬體耗材.
軟體客制化.網站規劃....能賺錢的都可以找我
http://www.twelife.com 台灣生活網 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
