
對中文識別為兩個字符,ASCII碼為一個,可用此函數代替Len,Left,Right函數
示例:LenX("中國ren") => "7"
LeftX("中國ren",4) => "中國"
RightX("中國ren",5) => "國ren"
參數: String 字符串 Length 長度
返回:字符串長度,字符串,字符串
以下是引用片段: Public Function LenX(ByVal sString) Dim reslult, lngStringLen, strCharString, i lngStringLen = Len(sString) strCharString = "" for i = 1 to lngStringLen strCharString = Mid(sString, i, 1) if Asc(strCharString) > 0 then reslult= reslult+ 1 else reslult= reslult+ 2 next LenX= reslult End Function Public Function strLeft(ByVal sString, ByVal lLength) if isBlank(sString) or lLength < 1 then Exit Function Dim result, lngStringLength, strCharString, lngCounter ,i lngStringLength = Len(sString) result = "" for i = 1 to lngStringLength strCharString = Mid(sString, i, 1) result = result & strCharString if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2 if lngCounter >= lLength then Exit For next strLeft = result End Function Public Function strRight(ByVal sString, ByVal lLength) if isBlank(sString) or lLength < 1 then Exit Function Dim result, lngStringLength, strCharString, lngCounter, i lngStringLength = Len(sString) result = "" for i = lngStringLength to 1 step -1 strCharString = Mid(sString, i, 1) result = strCharString & result if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2 if lngCounter >= lLength then Exit For next strRight = result End Function |
呢 稱: | |
表 情: | |
內 容: |
評論內容:不能超過 1000 字,需審核,請自覺遵守互聯網相關政策法規。 |
驗證碼: | |
您發布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權益;
二、不得發布國家法律、法規明令禁止的內容;互相尊重,對自己在本站的言論和行為負責;
三、本站對您所發布內容擁有處置權。