VFP 愛用者社區

[garfield]

一般在處理中文字時如果要讓它由橫式變成直立式,除了利用字型的方式來改變以外, 並沒有人對於同時有英數字時該如何處理有漂亮的處理方式, 現在你參考以下的做法, 希望你們還覺得滿意.
原字串: 大里市德芳南路385號
輸出結果:
大
里
市
德
芳
南
路
385
號

* 如果有這個程式用於 label 裡, 你不須要轉字型, 只要將放地址的物件寬度設成4個英文字,高度設20行, 印出來的字就是站了起來囉.^^

程式碼:
******************************************
func splitcword &&--將一個一個的中文字切斷, 如有英數字則不會切掉, 可用於直印中文地址
Lpara mstr
* splitword('台中縣大里市德芳南路385號' ) ==> 中文字, 一個字一個字的切, 數字不會切.
* Garfield
If empty( mstr ) &&--測試用字串
mstr = '台中縣大里市德芳南路385號'
Endif
mstr = trim( mstr )
local mret, mnword
mret = ''
mnword = .f.
For i=1 to len(mstr)
If ASC(subs( mstr , i, 1))>=128
if mnword
mret =mret + chr(13)+chr(10)
endif
mret = mret + subs( mstr, i,2)+chr(13)+chr(10)
i=i+1
mnword = .F.
else
mret = mret + subs( mstr, i,1)
mnword = .T.
endif
Next
Return mret

[Ruey]

數字最好也轉換一下
這樣就比較完美拉!!

[freedom]

好东东，好想法。
另有一个函数介绍：
ISLEADBYTE( ) 可以判定字符是否是双字节字符。如果字符的第一个字节是前导字节，那么字符是双字节字符，否则字符是单字节字符。
另有别的算法推荐：
clea
a1="20A中3国51"
a2="○一二三四五六七八九"
a22="0123456789"
a23=chr(13)+chr(10)
a3=""
for i=1 to len(a1)
if ISLEADBYTE(substr(a1,i,1))
a3=a3+substr(a1,i,2)+a23
i=i+1
else
b1=substr(a1,i,1)
b2=at(b1,a22)
if b2#0
a3=a3+substr(a2,b2*2-1,2)+a23
else
a3=a3+b1+a23
endif
endif
endfor
? a1
? ""
? a3

[garfield]

Good , 這行 If ASC(subs( mstr , i, 1))>=128 乃是老掉牙的CLIPPER語法延用至今的語法, VFP有很多函數沒人提起我還沒注意到它的存在呢 ^^