很简单的问题！

Question

我将textbox的文本读出到一个string变量里，含有多行字符串，用什么办法把每行字符串分别写到不同的string变量里还有什么函数是用来检查string变量里是否还有某个子string，C语言里是strstr，VB里是什么！

Answer 1

Dim v() As String
v = Split("111", vbCrLf)第二个instr(string1,string2),如果没有包含子串，返回0，包含的话返回第一次出现的位置

Answer 2

Option Explicit
Private Sub Command2_Click()
Dim s1() As String
s1 = Split(Text1.Text, vbCrLf)
Debug.Print s1(0)
Debug.Print s1(1)
Debug.Print s1(2)
Debug.Print s1(3)
End SubPrivate Sub Form_Load()
Text1.Text = "第一行数据" + vbCrLf
Text1.Text = Text1.Text + "第二行数据" + vbCrLf
Text1.Text = Text1.Text + "第三行数据" + vbCrLf
Text1.Text = Text1.Text + "第四行数据"
End Sub

Answer 3

InStr 函数示例
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' 被搜索的字符串。
SearchChar = "P"   ' 要查找字符串 "P"。' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)   ' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar)   ' 返回 9。MyPos = Instr(1, SearchString, "W")   ' 返回 0。