获取一串文本中指定字符串的起始位置

来源：百度知道 编辑：UC知道 时间：2024/05/24 16:10:03
比如有一个richtextbox，里面有一段文本：abcdefghijklmnopqrstuvwxyz。现在我想获取其中任意一个（或一串）字符在这位段文本中的位置，请问诸位大侠该如何处理？，拜谢……
深入一下，我想写一个类似于脚本配色方案的东西，请诸位大侠指点！

MsgBox InStr("abcdefg", "cd")

用instr函数吧
如上面的例子返回值为3，即cd的首字母在abcdefg的位置

Private Sub Command1_Click()
Dim myPos As Integer, myStr As String
myStr = InputBox("请输入要查找的字或字符串")
myPos = InStr(1, RichTextBox1.Text, myStr)
MsgBox myStr & " 第一次在文中出现的位置：" & myPos
End Sub