【VBA】文字を検索(InStr)、分解(Split)

１．変数の文字を検索する関数【instr】です。

n = InStr(1, work_s1, work_s2)

        InStr ( 開始位置 , 変数 , 検索する文字)
Do While n > 0
cnt = cnt + 1
n = InStr(n + 1, work_s1, work_s2)
Loop

ソースは以下です。


------------------------------------------------------------------------------
　　dim work_s1 as string
　　dim work_s2 as string
　　work_s1 = "AAA:BBB:CCC"
　　work_s2 = ":" 
　　cnt = 0 
    n = InStr(1, work_s1, work_s2)
　　Do While n > 0
　　　　cnt = cnt + 1 '検索した件数
　　　　n = InStr(n + 1, work_s1, work_s2)
　　Loop
------------------------------------------------------------------------------

２．文字で分割する関数【split】です。

sp_s = Split(work_s, ":")

       Split( 変数 ,分割する文字)

ソースは以下です。


------------------------------------------------------------------------------
　　Dim sp_s As Variant
　　dim work_s as string
　　dim s1 as string 
　　dim s2 as string
　　sp_s = Split(work_s, ":")
    s1 = sp_s(0)
    s2 = sp_s(1)
------------------------------------------------------------------------------     

結構使いますので記録しておきます。