Чтение файла - адаптировать код из VB .NET

Узнай цену своей работы

Формулировка задачи:

Добрый день! Давно мне помогали с кодом по чтению файла: Строка 1 (Для чтения и добавления в список) Строка 2 (Пропускаем) Код с VB 6 перенес на VB.NET, а назад не могу. Вот, что получилось:
Вот рабочий, но на .NET платформе:
Файл:
Тестовая база данных №1 C:\Users\1\Desktop\DB\DATA\dbLGORT.accdb Главная база данных C:\dbLGORT.accdb
Пути не должны быть считаны, а только названия баз, то есть

Тестовая база данных №1

и так далее.

ВОПРОС, КАК СДЕЛАТЬ КОД НАЗАД НА VB 6 РАБОЧИМ ? ? ? ?

Решение задачи: «Чтение файла - адаптировать код из VB .NET»

textual
Листинг программы
MyFile = FreeFile
Open (App.Path & "\DBList.ini") For Input As #MyFile
    Do Until EOF(MyFile)
        Line Input #MyFile, tS
        MyText = tS
        List1.AddItem MyText
        Line Input #MyFile, tS
    Loop
Close #MyFile

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы