先按行读出所有数据，然后找到需要的信息
创新互联公司成立十多年来，这条路我们正越走越好，积累了技术与客户资源，形成了良好的口碑。为客户提供做网站、成都做网站、网站策划、网页设计、国际域名空间、网络营销、VI设计、网站改版、漏洞修补等服务。网站是否美观、功能强大、用户体验好、性价比高、打开快等等，这些对于网站建设都非常重要，创新互联公司通过对建站技术性的掌握、对创意设计的研究为客户提供一站式互联网解决方案，携手广大客户，共同发展进步。
IEnumerable string list= File.ReadLines("test.txt",Encoding.Default );
foreach (string s in list)
{
if (s.Contains("图名"))
{
textBox1.Text += s+"\r\n";
}
if (s.Contains("图号"))
{
textBox1.Text += s + "\r\n";
}
}
不好意思，用的C#，其实差不多了，自己改改就好了
1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8开始单步调试代码，点击Command1，进入单步调试功能，
4、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。
1、实现上传按钮方法代码。
2、判断图片对象是否为空代码。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码。
4、字节数组转换为Image类型方法代码。
5、处理SQL中操作Image类型方法代码。
6、实现的上传结果。
添加spire.doc.dll为引用，在vb点虐 中读取指定word文档的内容到 txt文件，代码示例如下：
'加载Word文档
Dim doc As Document = New Documentdocument.LoadFromFile("测试文档.docx")
'使用GetText方法获取文档中的所有文本
Dim s As String = doc.GetText
File.WriteAllText("文本1.txt", s.ToString)