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谢谢 展开
②(写出来再加30分):最好能写出一段依据①中读取规则写入文件TXT1、2的代码。
求各位大虾帮帮忙哈。(答得好再给20分)。O(∩_∩)O谢谢 展开
展开全部
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
'读取到某个标示符(如&等特殊符号)暂停读取:
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
私人小组Form_Load()
读取暂停的标识符(如特殊符号)阅读:
昏暗的L,数量,文字
文本=文字与文字&4545&24828; /> L = SPLIT(文本,“&”)(0)0&1,然后返回到前面的前面回报,第二和第一及落后等。 。 。 。 。 。
MSGBOX?
判断文本的数量
数= INT(LEN(小号critism斯金纳的理论是有道理的。) - LEN(更换(文字,“&” ,“”)))'数
MSGBOX数
阵列
对于v = 0到num
的MSGBOX分割(文字,“&”)(V)
可以帮你这么多,希望采纳。
END SUB
读取暂停的标识符(如特殊符号)阅读:
昏暗的L,数量,文字
文本=文字与文字&4545&24828; /> L = SPLIT(文本,“&”)(0)0&1,然后返回到前面的前面回报,第二和第一及落后等。 。 。 。 。 。
MSGBOX?
判断文本的数量
数= INT(LEN(小号critism斯金纳的理论是有道理的。) - LEN(更换(文字,“&” ,“”)))'数
MSGBOX数
阵列
对于v = 0到num
的MSGBOX分割(文字,“&”)(V)
可以帮你这么多,希望采纳。
END SUB
追问
谢谢
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询