小弟在用修改文本文件时有两个疑惑，请各位大虾帮忙：
1.如何实现在文本文件中查找某行，也就是具有某种特征的语句，在它的上一行有一行数字，用逗号隔开，如何确定第一个数字，也就是第一个逗号前的数字是多少，读出来
2.如何在文本文件中删除两行之间的内容，也就是先实现搜索这两行，再删了
或者各位有其他的好想法也可以的，期待各位的帮助，谢谢~~

对文本文件操作，先把文件一行一行的读出来，放到数组里，
然后再进行操作判断，然后再写回文件中去。

如果要对大文件处理，需要使用临时文件， 也就是读出来的数据，只在内存里保留部分，其它大部分都要先写到临时文件中去。

逗号前的数据
left(A,instr(1,a,",")-1)
然后有一个函数再判断是不是 数字就是了。

在文件中删除二行之间的内容
打开文件，一行一行的读，然后一行一行的回写到临时文件中，
当读到第一行特征时，停止写临时文件，
当读到第二行特征时，继续写临时文件。
写完了文件后，把原文件删除，然后把临时文件改名为原来的文件就是了。

大虾  我是临时被抓干这个的   vb不太会 刚上手   您要是方便帮忙给写个例子吧  真麻烦您了哈  十分感谢啊~~！！

我只会用 vb6

第一个问题

Private Sub Command1_Click()

Dim filename As String
Dim freelng As Integer
Dim s As String
Dim s1 As String

freelng = FreeFile                  '取下一个文件号，防止冲突

filename = Trim(Text1.Text)                 '取文件名，如果是定义的通用函数，那么可以使用传递参数的方式进来
If Len(filename) = 0 Then                   '文件名为空
    MsgBox "请输入文件名", vbCritical, "错误"
    Exit Sub
End If

If Dir(filename) = "" Then                  '文件不存在
    MsgBox "文件不存在，请重新输入文件名", vbCritical, "错误"
    Exit Sub
End If

Open filename For Input As freelng
    Do While Not EOF(freelng)
    Line Input #freelng, s                  '读取一行
    If InStr(1, s, ",") > 0 Then            '如果存在逗号
        s1 = Left(s, InStr(1, s, ",") - 1)      '取 第一个逗号前面的内容
        If IsNumeric(s1) Then                   '如果是数值
            If Not EOF(freelng) Then            '如果不是文件结束
                Line Input #freelng, s                      '读一行，该行就是所需要内容
                Exit Do                         '退出循环
            End If
        End If
    End If
            
    Loop                '

MsgBox s
'对 s 进行处理

End Sub

第二个问题
与第一个问题差不了很多，注意以下问题
打开了第一个文件后才去取第二个文件的文件号
写文件的模式为 output
写文件的命令，你就用 print # 命令写。
这个我前面说过了流程，代码就不写了。