7,789
社区成员
发帖
与我相关
我的任务
分享vb如何获取记事本里的内容？
小弟求一源码，我买的书上没有这个内容。。。所以请大家帮忙～
我有一个记事本
我想让VB一键获取记事本里的第一行内容，然后显示在text1中；并将其第二行内容，显示在text2中。
我的记事本路径为“C:\XXXX.txt”
我有一个记事本
我想让VB一键获取记事本里的第一行内容，然后显示在text1中；并将其第二行内容，显示在text2中。
我的记事本路径为“C:\XXXX.txt”
...全文
请发表友善的回复…
发表回复
游子 2008-03-31
- 打赏
- 举报
UP 1楼整解
yanli 2008-03-31
- 打赏
- 举报
readline
didish 2008-03-31
- 打赏
- 举报
rivate Sub Form_Load()
Open "c:\XXXX.txt" For Input As #1
Line Input #1, aa
Text1 = aa
Line Input #1, aa
Text2 = aa
Close #1
End Sub
以上语句能实现LZ的要求，但是我也是搜索来的，具体意思有点不明白。
而且这只能按顺序提取数据，不能指定行数；
望高手能指点明白，满足我们这些初学者的要求。
万分感谢～
Open "c:\XXXX.txt" For Input As #1
Line Input #1, aa
Text1 = aa
Line Input #1, aa
Text2 = aa
Close #1
End Sub
以上语句能实现LZ的要求，但是我也是搜索来的，具体意思有点不明白。
而且这只能按顺序提取数据，不能指定行数；
望高手能指点明白，满足我们这些初学者的要求。
万分感谢～
aight 2008-03-30
- 打赏
- 举报
正如1楼所说
定义两个全局变量
然后在窗体载入(form_load)事件中把C:\xxxx.txt的内容读到aa变量中保存起来.
然后在Command_click事件中用split()函数把aa以换行符分离开来存放到s数组里
然后
再在两个textbox里面显示出来就OK了
定义两个全局变量
然后在窗体载入(form_load)事件中把C:\xxxx.txt的内容读到aa变量中保存起来.
然后在Command_click事件中用split()函数把aa以换行符分离开来存放到s数组里
然后
再在两个textbox里面显示出来就OK了
jikun6666 2008-03-30
- 打赏
- 举报
我是新手啊
jikun6666 2008-03-30
- 打赏
- 举报
看不懂啊，有command控件吗
cbm6666 2008-03-30
- 打赏
- 举报
'添加 Text1 Text2 Command1
Dim aa$, s
Private Sub Form_Load()
Open "c:\xxxx.txt" For Input As #1
aa = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
End Sub
Private Sub Command1_Click()
s = Split(aa, vbNewLine)
Text1.Text = s(0)
Text2.Text = s(1)
End Sub
Dim aa$, s
Private Sub Form_Load()
Open "c:\xxxx.txt" For Input As #1
aa = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
End Sub
Private Sub Command1_Click()
s = Split(aa, vbNewLine)
Text1.Text = s(0)
Text2.Text = s(1)
End Sub
