如何查找字符串中的第一个汉字位置

Marmen

比如说一串字符：123456我是某某某123上山打老虎，如何查找“我”这个字符的位置？（前面的数字长度不是固定的，我这个只是举个例子）

双字节的字符用“？？”表示好像不对的 [em06]

谢谢！

[此贴子已经被作者于2008-7-4 22:08:14编辑过]

solextrade

=LEN(A1)-(LENB(A1)-LEN(A1))+1

这样试试：

=LEN(LOOKUP(9E+307,--LEFT(A1,ROW(1:99))))+1

[此贴子已经被作者于2008-7-4 22:09:26编辑过]

Marmen

QUOTE:

以下是引用solextrade在2008-7-4 21:58:05的发言：
=LEN(A1)-(LENB(A1)-LEN(A1))+1

 

谢谢！我正要编辑帖子呢，如果是123456我是某某某123上山打老虎 后面还有数字的 好像不好用LEN [em04]

[此贴子已经被作者于2008-7-4 22:07:20编辑过]

chrisfang

=MATCH(2,LENB(MID(a1,ROW(INDIRECT("1:"&LEN(a1))),1)),)

gouweicao78

=MATCH(TRUE,MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)>="吖",)——数组公式，按Ctrl+Shift+Enter结束。

防止出现双字节的非汉字字符，比如：123４５６我是某某某123上山打老虎

[此贴子已经被作者于2008-7-5 0:11:04编辑过]

Marmen

QUOTE:

以下是引用chrisfang在2008-7-4 22:18:18的发言：
=MATCH(2,LENB(MID(a1,ROW(INDIRECT("1:"&LEN(a1))),1)),)

能不能帮忙解释一下 这个公式不是很理解 谢谢！

查找第一个单字节用searchb("?",A1)就可以了 双字节的为什么不能用??表示呢 如果可以多好啊 [em06]

[此贴子已经被作者于2008-7-4 23:58:55编辑过]

gouweicao78

QUOTE:

以下是引用Marmen在2008-7-4 23:19:30的发言：

能不能帮忙解释一下 这个公式不是很理解 谢谢！

查找第一个单字节用searchb("?",A1)就可以了 双自己的为什么不能用??表示呢 如果可以多好啊 [em06]

哈哈，如果可以多好啊。那得问微软咯。

解释公式：ROW(INDIRECT("1:"&LEN(a1)))——假设A1共有10个字符，则这段公式返回ROW(INDIRECT("1:10"))即Row(1:10)

MID(A1,ROW(INDIRECT("1:"&LEN(a1))),1)——将A1的字符，逐一取出来。

LENB(MID(A1,ROW(INDIRECT("1:"&LEN(a1))),1))——用LENB函数对A1的字符逐一计算，如果是双字节字符，则LENB返回2，单字节返回1。

MATCH(2,LENB（……）,0)——精确定位2在LENB数组中第一次出现的位置。

我的解法也类似，即判断A1的每个字符是否“大于等于”最小的汉字“吖”以判别是汉字。

QUOTE:

最小的汉字“吖”——特此更正，谢谢wddn兄，

[此贴子已经被作者于2008-7-5 0:10:40编辑过]

wddn

=MATCH(TRUE,RIGHT(LEFT(A3,ROW($1:$256)))>="吖",)

这公式，一般可用了。

汉字升序排列时，第一个是什么，我不太确定。

论坛常见公式中的：阿、啊等升序排列时，都在“吖”的后面。

Marmen

 这个帖子忘掉完结掉了 贴个自定义函数吧 更好理解点[em09]：

Function Position(str As String) As String
    Dim i As Integer
    For i = 1 To Len(str)
        If Not Mid(str, i, 1) Like "[0-9]" Then
            Position = i
            Exit For
        End If
    Next i
End Function

gouweicao78

QUOTE:

以下是引用Marmen在2008-8-7 23:08:51的发言：

 这个帖子忘掉完结掉了 贴个自定义函数吧 更好理解点[em09]：

QUOTE:

Function Position(str As String) As String
    Dim i As Integer
    For i = 1 To Len(str)
        If Not Mid(str, i, 1) Like "[0-9]" Then
            Position = i
            Exit For
        End If
    Next i
End Function

你这个自定义函数只是判断第一个非数字的位置吧？呵呵。