InStr Function
āĻāĻāĻāĻŋ āϏā§āĻā§āϰāĻŋāĻ āĻāϰ āĻŽāϧā§āϝ⧠āĻ āύā§āϝ āĻāĻāĻāĻŋ āϏā§āĻā§āϰāĻŋāĻ āĻāϰ āĻ āĻŦāϏā§āĻĨāĻžāύ āĻĒā§āϰāĻĻāĻžāύ āĻāϰā§āĨ¤
Instr āĻĢāĻžāĻāĻļāύāĻāĻŋ āϝā§āĻāĻžāύ⧠āĻŽāĻŋāϞ āĻĒāĻžāĻā§āĻž āϝāĻžā§ āϏā§āĻāĻŋāϰ āĻ āĻŦāϏā§āĻĨāĻžāύ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āϝāĻĻāĻŋ āϏā§āĻā§āϰāĻŋāĻāĻāĻŋ āĻĒāĻžāĻā§āĻž āύāĻž āϝāĻžā§, āĻĢāĻžāĻāĻļāύāĻāĻŋ 0 āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
nStr ([Start As Long,] Text1 As String, Text2 As String[, Compare])
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:
Integer
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āĻļā§āϰā§: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āώā§āĻā§āϰāĻŋāĻ āĻāϰ āĻŽāϧā§āϝ⧠āĻ āĻā§āώāϰā§āϰ āĻ āĻŦāϏā§āĻĨāĻžāύ āĻāĻŋāĻšā§āύāĻŋāϤ āĻāϰ⧠āϝā§āĻāĻžāύ⧠āĻāϞā§āϞā§āĻāĻŋāϤ āϏāĻžāĻŦāϏā§āĻā§āϰāĻŋāĻ āĻāϰ āĻ āύā§āϏāύā§āϧāĻžāύ āĻļā§āϰ⧠āĻšā§āĨ¤ āĻāĻĒāύāĻŋ āϝāĻĻāĻŋ āĻāĻ āĻŽāĻžāύāĻāĻŋ āĻ āĻŦāĻā§āĻāĻž āĻāϰā§āύ āϤāĻžāĻšāϞ⧠āϏā§āĻā§āϰāĻŋāĻ āĻāϰ āĻĒā§āϰāĻĨāĻŽ āĻ āĻā§āώāϰ āĻĨā§āĻā§ āĻ āύā§āϏāύā§āϧāĻžāύ āĻļā§āϰ⧠āĻšāĻŦā§āĨ¤ āϏāϰā§āĻŦā§āĻā§āĻ āĻ āύā§āĻŽā§āĻĻāĻŋāϤ āĻŽāĻžāύ āĻšāϞ⧠ā§Ŧā§Ģā§Ģā§Šā§ĢāĨ¤
Text1: āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āĻāĻĒāύāĻŋ āĻ āύā§āϏāύā§āϧāĻžāύ āĻāϰāϤ⧠āĻāĻžāύāĨ¤
Text2: āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āĻāĻĒāύāĻŋ āĻ āύā§āϏāύā§āϧāĻžāύ āĻāϰāϤ⧠āĻāĻžāύāĨ¤
āϤā§āϞāύāĻž: āĻāĻā§āĻāĻŋāĻ āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āϤā§āϞāύāĻžāϰ āϧāϰāύ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻāĻ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰā§āϰ āĻŽāĻžāύ 0 āĻ āĻĨāĻŦāĻž 1 āĻšāϤ⧠āĻĒāĻžāϰā§āĨ¤ āĻĄāĻŋāĻĢāϞā§āĻ āĻŽāĻžāύ 1 āĻĻā§āĻŦāĻžāϰāĻž āĻ āĻā§āώāϰā§āϰ āĻāĻžāĻāĻĻ āϏāĻāĻŦā§āĻĻāύāĻļā§āϞ āύ⧠āĻāĻŽāύ āĻāĻāĻāĻŋ āĻĒāĻžāĻ ā§āϝ āϤā§āϞāύāĻž āĻāϞā§āϞā§āĻ āĻāϰāĻž āĻšā§āĨ¤ āĻŽāĻžāύ 0 āĻĻā§āĻŦāĻžāϰāĻž āĻ āĻā§āώāϰā§āϰ āĻāĻžāĻāĻĻ āϏāĻāĻŦā§āĻĻāύāĻļā§āϞ āĻāĻāĻāĻŋ āĻŦāĻžāĻāύāĻžāϰāĻŋ āϤā§āϞāύāĻž āĻāϞā§āϞā§āĻ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϰāĻžāύ-āĻāĻžāĻāĻŽ āϤā§āϰā§āĻāĻŋ āĻā§āĻŋā§ā§ āϝā§āϤā§, āϝāĻĻāĻŋ āĻĒā§āϰāĻĨāĻŽ āĻĒā§āϰāĻĻāĻžāύ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āĻŦāĻžāĻĻ āĻĻā§ā§āĻž āĻšā§ āϤāĻžāĻšāϞ⧠āϤā§āϞāύāĻž āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻŦā§āύ āύāĻž āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
sInput = "Office"
iPos = Instr(sInput,"c")
Print iPos
End Sub