 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
ckp6250
註冊時間: 2004-07-30
文章: 1644
第 1 樓
|
 發表於: 星期二 一月 03, 2012 10:04 am 文章主題: VFP ON Wine 筆記(二) Strconv() 之修正 |
 |
|
今天碰到的一個問題是
在 windows 底下
? Strconv(str,1)
半型會變成全型的
但在 wine 底下會失效,半型還是半型
解決之道是自已寫一個函數
| 代碼: |
*全形中文
Function CHSTR
Para NSTR
Private NSTR,NLEN,vText,I,NASCII
NLEN=Len(NSTR)
vText=''
ChNumBer =' ！」＃＄％＆』�]）＊＋，－．／０１２３４５６７８９：；＜＝＞？＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ〔＼〕︿ˍ『ａｂｃｄｅｆｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝∼'
For I=1 To NLEN
nSubstr=Substr(NSTR,I,1)
NASCII=Asc(nSubstr)
Do Case
Case NASCII>128 &&如為中文，則擷取一個中文字
vText=vText+Substr(NSTR,I,2)
I=I+1
Case (nSubstr>=" " .And. nSubstr<='~')
vText=vText+Substr(ChNumBer,(NASCII-32)*2+1,2)
Other
vText=vText+nSubstr
Endcase
Next
Return vText
|
ckp6250 在 星期六 一月 28, 2012 8:43 pm 作了第 1 次修改 |
|
| 回頂端 |
|
 |
goodnight
註冊時間: 2008-10-13
文章: 472
來自: 台南市
第 2 樓
|
| 發表於: 星期四 一月 12, 2012 9:23 am 文章主題: |
|
|
| 謝謝大大的技術分享 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
