left() 函數是 VBScript 的函數,VBScript 將1個漢字看作1個字元,因此用 left()不能得到正確的字元長度...

來源:互聯網
上載者:User
vbscript|函數|漢字 left() 函數是 VBScript 的函數,VBScript 將1個漢字看作1個字元,因此用 left()不能得到正確的字元長度。

我自己編寫了如下3個函數,用來取代 len()、left()、right(),希望能解決您的問題。

'--------------------------------------------------------
'Name:        lenX
'Argument:        uStr
'Return:
'Description:    返回字串的長度,1個中文字元長度為2
'--------------------------------------------------------

function lenX(byval uStr)
    dim theLen,x,testuStr
    theLen = 0

    for x = 1 to len(uStr)
        testuStr = mid(uStr,x,1)
        if asc(testuStr) < 0 then
            theLen = theLen + 2
        else
            theLen = theLen + 1
        end if
    next
    lenX = theLen
end function

'--------------------------------------------------------
'Name:        leftX
'Argument:        uStr        待處理的字串
'        uLen        要截取的長度
'Return:
'Description:    返回指定長度的字串,1個中文字元長度為2
'--------------------------------------------------------

function leftX(byval uStr,byval uLen)
    dim i,j,uTestStr,theStr

    leftX = ""
    j = 0

    for i = 1 to len(uStr)
        uTestStr= mid(uStr,i,1)
        theStr    = theStr & uTestStr
        if asc(uTestStr) < 0 then
            j = j + 2
        else
            j = j + 1
        end if
        if j >= uLen then exit for
    next
    leftX = theStr
end function

'--------------------------------------------------------
'Name:        rightX
'Argument:        uStr        待處理的字串
'        uLen        要截取的長度
'Return:
'Description:    返回指定長度的字串,1個中文字元長度為2
'--------------------------------------------------------

function rightX(byval uStr,byval uLen)
    dim i,j,uTestStr

    rightX = ""
    j = 0

    for i = len(uStr) to 1 step -1
        uTestStr = mid(uStr,i,1)
        rightX = rightX & uTestStr
        if asc(uTestStr) < 0 then
            j = j + 2
        else
            j = j + 1
        end if
        if j >= uLen then exit for
    next
end function



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。