VFP 愛用者社區

[chioucy]

有一字串 vSTR 長度如為 40 內容為中英文混雜 想將其拆為二個子字串
vSTR1=SUBSTR(vSTR,1,20)
vSTR2=SUBSTR(vSTR,21,20)
如果vSTR字串中間剛好為一中文字 則會發生中文字拆成二個半形亂碼

請問要如何避免

[朱育興]

這篇供你參考
http://vfp.sunyear.com.tw/viewtopic.php?t=844&highlight=mline

[syntech]

SUBSTRC()

[chioucy]

謝謝兩位前輩的指導

經過嘗試 我用以下程式段解決了

AAA = "這個是測試字串"

? CUT_2_STR(AAA,1)
? CUT_2_STR(AAA,2)
? CUT_2_STR(AAA,1)+CUT_2_STR(AAA,2)


*==============================================================
* 本函式會將字串盡量平均分成兩個同長度的子字串,且不受中文字影響
*---------------------------------------------------------------------------------------------
* 傳入值: vSTR ==> 要做分割的字串
* vPOS = 1 ==> 取第一個子字串
* vPOS = 2 ==> 取第二個子字串
*==============================================================
FUNCTION CUT_2_STR
PARAMETERS vSTR, vPOS

LOCAL vLEN

vLEN = INT(LEN(vSTR)/2)
vLEN = IIF (BETWEEN(ASC(RIGHTC(SUBSTR(vSTR,1,vLEN),1)),128,255),vLEN+1,vLEN)

RETURN IIF(vPOS=1,SUBSTR(vSTR,1,vLEN),SUBSTR(vSTR,vLEN+1,LEN(vSTR) - vLEN))

[lcj0831]

在VFP 6.0 有函數可運用, 不用自己寫了哦!
請參考
?LEFTC('這是測試文字',3)
→這是測
?RIGHTC('這是測試文字',3)
→試文字

[cchvfp]

CC='有一字串STR長度如為40內容為中英文混雜想將其拆為二個子字串vSTR1=SUBSTR(vSTR,1,20)'
SET MEMOWIDTH TO 40
? MEMLINES(CC)
? MLINE(CC,1)
? MLINE(CC,2)
試試吧

[chioucy]

謝謝 cchvfp
我是用 VFP6 經測試 結果 ? MLINE(CC,2) 還是會亂掉

? MLINE(CC,1) ==> 有一字串STR長度如為40內容為中英文混雜想
? MLINE(CC,2) ==> N其拆為二個子字串vSTR1=SUBSTR(vSTR,1,20)

[lelhappy]

cc='有一字串STR長度如為40內容為中英文混雜想將其拆為二個子字串vSTR1=SUBSTR(vSTR,1,20)'

? cut_2_str(cc,40,1)
? cut_2_str(cc,40,2)


FUNC CUT_2_STR
para nStr,nWide,nNum
priv oNum
str該字串 = nStr
n您要的欄寬 = nWide
n要取該字串的開始位址 = 1
oNum=1
do whil n要取該字串的開始位址<=len(str該字串)
if lenc(substr( str該字串 , n要取該字串的開始位址 , n您要的欄寬))=lenc(substr( str該字串 , n要取該字串的開始位址 , n您要的欄寬 -1 ))
str你要取的字串=substr( str該字串 , n要取該字串的開始位址 , n您要的欄寬-1)
n要取該字串的開始位址 = n要取該字串的開始位址+n您要的欄寬-1
else
str你要取的字串=substr( str該字串 , n要取該字串的開始位址 , n您要的欄寬)
n要取該字串的開始位址 = n要取該字串的開始位址+n您要的欄寬
endi
if oNum=nNum
retu(str你要取的字串)
endi
oNum=oNum+1
endd
retu('')

試試看

[KKKLYNN]

陣仗好像弄的太大!
如syntech兄所言
substrc()
就好了
以上您參考