返回列表 上一主題 發帖

請問在字串中找字元的進階用法

mlbolerud

帖子
32 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-4-28 
最後登錄
2021-7-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-10-18 13:00 | 只看該作者

請問在字串中找字元的進階用法

各位大大
請問一下, 我有一個在字串中搜尋字元的問題, 如下
我的字串很長 , 裡面有6個 _ , 如果我要找第五個 _ , 有沒有比較好的方法呢?
我知道有InStr這個方式可以用 , 如 Instr(38, 字串, "_")
但是我的字串有時候長度會變, 如果指定38位置開始找, 有時後會抓錯
有沒有什麼方法可以直接找到字串中五個 _ 的位置?
感謝

字串=TouchTest_check_20180630_104354_108F02_68HR-R_K8
收藏 分享
MLB

hcm19522

帖子
1388 
主題
4 
精華
0 
積分
1398 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-29 

熱烈參與勳章
2#
發表於 2019-10-18 14:21 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/588472101
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

JasnH

帖子
6 
主題
2 
精華
0 
積分
50 
點名
281  
作業系統
windows 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2019-9-6 
最後登錄
2024-11-30 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章
3#
發表於 2019-10-19 18:24 | 只看該作者
本帖最後由 JasnH 於 2019-10-19 18:25 編輯

Sub test1()
    p = 5       'The position of nth "_"
    tx = Cells(1, 1)
    For i = 1 To Len(tx)
        If Mid(tx, i, 1) = "_" Then jo = jo & " " & i
    Next i
    s = Split(Mid(jo, 2))
    Ans = s(p - 1)
    MsgBox "The position of " & p & "th ""_"" is " & Ans
End Sub

TOP

mlbolerud

帖子
32 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-4-28 
最後登錄
2021-7-6 
4#
發表於 2019-10-21 12:10 | 只看該作者
感謝兩位大大的解答, 我後來找了一下資料
我想到下面這個方式也可以算出來

Sub test()
Dim no As Byte
Dim Data As String

Data=Cells(3,32).Value   ''''' 字串位置
no=Cells(5,32).Value       ''''' 要找第幾個 _
Count=0
data_split = Split(Data , "_")
For i=1 To no
   Count = Count+1+Len(data_split(i-1))
Next i
MsgBox("第" & no & "個_的位置是" & Count)
EndSub
MLB

TOP

准提部林

帖子
2836 
主題
10 
精華
0 
積分
2892 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-30 
5#
發表於 2019-10-26 12:08 | 只看該作者
Sub TEST_01()
Dim T$, TR, V%
T = "TouchTest_check_20180630_104354_108F02_68HR-R_K8"
V = 5
TR = Split(T, "_")
If V <= 0 Or UBound(TR) < V - 1 Then MsgBox "超過取字範圍!!": Exit Sub
MsgBox TR(V - 1)
End Sub

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題