如何在字符串中找到第二个元音后的字符

问题描述

我以为这个是有趣的，除了太广泛。

I thought this How to find the character after second vowel in a string in EXCEL? was interesting, other than being too broad.

加我已经回答了，但是太晚了。

Plus I'd answered it but was too late.

问题

例如，如果我的字符串是

For example if my string is

输出应为

如果是空白，则显示Nothing

If it is a blank, then display "Nothing"

possible solution

一种公式方法（礼貌 tikkaty ）

= IF（A1<> 中，IFERROR（MID（A1，FIND（ |，SUBSTITUTE（SUBSTITUTE（SUBSTITUTE（SUBSTITUTE（SUBSTITUTE（LOWER（A1）， 一， | ）， E， |）中， i， |）， O， |）， U， |），FIND（ |，SUBSTITUTE（SUBSTITUTE（ SUBSTITUTE（SUBSTITUTE（SUBSTITUTE（LOWER（A1）， 一， |）， E， |）中， i， |）， O， |）， u 的，|））+ 1）+1,1），没有第二个元音找到），）

推荐答案

这是一个无正则符号的变体：

Here's a regex-free variant:

Function charTest(s As String) As String
    Dim i As Integer, j As Integer, r As String
    For i = 1 To Len(s)
        If UCase(Mid(s, i, 1)) Like "[AEIOU]" Then j = j + 1
        If j >= 2 Then Exit For
    Next i

    If j >= 2 And i < Len(s) Then r = Mid(s, i + 1, 1)
    If r = "" Then r = "Nothing"

    charTest = r
End Function

验证：

Sub test2()
    Debug.Print charTest("abcdefghijkl")
    Debug.Print charTest("Excellence")
    Debug.Print charTest("Animal")
    Debug.Print charTest("The guppy pond")
    Debug.Print charTest("The smallest bike")
    Debug.Print charTest("Shea")
End Sub

这篇关于如何在字符串中找到第二个元音后的字符的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！