只取出字串中的中文字元

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-8-4 04:13 | 顯示全部帖子

只取出字串中的中文字元

字串中可能包含中文英文標點空格,能不能只取出其中的中文,如"3D. 偉大(中文版)">>>>>"偉大中文版"
請教各位前輩.

樓主熱帖

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

2^#

發表於 2013-8-7 12:03 | 顯示全部帖子

多謝指教,右拉取得結果,以前沒試過,我用vb右拉20格,這20格是隱藏的,所以B欄取得我要的結果,十分感激你

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

3^#

發表於 2013-8-7 13:27 | 顯示全部帖子

再請教vb里lenb如何用?
vb里 lenb(3)出錯,lenb("3")=2,何解?

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

4^#

發表於 2013-8-7 13:38 | 顯示全部帖子

問題解決了
Function ZW(A)
For i = 1 To Len(A)
If LenB(StrConv(Mid(A, i, 1), &H80)) = 2 Then
zw2 = zw2 & Mid(A, i, 1)
End If
Next i
ZW = zw2
End Function
還是要謝謝你

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

5^#

發表於 2013-8-10 00:49 | 顯示全部帖子

本帖最後由 mhl9mhl9 於 2013-8-10 00:50 編輯

我是看到以下兩段知道vba里lenb和excel的lenb不同
VBA中：LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。
而在工作表，结果似乎表明汉字当双字节而字母和数字当单字节处理的。

Function LenMbcs(ByVal str As String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
Sub yyy()
a = LenMbcs("劉abc")
End Sub
a=5------(2+3)

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

6^#

發表於 2013-8-16 14:37 | 顯示全部帖子

回復 10# sunnyso

雖然看了不十分明,但用還是很好用,謝謝

lmh