[求助]如何查找特定字符在字段中第二次出现的位置

zhang81524

如何查找特定字符在字段中第二次出现的位置



我的一个字段中大部分都是这样的格式

SS AA BB CC

SSSS AA BBBB CC

SSS AAAAA B CCCC

我要取出其中第二个空格与第三个空之间的AA BB来生成新字段

每个空格之间的长度不等。

不知有什么好的方法

zhang81524

谢谢，公式只能取第1个空格与第2个空格之前的字符

如果要取第4个空格和第6之前字符岂不是要写很长的公式，有没有更好的办法？

wwwwa

思路：用SPLIT分拆字符串，得到数组，用UBOUND、LBOUND判断，直接得到结果。

zhang81524

SPlit好象无法直接在查询语句中使用，看来真的没有直接的办法

wwwwa

以下是引用zhang81524在2006-11-17 8:47:00的发言：


SPlit好象无法直接在查询语句中使用，看来真的没有直接的办法

只能在VBA中使用，而且是最简单的方法。

fengrh

請參考http://www.office-cn.net/forum.php?mod=viewthread&tid=31867&replyID=&skin=1

zhang81524

谢谢，我用了自定义函数

Public Function MidX1(strInput As String, _
                             starnumber As Long, _
                             endnumber As Long) _
                     As String
'------------------------------------------------------------------------------------------

'为了取特定的空格之间的字符

'用法是midX(所选字段,第X次出现的空格,第y次出现的空格)

'例如 midx1("AA BBBB CC DDD",2,3)  =CC

'例如 midx1("AA BBBB CC DDD",1,3)  =BBBB CC

'------------------------------------------------------------------------------------------
  
  strlong = Len(strInput)

i = InStr(1, strInput, " ", vbBinaryCompare)

If IsNull(i) Then
  GoTo 2
  Else
    N = 0
   
End If

  
  
  Do While i <> 0 ' InStrRev(strInput, " ", -1, 1)
  
        N = N + 1
        
        If N = starnumber Then starn1 = i
        
         If N = endnumber Then
        
             starn2 = i
            
             GoTo 1
         Else
         End If
         
         
        
         i = InStr(i + 1, strInput, " ", vbBinaryCompare)

         
  Loop


If i = 0 And N < endnumber Then
   
   MidX1 = Mid$(strInput, starn1 + 1, strlong - starn1)
   
   Else
1
MidX1 = Mid$(strInput, starn1 + 1, starn2 - starn1)

2 End If
  
End Function

[此贴子已经被作者于2006-11-17 12:56:05编辑过]

wwwwa

try:

fg = "AA BBBB CC DDD"
tt = ""
rt = Split(fg, " ")
For I = LBound(rt) To UBound(rt)
MsgBox rt(I) & I
Next
For I = 1 To 3 - 1
tt = tt + rt(I) + " "
Next
MsgBox tt

你可以做成函数调用

fan0217

以下是引用wwwwa在2006-11-17 14:48:00的发言：


try:

fg = "AA BBBB CC DDD"
tt = ""
rt = Split(fg, " ")
For I = LBound(rt) To UBound(rt)
MsgBox rt(I) & I
Next
For I = 1 To 3 - 1
tt = tt + rt(I) + " "
Next
MsgBox tt

你可以做成函数调用

Split函数，返回一个下标从零开始的一维数组。

所以LBound(rt)可以不要了，直接用0。

zhang81524

谢谢了