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