UC知道vb 读取txt文件内容
来源：百度知道 编辑：UC知道 时间：2024/09/19 16:48:35
我想用VB读取TXT的文件内容
TXT的文件内容是这样的：
1.无聊内容
ahjksrfywkq
qwdhkasjdywe
adwdashdwdad
2.开心内容
sdjoqudlasd
wqdjiopuasofjew
adwjkfhkwfas
这样的等等
莪想按一下按钮
text1就显示 无聊内容（text1显示文章标题，text2显示文章的内容）
text2就显示TXT文件内容1.后面的全部内容（不要2.以后的全部内容）
在按下按钮（第2次按)
text1就显示 开心内容
text2就显示2.后面的内容（不要1.后面的内容，不要3.后面的内容）
这代码怎么编写？
TXT的文件内容是这样的：
1.无聊内容
ahjksrfywkq
qwdhkasjdywe
adwdashdwdad
2.开心内容
sdjoqudlasd
wqdjiopuasofjew
adwjkfhkwfas
这样的等等
莪想按一下按钮
text1就显示 无聊内容（text1显示文章标题，text2显示文章的内容）
text2就显示TXT文件内容1.后面的全部内容（不要2.以后的全部内容）
在按下按钮（第2次按)
text1就显示 开心内容
text2就显示2.后面的内容（不要1.后面的内容，不要3.后面的内容）
这代码怎么编写？
private sub command1_click()
open "1.txt" for input as #1
line input #1,aspect
text1.text=aspect
nl=chr(13)&chr(10)
do while not eof(1)
line input #1,aspect
whole=whole & nl & aspect
loop
text2.text=whole
close #1
end sub
必要前提：第一行必须为标题。
text1为标题text2为内容，最好不同的内容存放在不同的文本文件中
要达到你这样的要求比较麻烦，还是多几个按钮比较好
函数:
Function FileRead(PathFile As String, Optional Fore As String, Optional Back As String) As String
'════════取得文件中的部分或全部内容════════
''该函数传回原文件中指定区域的字符串。
''PathFile 字符串，文件的实际路径全名。
''Fore、Back 字符串，可选。开始位置后；结束位置前。
''如果省略 Fore 和 Back 则返回所有原始字符串；
''如果 Fore 不空，Back 空，返回开始之后的内容；
''如果 Back 不空，Fore 空，返回结束之前的内容；
''如果 Fore 和 Back 都不空，返回指定的中间部分；
''如果 Fore 和 Back 任意一个不空并找不到，返回空值。
'═════════════════════════════
If PathFile = "" Or IsNull(PathFile) Then Exit Function