InStr Function

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

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

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


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

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

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

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

Start: A numeric expression that marks the position in a string where the search for the specified substring starts. If you omit this parameter, the search starts at the first character of the string. The minimum allowed value is 1. The maximum allowed value is 2,147,483,648.

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

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

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

To avoid a run-time error, do not set the Compare parameter if the first optional parameter is omitted.

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

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

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


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

Please support us!