请教一下 vb6.0与文件有关的几个小问题

来源：百度知道 编辑：UC知道 时间：2024/05/05 11:20:25
1.我已打开一个.txt的文件（open “xxx.txt”for XXX as #1）想从中的或某个位置截取若干个字符。而不是从头开始。
2.在vb6.0中input$如何使用具体说明一下。
3.我想将kk.txt中的内容截成三段分别存为kk1.txt kk2.txt kk3.txt
我应该如何编写？请说明所用到的函数，及它们的具体用法！
分值不高，但我们应该看重的是互相学习，望各位网友不吝赐教。
谢谢了先

1.
'从文件"c:\test.txt"的第2行的第5的字符开始取，取2两个
Private Sub Command1_Click()
    Dim lngLine As Long
    Dim fileStr, tempInput As String
    Open "c:\test.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, tempInput
        fileStr = fileStr & tempInput & vbCrLf
        lngLine = lngLine + 1
        If lngLine = 5 Then
            fileStr = Mid(tempInput, 2, 5)