Поочередное считывание и обработка всех файлов txt из папки - VB
Формулировка задачи:
форумчане, подскажите, плз, как выполнить процедуру. я только начинаю разбираться в системе
есть форма, на ней поле, куда вносится путь к папке, где хранятся много файлов .txt. мне надо, чтобы нажимая одну кнопку, все файлы обработать и записать данные в таблицу(все файлы однотипные).
Решение задачи: «Поочередное считывание и обработка всех файлов txt из папки»
textual
Листинг программы
Dim sT As String Dim iI As Integer Dim sFnA As String Dim iRet As Integer ' frmMain.MousePointer = 11 ' Проверки If "" = Trim$(txtDir.Text) Then sT = "Не указан обрабатываемый каталог для исходников!" MsgBox sT, 48, PRG_NAME frmMain.MousePointer = 0 Exit Sub End If ' ' Присваиваем имя каталога и расширение FileListBox filMain.Path = Trim$(txtDir.Text) filMain.Pattern = "*.txt" filMain.Refresh MsgBox "Файлов - штук -" + Str$(filMain.ListCount) For iI = 0 To filMain.ListCount - 1 Step 1 filMain.ListIndex = iI ' Здесь вставляете Вашу обработку, ' а пока будет выводится MsgBox c именем фала sFnA = LCase$(sDirTrue(filMain.Path) + filMain.filename) MsgBox sFnA iRet = DoEvents() ' Это - чтобы на цикле можно было Alt+TAB перейти в другую программу Next iI MsgBox "Все файлы кончились. Обрабатывать нечего." frmMain.MousePointer = 0
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д