InStr Function
λ€λ₯Έ λ¬Έμμ΄ λ΄μμμ λ¬Έμμ΄ μμΉλ₯Ό ꡬν©λλ€.
Instr ν¨μλ μΌμΉνλ λ¬Έμμ΄μ΄ λ°κ²¬λ μμΉλ₯Ό ꡬν©λλ€. λ¬Έμμ΄μ΄ λ°κ²¬λμ§ μμ κ²½μ° μ΄ ν¨μλ 0μ ꡬν©λλ€.
ꡬ문:
InStr ([Start As Integer,] Text1 As String, Text2 As String[, Compare])
λ°ν κ°:
Integer
λ§€κ° λ³μ:
μμ: μ§μ ν λΆλΆ λ¬Έμμ΄μ κ²μμ μμν λ¬Έμμ΄μ μμΉλ₯Ό νμνλ μ«μ μμ λλ€. μ΄ λ§€κ° λ³μλ₯Ό μλ΅νλ©΄ λ¬Έμμ΄μ 첫 λ²μ§Έ λ¬ΈμλΆν° κ²μμ΄ μμλ©λλ€. νμ©λλ μ΅λκ°μ 65535μ λλ€.
Text1: κ²μν λ¬Έμμ΄μ΄ ν¬ν¨λ λ¬Έμμ΄ μμ λλ€.
Text2: κ²μν λ¬Έμμ΄ μμ λλ€.
Compare: λΉκ΅ μ νμ μ§μ νλ μ νμ μ«μ μμ λλ€. μ΄ λ§€κ° λ³μλ 0 λλ 1μ΄ λ μ μμ΅λλ€. κΈ°λ³Έκ° 1μ λ/μλ¬Έμλ₯Ό ꡬλΆνμ§ μλ ν μ€νΈ λΉκ΅λ₯Ό μ§μ ν©λλ€. κ° 0μ λ/μλ¬Έμλ₯Ό ꡬλΆνλ μ΄μ§ λΉκ΅λ₯Ό μ§μ ν©λλ€.
λ°νμ μ€λ₯λ₯Ό λ°©μ§νλ €λ©΄ 첫 λ²μ§Έ λ°ν λ§€κ° λ³μλ₯Ό μλ΅ν κ²½μ° Compare λ§€κ° λ³μλ₯Ό μ€μ νμ§ μμ΅λλ€.
μ:
Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
sInput = "Office"
iPos = Instr(sInput,"v")
Print iPos
End Sub