Чтение файла - адаптировать код из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д