Чтение из текстового файла не только первой строчки - VB
Формулировка задачи:
Такая проблема, в общем.
Есть файл с несколькими строками. Например, первая строчка - путь к базе данных, вторая - путь к бэкапам и так далее.
Как прочитать оттуда нужную строку, допустим по ее номеру?
ReadLine читает только первую строку. Или надо делать
Do while not fs.EOF?
Решение задачи: «Чтение из текстового файла не только первой строчки»
textual
Листинг программы
- Function GetLineByNumber(LineNumber As Integer) As String
- 'Писалось для MS Access 2000
- Dim fs, fx, z As String
- z = Application.CurrentProject.Path
- Set fs = CreateObject('Scripting.FileSystemObject')
- Set fx = fs.opentextfile(z & 'Config.cfg', 1, False)
- Dim p As Integer
- Dim u As String
- p=0
- Do While fx.atendofstream <> True
- p = p + 1
- u = fx.readline
- If p = LineNumber Then GetLineByNumber = u
- u = ''
- Loop
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
