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

①:就是先有一个List控件,通过读取TXT文件获得列表数据(这部分代码已有),然后当鼠标单击List控件列表中的某一项时,读取另一个文件2.TXT,读取该项的指定项并在... ①:就是先有一个List控件,通过读取TXT文件获得列表数据(这部分代码已有),然后当鼠标单击List控件列表中的某一项时,读取另一个文件2.TXT,读取该项的指定项并在2.TXT中找到包含指定项的一行,读取到某个标示符(如&等特殊符号)暂停读取,然后显示到TEXT1控件中,然后从标示符后继续读取,当再次读取到标示符时,再次暂停读取,然后显示到TEXT2,之后从标示符后再继续读取,读到标示符结束,显示到LABEL1。
②(写出来再加30分):最好能写出一段依据①中读取规则写入文件TXT1、2的代码。
求各位大虾帮帮忙哈。(答得好再给20分)。O(∩_∩)O谢谢
展开
 我来答
chrrg877562884
2013-02-23 · 超过26用户采纳过TA的回答
知道答主
回答量:105
采纳率:0%
帮助的人:34.7万
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
就雪存E
2013-02-24 · TA获得超过3280个赞
知道大有可为答主
回答量:9808
采纳率:22%
帮助的人:1076万
展开全部
私人小组Form_Load()
读取暂停的标识符(如特殊符号)阅读:
昏暗的L,数量,文字
文本=文字与文字&4545&24828; /> L = SPLIT(文本,“&”)(0)0&1,然后返回到前面的前面回报,第二和第一及落后等。 。 。 。 。 。
MSGBOX?

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

可以帮你这么多,希望采纳。
END SUB
追问
谢谢
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式