Question

VB关于List控件与text、label控件组合显示文本

①：就是先有一个List控件，通过读取TXT文件获得列表数据（这部分代码已有），然后当鼠标单击List控件列表中的某一项时，读取另一个文件2.TXT，读取该项的指定项并在2.TXT中找到包含指定项的一行，读取到某个标示符（如&等特殊符号）暂停读取，然后显示到TEXT1控件中，然后从标示符后继续读取，当再次读取到标示符时，再次暂停读取，然后显示到TEXT2，之后从标示符后再继续读取，读到标示符结束，显示到LABEL1。
②（写出来再加30分）：最好能写出一段依据①中读取规则写入文件TXT1、2的代码。
求各位大虾帮帮忙哈。（答得好再给20分）。O(∩_∩)O谢谢

Answer 1

Private Sub Form_Load()
'读取到某个标示符（如&等特殊符号）暂停告辩读型卜取：袜租缺
Dim L, num, texts
texts = "文本&文本2&4545&24828"
L = Split(texts, "&")(0) '0表示返回第1个&的前面　如果为1，那么返回第二个&的前面，第一个&的后面　以此类推．．．．．．
MsgBox L

'判断texts有多少个&
num = Int(Len(texts) - Len(Replace(texts, "&", ""))) '多少个&
MsgBox num
'数组
For v = 0 To num
MsgBox Split(texts, "&")(v)
Next
'能帮助你这么多，希望采纳。
End Sub

Answer 2

私人小组Form_Load（）
读取暂停陆弊肆的标识符（如特殊符号）阅读：
昏暗的L，数量，文字
文本=文字与文字＆4545＆早轿24828; /> L = SPLIT（文本，“＆”）（0）0＆1，然后返回到前面的前面回报，第二和第一及落后等。 。 。 。 。 。
MSGBOX?

判断文本的数量
数= INT（LEN（小号critism斯金纳的理论是有道理的。） - LEN（更换（文字，“＆” ，“”卜雹）））'数
MSGBOX数
阵列
对于v = 0到num
的MSGBOX分割（文字，“＆”）（V）

可以帮你这么多，希望采纳。
END SUB

追问

谢谢