Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 200
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-9-12

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-5-1 09:03 | 只看該作者

[轉貼] Len / LenB - 字串長度判斷方式的探討

字串, LenB

一般認知上，LenB是傳回位元組的長度，
如此對於雙位元文字如中文、全形字等，
我們可取得字元(Byte)數而不是字數。例如：
mystr = "測試"
Len(mystr) --> 2
LenB(mystr) --> 4

VBA函數 LenB 與工作表函數 LENB 的差異
上述例子改使用工作表的 LENB 亦可得到相同的結果。
再看以下例子：
工作表 LEN("ABC") --> 3
工作表 LENB("ABC") --> 3
VBA Len("ABC") --> 3
VBA LenB("ABC") --> 6
你可能覺得奇怪，"ABC"不是半形字嗎，
為何VBA LenB 卻傳回 6 呢?
為何VBA LenB 和工作表 LENB 傳回不同結果?

先看以下再說：
LenB(StrConv("ABC",vbFromUnicode)) --> 3

透過 StrConv 轉換，LenB 即傳回我們預期的結果。
VBA輔助說明沒有明確的解釋 LenB 的處理原則，
但由此可推測 VBA LenB 是將字串以 Unicode 編碼方式處理，
而一個Unicode字元是佔兩個位元組。

註1：請參閱VBA的 StrConv 函數說明。
註2：測試環境如左，其他版本若有不同，請提出供大家參考~

樓主熱帖

eclife

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: windows XP
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2010-9-10
最後登錄: 2010-9-15

2^#

發表於 2010-9-15 21:35 | 只看該作者

有時候字串裡面包含了空格會影響len函數的判斷
可以先用trim去除空格就能確保字串不含空格

TOP

jsleee

中學生 Rank: 2

帖子: 144
主題: 24
精華: 0
積分: 186
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-3-31

3^#

發表於 2011-10-24 21:42 | 只看該作者

回復 1# Hsieh

感謝版主的分享說明.....
我是從 Google 搜尋好久才發現，原來在這個討論區就有這個探討資料....
真是捨近求遠.....

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 430
主題: 65
精華: 0
積分: 521
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-8-13

4^#

發表於 2024-7-2 11:45 | 只看該作者

一般認知上，LenB是傳回位元組的長度，
如此對於雙位元文字如中文、全形字等，
我們可取得字元(Byte)數而 ...
Hsieh 發表於 2010-5-1 09:03

我試過兩部電腦操作該程式，一部可以，另一部不可以。
Microsoft 365 office 好像不行。

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 430
主題: 65
精華: 0
積分: 521
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-8-13

5^#

發表於 2024-7-2 12:33 | 只看該作者

回復 1# Hsieh

我試過兩部電腦操作該程式，一部可以，另一部不可以。
Microsoft 365 office 好像不行。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2824
主題: 10
精華: 0
積分: 2880
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-8-3

6^#

發表於 2024-7-3 14:48 | 只看該作者

回復 5# 198188

試試以下方法
T = "123"
MsgBox Evaluate("LenB(""" & T & """)")
T = "１２３"
MsgBox Evaluate("LenB(""" & T & """)")

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 430
主題: 65
精華: 0
積分: 521
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-8-13

7^#

發表於 2024-7-3 16:46 | 只看該作者

回復 6# 准提部林

測試結果如下：

T = "123"
MsgBox Evaluate("LenB(""" & T & """)")  = 3
T = "１２３"
MsgBox Evaluate("LenB(""" & T & """)")  = 5
T = "我２３"
MsgBox Evaluate("LenB(""" & T & """)")  = 6
T = "A123"
MsgBox Evaluate("LenB(""" & T & """)") = 4

不過發現另一種情況，如果是10位數字，效果又有問題， LENB =18，如下圖

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2824
主題: 10
精華: 0
積分: 2880
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-8-3

8^#

發表於 2024-7-6 08:50 | 只看該作者

回復 7# 198188

T = "１２３" 這是全型字
MsgBox Evaluate("LenB(""" & T & """)") = 5
可是看圖片, 好像是半型123加兩個空格..."1 2 3"

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 430
主題: 65
精華: 0
積分: 521
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-8-13

9^#

發表於 2024-7-8 09:00 | 只看該作者

回復 8# 准提部林

可能圖片有誤解，“1 2 3” 的部分沒問題。
是頭三個有問題。
第一個我直接在VBA裏寫 T="2402290011"  然後用LENB("""&T&""") =得出答案是10
第二個我在Excel 表格B16 裏打了 2402290011  ,T = 儲存格B16，然後用LENB("""&T&""") = 得出答案是18
第二個我在Excel 表格B16 裏打了 2402290011  ,T = 儲存格B16，然後用LEN(T) = 得出答案是10
可以參看上圖

TOP