InStr Function

рдПрдЙрдЯрд╛ рд╕реНрд░рд┐рдЩрдХреЛ рд╕реНрдерд┐рддрд┐рд▓рд╛рдИ рдЕрд░реНрдХреЛ рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд╕реНрдерд┐рддрд┐рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

Instr рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдЬреЛрдбрд╛ рдорд┐рд▓реЗрд░ рднреЗрдЯрд┐рд╕рдХреЗрдХреЛ рд╕реНрдерд┐рддрд┐рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпрджрд┐ рд╕реНрдЯреНрд░рд┐рдЩ рдирднреЗрдЯрд┐рдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдЬреЗрд░реЛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


InStr ([Start As Long,] Text1 As String, Text2 As String[, Compare])

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рд╕реБрд░реБ: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рд╕реНрдЯреНрд░рд┐рдЩрдорд╛ рд╕реНрдерд┐рддрд┐ рдЪрд┐рдиреЛрд▓рд╛рдЙрдЫ рдЬрд╣рд╛рдБ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рд╕реНрдЯреНрд░рд┐рдЩ рд╕реБрд░реБ рдЧрд░реНрдирдХрд╛ рд▓рд╛рдЧрд┐ рдЦреЛрдЬреНрдЫ ред рдпрджрд┐ рддрдкрд╛рдИрдБрд▓реЗ рдпреЛ рдкрд░рд╛рдорд┐рддрд┐ рдмрд┐рд░реНрд╕рд┐рдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рдкрд╣рд┐рд▓реЛ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рдорд╛ рдЦреЛрдЬреА рд╕реБрд░реБ рд╣реБрдиреНрдЫ ред рдпрд╕рдХрд╛ рд▓рд╛рдЧрд┐ рдЕрдзрд┐рдХрддрдо рд╕реНрд╡рд┐рдХрд╛рд░реНрдпрдорд╛рди ремрелрелрейрел рд╣реЛ ред

рдкрд╛рдарез: рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдЦреЛрдЬреНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рдкрд╛рдареи:рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХрд╛ рд▓рд╛рдЧрд┐ рддрдкрд╛рдИрдБ рдЦреЛрдЬреНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рддреБрд▓рдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН: рдРрдЪреНрдЫрд┐рдХ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рддреБрд▓рдирд╛рдХреЛ рдкреНрд░рдХрд╛рд░ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ ред рдпреЛ рдкрд░рд╛рдорд┐рддрд┐рдХреЛ рдорд╛рди реж рд╡рд╛ рез рд╣реБрдирд╕рдХреНрдЫ ред резрдХреЛ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдорд╛рди рддреБрд▓рдирд╛ рдкрд╛рдардорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ рдЬрд╕рдорд╛ рдХреЗрд╕-рд╕рдВрд╡реЗрджрдирд╢реАрд▓ рд╣реБрдБрджреИрди ред реж рдХреЛ рдорд╛рди рдмрд╛рдЗрдирд░рд┐ рддреБрд▓рдирд╛рдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ рдЬрд╕рдорд╛ рдХреЗрд╕-рд╕рдВрд╡реЗрджрдирд╢реАрд▓ рд╣реБрдиреНрдЫ ред

рдпрджрд┐ рдкрд╣рд┐рд▓реЗ рдлрд░реНрдХрд┐рдиреЗ рдкрд░рд╛рдорд┐рддрд┐ рдмрд┐рд░реНрд╕рд┐рдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд░рди-рдЯрд╛рдЗрдо рддреНрд░реБрдЯрд┐рдмрд╛рдЯ рдЯрд╛рдврд╛ рдЬрд╛рдирд▓рд╛рдИ рддреБрд▓рдирд╛ рдкрд░рд╛рдорд┐рддрд┐ рд╕реЗрдЯ рдирдЧрд░реНрдиреБрд╣реЛрд╕реН ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
    sInput = "рдХрд╛рд░реНрдпрд╛рд▓рдп"
    iPos = Instr(sInput,"c")
    Print iPos
End Sub